Добрый день, помогите, пожалуйста, с написанием макроса. есть таблица, где в столбце А есть определенные слова. Необходимо написать макрос, чтоб при его запуске строка таблицы окрашивалась в какой-нибудь цвет, если в ячейке этой строки из столбца А содержится текст "Юр. лицо" или "Физ. лицо".
Добрый день, помогите, пожалуйста, с написанием макроса. есть таблица, где в столбце А есть определенные слова. Необходимо написать макрос, чтоб при его запуске строка таблицы окрашивалась в какой-нибудь цвет, если в ячейке этой строки из столбца А содержится текст "Юр. лицо" или "Физ. лицо".Anastasia
Просто применение условного форматирование не подойдет, т.к. этот макрос будет маленькой частью другого макроса, на написании которой я и остановилась, т.к. не могу сообразить как это сделать.
Просто применение условного форматирование не подойдет, т.к. этот макрос будет маленькой частью другого макроса, на написании которой я и остановилась, т.к. не могу сообразить как это сделать.Anastasia
Sub ЦветастыеСтроки() Dim i As Integer i = 0 While Cells(3 + i, 1) <> 0 If Cells(3 + i, 1) = "Юр. лицо" Or Cells(3 + i, 1) = "Физ. лицо" Then Rows(3 + i).Interior.Color = 65535 End If i = i + 1 Wend End Sub
[/vba]
Anastasia, [vba]
Код
Sub ЦветастыеСтроки() Dim i As Integer i = 0 While Cells(3 + i, 1) <> 0 If Cells(3 + i, 1) = "Юр. лицо" Or Cells(3 + i, 1) = "Физ. лицо" Then Rows(3 + i).Interior.Color = 65535 End If i = i + 1 Wend End Sub
Вот, то что у меня получается. Разбито на листы: - Исходная таблица; - Что должно получиться; - Что у меня пока получается. Основное отличие II и III - заливка строк. Пишу макрос первый раз, может его можно как то упростить и дополнить, но главное, чтоб не слишком сложно для понимания.
Вот, то что у меня получается. Разбито на листы: - Исходная таблица; - Что должно получиться; - Что у меня пока получается. Основное отличие II и III - заливка строк. Пишу макрос первый раз, может его можно как то упростить и дополнить, но главное, чтоб не слишком сложно для понимания.Anastasia
Sub ЦветастыеСтроки() Dim i As Integer i = 0 While Cells(3 + i, 1) <> 0 If Cells(3 + i, 1) = "Юр. лицо" Or Cells(3 + i, 1) = "Физ. лицо" Then Rows(3 + i).Interior.Color = 65535 End If i = i + 1 Wend End Sub
[/vba]
Спасибо большое, подходит.
Цитата (Матраскин)
[vba]
Код
Sub ЦветастыеСтроки() Dim i As Integer i = 0 While Cells(3 + i, 1) <> 0 If Cells(3 + i, 1) = "Юр. лицо" Or Cells(3 + i, 1) = "Физ. лицо" Then Rows(3 + i).Interior.Color = 65535 End If i = i + 1 Wend End Sub
на примере 2 слов и 2 столбцов покажите алгоритм. Пусть столбец "А" заполнен случайным чередованием слов Мама и Папа а столбец "В" любыми числами. и если можно то поправьте условие что бы концом выделения был последний столбец. Очень прошу.
на примере 2 слов и 2 столбцов покажите алгоритм. Пусть столбец "А" заполнен случайным чередованием слов Мама и Папа а столбец "В" любыми числами. и если можно то поправьте условие что бы концом выделения был последний столбец. Очень прошу.Постовой