VPF::Цвет и текст в ячейку - Форум программистов

bucdapuswert

Дата 16.5.2007, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

У меня не получается сделать так чтобы модуль находил
ячейки с определенным текстом и закрасил их.
например тест "Д" и закрасил в цвет желтый.
вот мой модуль:
Private Sub CommandButton1_Click()
   Dim cell As Range
   For Each cell In [A1:D10]
      If Cells.Text = "Д" Then
        cell.Interior.Color = RGB(255, 20, 0)
      Else
         cell.Interior.ColorIndex = xlNone
      End If
   Next cell
End Sub

Это сообщение отредактировал(а) bucdapuswert - 18.5.2007, 10:22

Edd

Дата 16.5.2007, 19:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 200
Регистрация: 23.3.2006

Репутация: нет
Всего: 1

Код


RR = TextBox1.Text ' записываеш номер ячейки  - "А1"
x1 = Range(RR).Column
y1 = Range(RR).Row
if (Cells(y1,x1).text="д") then
     Cells(y1,x1).Interior.ColorIndex = 3 'задёш цвет ячейки (xlNone - уберает закраску)
end if

Советую пользоваться поиском

mihanik

Дата 17.5.2007, 12:37 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

А не пробовал использовать встроенное условное форматирование?
Классная штучка.
И программу писать не надо...

Это сообщение отредактировал(а) mihanik - 17.5.2007, 12:37

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »