Задание по заполнению

[A-Lex-Is]

Применяя VBA, создать в Excel и заполнить таблицу 100Х100 числами, начиная с 1 с переменным шагом в 2 и циклом в 3. Т.е. последовательность такая:
1
1 + 2 (шаг 2)
1 + 2 + 4 (шаг 4)
1 + 2 + 4 + 6 (шаг 6)
1 + 2 + 4 + 6 + 2 (снова шаг 2 )

Прошу помочь.

[A-Lex-Is]

Кто-нибудь сможет мне помочь?

[IgorGO]

Sub S100100()
  Cells.ClearContents
  v = 1
  r = 1
  c = 1
  Do
    For dv = 2 To 6 Step 2
      Cells(r, c) = v
      Application.StatusBar = r & ":" & Format(c, "00#")
      c = c + 1
      If c > 100 Then r = r + 1: c = 1
      v = v + dv
      If r = 101 Then
        Application.StatusBar = False
        MsgBox "Done"
        Exit Sub
      End If
    Next
  Loop Until False
End Sub

[EducatedFool]

Вот ещё вариант:

Sub Цикл()
    '1
    '1 + 2 (шаг 2)
    '1 + 2 + 4 (шаг 4)
    '1 + 2 + 4 + 6 (шаг 6)
    '1 + 2 + 4 + 6 + 2 (снова шаг 2 )

    Application.EnableCancelKey = xlDisabled: n = 1
    For i = 1 To 100
        For j = 1 To 100
            MsgBox "Следующее значение равно " & n, vbInformation
            Cells(i, j) = n
            n = n + ((((i - 1) * 100 + j - 1) Mod 3) + 1) * 2
        Next j
    Next i
End Sub

Применяя VBA, создать в Excel и заполнить таблицу 100Х100 числами

Если вы уж обращаетесь к нам в приказном тоне, то хоть бы сказали, что нам будет за невыполнение приказа.