Есть условие If Target.Address = "$D$2" Then Что бы проверить две ячейки я использовал If Target.Address = "$D$2" or "$E$2" Then
Вопрос. А как проверить 1000 ячеек, задав диапазон? )) Спасибо.
Guest
Гость
15.03.2010 14:30:08
Поправка If Target.Address = "$D$2" or Target.Address = "$E$2" Then
Guest
Гость
15.03.2010 14:35:09
Спасибо. А посоветуйте еще книжку по ВБА... ))
Костя
Гость
15.03.2010 14:52:52
Сэнькс! Лучше куплю реальную книжку... ее проще читать.
Вот еще сопутствующий вопрос. Получился у меня такой код... немножко модифицированный "Выпадающий список с добавлением новых элементов"
Когда все действие происходит на одном листе, никаких проблем не возникает. НО! Это не работает, когда список с которым сравниваем и список, который выпадает находятся на разных листах. Ругается вот здесь If WorksheetFunction.CountIf(Range("Team_Members"), Target) = 0 Then
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lReply As Long
If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("$D$3:$E$3")) Is Nothing Then If IsEmpty(Target) Then Exit Sub If WorksheetFunction.CountIf(Range("Team_Members"), Target) = 0 Then lReply = MsgBox("Is " & _ Target & " a new member of our team?", vbYesNo + vbQuestion) If lReply = vbYes Then Range("Team_Members").Cells(Range("Team_Members").Rows.Count + 1, 1) = Target End If End If End If End Sub
