Вход на сайт
Bопрос по VBA
146 просмотров
Перейти к просмотру всей ветки
Quo Vadis местный житель
в ответ zweti2005 10.06.05 14:15
Sub Steptest()
For n = 1 To 32 Step 4
Sheets("Tabelle1").Cells(1, n).Value = "text"
Next n
End Sub
'//////////////////////////////////////////////////
Sub Steptest1()
For n = 1 To 32 Step 4
Sheets("Tabelle1").Range("H" & n).Value = "text"
Next n
End Sub
* Прописан в аду *