Цикл со счётчиком

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Цикл со счётчиком (Макросы Sub)

Цикл со счётчиком

anastasia

Дата: Вторник, 04.03.2014, 23:57 | Сообщение № 1

Группа: Гости

Помогите, пожалуйста...уже какой час бьюсь, никак не могу понять: Как написать свою процедуру в модуле1, формирующую лесенку из ячеек, заполненных символами «звездочка», используя цикл со счетчиком, переменные для указания номера строки и столбца. Заранее огромное спасибо)

Ответить

RAN

Дата: Среда, 05.03.2014, 00:08 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

"Ну что вам рассказать про Сахалин"...
Да запросто!

Или нет!

Быть или не быть, вот в чем загвоздка!

Ответить

Hugo

Дата: Среда, 05.03.2014, 00:12 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Две разных лесенки - алгоритм в общем один:
[vba]

Код

Sub tt()
      Dim i&, ii&

      For i = 1 To 10
          For ii = 1 To i
              Cells(i, 1) = Cells(i, 1) & "*"
          Next
      Next

End Sub

Sub ttt()
     Dim i&, s$

     For i = 1 To 10
         s = s & "*" & " "
         Cells(i, 1).Resize(, i) = Split(s)
     Next

End Sub

[/vba]