Deutsch

Bопрос по VBA

11.06.05 09:51
Re: Bопрос по VBA
 
  Quo Vadis местный житель

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
* Прописан в аду *
 

Перейти на