Процедуры VB

[rok]

Поясните почему данная процедура работает:
Sub mydel1()
For Each a In CommandBars("Help").Controls
If a.Caption = "&Справка: Microsoft Excel" Then
ElseIf a.Caption = "Справка по зарплате" Then
Else
a.Visible = False
End If
Next
End Sub
а так не работает:
Sub mydel1()
For Each a In CommandBars("Help").Controls
If a.Caption <> "&Справка: Microsoft Excel" or _
a.Caption <> "Справка по зарплате" Then
a.Visible = False
End If
Next
End Sub

[tyomitch]

Выражение

Код: Выделить всё

a.Caption <> "&Справка: Microsoft Excel" or _
a.Caption <> "Справка по зарплате"

всегда истинно.

[575-61]

Когда Вы пользуитесь одним и темже членом сравнения (a.Caption) надо в перечислениях писать AND в противном случае, Вам уже пояснили.

[vvs_adm]

Когда Вы пользуитесь одним и темже членом сравнения (a.Caption) надо в перечислениях писать AND в противном случае, Вам уже пояснили.

Типа
If a="b" and a="c" then ?

[575-61]

Не надо смеятся!
Я написал ... сравнения ... , а не равенства.
Поработайте в SQL - {..If a="b" and a="c" then} - у оператора IF есть дырки (в сложных перечислениях неравенств), точнее все пользуются IIF.
Все относительно и все есть - логический хаос.