Delphi World - Проход по ячейкам Excel макросом

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Проход по ячейкам 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