Цикл со счётчиком
anastasia
Дата: Вторник, 04.03.2014, 23:57 |
Сообщение № 1
Помогите, пожалуйста...уже какой час бьюсь, никак не могу понять: Как написать свою процедуру в модуле1, формирующую лесенку из ячеек, заполненных символами «звездочка», используя цикл со счетчиком, переменные для указания номера строки и столбца. Заранее огромное спасибо)
Помогите, пожалуйста...уже какой час бьюсь, никак не могу понять: Как написать свою процедуру в модуле1, формирующую лесенку из ячеек, заполненных символами «звездочка», используя цикл со счетчиком, переменные для указания номера строки и столбца. Заранее огромное спасибо) anastasia
Ответить
Сообщение Помогите, пожалуйста...уже какой час бьюсь, никак не могу понять: Как написать свою процедуру в модуле1, формирующую лесенку из ячеек, заполненных символами «звездочка», используя цикл со счетчиком, переменные для указания номера строки и столбца. Заранее огромное спасибо) Автор - anastasia Дата добавления - 04.03.2014 в 23:57
RAN
Дата: Среда, 05.03.2014, 00:08 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
"Ну что вам рассказать про Сахалин"... Да запросто! Или нет!
"Ну что вам рассказать про Сахалин"... Да запросто! Или нет! RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение "Ну что вам рассказать про Сахалин"... Да запросто! Или нет! Автор - RAN Дата добавления - 05.03.2014 в 00:08
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]
Две разных лесенки - алгоритм в общем один: [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] Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Две разных лесенки - алгоритм в общем один: [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] Автор - Hugo Дата добавления - 05.03.2014 в 00:12
Wasilich
Дата: Среда, 05.03.2014, 10:12 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Наверное такая нужна? [vba]Код
Sub www() Dim i&, s& s=1 For i = 1 To 10 Cells(i, s) = "*" s=s+1 Next End Sub
[/vba]
Наверное такая нужна? [vba]Код
Sub www() Dim i&, s& s=1 For i = 1 To 10 Cells(i, s) = "*" s=s+1 Next End Sub
[/vba] Wasilich
Ответить
Сообщение Наверное такая нужна? [vba]Код
Sub www() Dim i&, s& s=1 For i = 1 To 10 Cells(i, s) = "*" s=s+1 Next End Sub
[/vba] Автор - Wasilich Дата добавления - 05.03.2014 в 10:12