Проход по ячейкам Excel макросом
|
Новости от Microsoft: "... новая операционная система имеет удобный дружественный интерфейс и множество функций. облегчающих жизнь пользователю. Сразу после запуска она форматирует диск, уничтожает содержимое BIOS и выводит из строя процессор, после чего на экране появляется надпись - "Теперь питание компьютера можно отключить".
|
Private Sub CommandButton1_Click()
Dim i As Integer
Dim index As Integer
For Each cell_in_loop In Range("A2:A8")
For i = 3 To 21
index = 24 - i
If cell_in_loop.Value < Лист2.Cells(index, 1) Then
If cell_in_loop.Offset(0, 1).Value = "Да" Then
cell_in_loop.Offset(0, 2).Value = Лист2.Cells(index, 3)
Else
cell_in_loop.Offset(0, 2).Value = Лист2.Cells(index, 2)
End If
End If
Next
Next
End Sub
|
|
