Вопрос по поводу Макроса

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Вопрос по поводу Макроса - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вопрос по поводу Макроса (Формулы)

Вопрос по поводу Макроса

fry4536s

Дата: Пятница, 30.08.2013, 13:32 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

У меня есть следующий макрос
"Option Compare Text
Sub LoopRange2()
Dim MyCelltest As Range
For Each MyCelltest In Selection
If MyCelltest.Value Like "*первое значение" Then
MyCelltest.Interior.ColorIndex = 4
ElseIf MyCelltest.Value Like "*второе значение*" Then
MyCelltest.Interior.ColorIndex = 4
End If
Next
End Sub
"

В макросе ориентировочно 900 значений, т.е. ElseIf MyCelltest.Value Like "*второе значение*" Then, ElseIf MyCelltest.Value Like "*третье значение*" Then и т.п.
Время от времени он выдает Excel VBA Run-time error '13' Type mismatch.
Хотел бы уточнить, возможно проблема в том, что я ищу не по массиву а по каждой ячейке? Как изменить макрос так, чтобы он
а) Искал по массиву
б) Не красил ячейку а подставлял в ячейку слева определенное слово.
Заранее спасибо

[admin]Тема закрыта. Причина: нарушение п.п. 2, 3 Правил форума[/admin]
[admin]Вдобавок: Код не оформлен тегами; Тема размещена не в соответствующем разделе[/admin]

Ответить

Вопрос по поводу Макроса (Формулы)

Страница 1 из 1
1