powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как парсить строку по цвету ?
8 сообщений из 8, страница 1 из 1
Как парсить строку по цвету ?
    #35653682
alex376
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть Excel документ, нужно в ячейках выбирать значения только синего цвета.
т.е. есть ячейка со строковым значением

66, 67, 78, 69, 70

на выходе получить нужно 78, 70

Как это сделать ?
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35653700
Smiler™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
юзай Range("").Font.ColorIndex
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35653706
Neirfy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Макрос сам сможешь написать?
Цвет так:
Cells(1, 1).Interior.Color = 13434828 ' Green Color
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35653709
Neirfy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сорь, я не про значения написал, а цвет ячейки
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35653850
alex376
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
понятно, что цвет клетки поймать можно, а вот как поймать цвет внутри строки ???
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35654004
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Данные/Текст по столбцам. А дальше - ты знаешь как :-)
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35654079
alex376
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
A-NikДанные/Текст по столбцам. А дальше - ты знаешь как :-)

цвет теряется в процессе преобразования (Office 2003)
...
Рейтинг: 0 / 0
Как парсить строку по цвету ?
    #35654122
A-Nik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Верно :-)
Тогда как-то так:
Код: plaintext
1.
2.
3.
4.
For i =  1  To Len(ActiveCell.Text)
    If ActiveCell.Characters(Start:=i, Length:= 1 ).Font.ColorIndex = ИскомыйЦвет Then
      .....
    End If
Next
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как парсить строку по цвету ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]