Приветствую Вас ГостьПятница, 06.12.2019, 21:01

Для начинающих программистов

Наш опрос
Оцените мой сайт
Всего ответов: 28

Макрос поиска - Форум

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Liberty Basic » Другое » Макрос поиска (123)
Макрос поиска
ironДата: Воскресенье, 18.11.2018, 14:18 | Сообщение # 1
Рядовой
Группа: Администраторы
Сообщений: 2
Репутация: 0
Статус: Offline
Sub Find()
Dim i As Integer
Dim a, b, c As String
a = Range("E3").Value
For i = 1 To 30
    c = "C" + Trim(Str(i))
    b = Range©.Value
    If b = a Then
        Range©.Interior.ColorIndex = 8
    Else
        Range©.Interior.ColorIndex = 0
    End If
Next i
End Sub
 
ironДата: Воскресенье, 18.11.2018, 14:21 | Сообщение # 2
Рядовой
Группа: Администраторы
Сообщений: 2
Репутация: 0
Статус: Offline
файл
Прикрепления: _Microsoft_Exce.xlsm(16.0 Kb)
 
Форум » Liberty Basic » Другое » Макрос поиска (123)
  • Страница 1 из 1
  • 1
Поиск:

Вход на сайт
Поиск
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • База знаний uCoz