Login
Bопрос по VBA
146
NEW 10.06.05 08:31
Я програмиерую на VBA в Excel. Делаю одну Schleife и хочу, чтобы моя программа выдавала ответы в Excel-Tabelle, но не в столбик, а в строчку. Не знаю, как ето написать...
Если в столбик, то... например
Sheets("Daten").Range("H" & i + 1).Value =x
i=i+1
Столб H остается постоянным, а строчка меняется. Как написать, чтобы строчка оставалась постоянной, а столбцы менялись?
Может, кто знает? Подскажите
Если в столбик, то... например
Sheets("Daten").Range("H" & i + 1).Value =x
i=i+1
Столб H остается постоянным, а строчка меняется. Как написать, чтобы строчка оставалась постоянной, а столбцы менялись?
Может, кто знает? Подскажите
NEW 10.06.05 10:31
in Antwort zweti2005 10.06.05 08:31, Zuletzt geändert 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...
NEW 10.06.05 14:15
in Antwort scorpi_ 10.06.05 10:31
A если я хочу, чтобы ответ появлялся не в каждой клетке, а в каждой четвертой клeтке, как тогда сделать?
NEW 10.06.05 14:40
in Antwort zweti2005 10.06.05 14:15
Ну девушка, это уже детский вопрос... Смотрите справку по For...To...Step, для чего там Step стоит.
Вот так, под гром аплодисментов, умирает демократия (c)
Вот так, под гром аплодисментов, умирает демократия (c)
11.06.05 09:51
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
* Прописан в аду *
in Antwort 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
* Прописан в аду *