Deutsch

Bопрос по VBA

146  
zweti2005 прохожий10.06.05 08:31
zweti2005
10.06.05 08:31 
Я програмиерую на VBA в Excel. Делаю одну Schleife и хочу, чтобы моя программа выдавала ответы в Excel-Tabelle, но не в столбик, а в строчку. Не знаю, как ето написать...
Если в столбик, то... например
Sheets("Daten").Range("H" & i + 1).Value =x
i=i+1
Столб H остается постоянным, а строчка меняется. Как написать, чтобы строчка оставалась постоянной, а столбцы менялись?
Может, кто знает? Подскажите
#1 
scorpi_ скептик10.06.05 10:31
NEW 10.06.05 10:31 
в ответ zweti2005 10.06.05 08:31, Последний раз изменено 10.06.05 10:33 (scorpi_)
Проще всего используя Cells( row, column )
For clmn_index = 1 to N
Sheets( "Daten" ).Cells( row_index, clmn_index ).Value = x
Next clmn_index


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xl...

#2 
zweti2005 прохожий10.06.05 14:15
zweti2005
NEW 10.06.05 14:15 
в ответ scorpi_ 10.06.05 10:31
A если я хочу, чтобы ответ появлялся не в каждой клетке, а в каждой четвертой клeтке, как тогда сделать?
#3 
scorpi_ скептик10.06.05 14:40
NEW 10.06.05 14:40 
в ответ zweti2005 10.06.05 14:15
Ну девушка, это уже детский вопрос... Смотрите справку по For...To...Step, для чего там Step стоит.
Вот так, под гром аплодисментов, умирает демократия (c)
#4 
  Quo Vadis местный житель11.06.05 09:51
NEW 11.06.05 09:51 
в ответ 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
* Прописан в аду *
#5