1 Тема от niydiyin (изменено: niydiyin, 2011-07-27 17:01:39)

  • niydiyin
  • Участник
  • Неактивен

Тема: VBA: Три условия подряд или как оформить два оператора AND

Здравствуйте!
Вот такой скрипт:

Sub corpsecleaning()
    Dim i, j, k, t, n, m As Integer
    лист2.Activate
    m = 242
    n = 666
    For i = 2 To n
    For j = 2 To m
    If Лист2.Cells(i, j).Value = Лист2.Cells(i, j - 1).Value And Лист2.Cells(i, j) <> "#NA" And Лист2.Cells(i, j).Value = лист2.Cells(i, j - 2) Then
    k = j
    For t = k To m
    ActiveSheet.Cells(i, t) = "#NAA"
    Next
    End If
    Next j
    Next i
End Sub

Загвоздка в третьем условии в строчке, которая начинается с IF. Мне просто надо указать условие, что значения трех ячеек равны между собой.
И, пользуясь случаем, хотел бы спросить - выражения "ячейки равны" и "значения ячеек равны" это одно и то же?
Спасибо!

2 Ответ от niydiyin

  • niydiyin
  • Участник
  • Неактивен

Re: VBA: Три условия подряд или как оформить два оператора AND

Ребята, простите, я дурак!
Поставил j=3 и все заработало!