Potrzebuje pomocy w napisaniu kodu który by wypełnił kolumnę ”B:B” rosnącym ciągiem liczb z pustymi wierszami pomiędzy utworzonym cięgiem.
otwarty rozpoczął: FUTek
postów: 4
napisał: Trebor postów: 1209
umieszczony: 28 kwietnia 2012 20:16
Dokonaj tylko jednej poprwki:
Cells(j, "B") = "A" & i
napisał: FUTek postów: 18
umieszczony: 28 kwietnia 2012 18:02
Jak zwykle jesteś szybszy od mojej fantazji,
Przepraszam ale przeoczyłem jeden ważny szczegół.
Ciakiem rosnącym ma być A101, A102, A103 itd. Da się to zrobić?
Jestem pewien ze z góry mogę ci podziękować.
napisał: Trebor postów: 1209
umieszczony: 28 kwietnia 2012 17:45
To będzie dość prosta pętla:
Sub rosnaco() Dim i As Integer, j AsInteger
j = -7 'od drugiego wiersza For i = 100 To 200
j = j + 9
Cells(j, "B") = i Next i EndSub
napisał: FUTek postów: 18
umieszczony: 28 kwietnia 2012 17:37
edytowany: 28 kwietnia 2012 17:38
Potrzebuje pomocy w napisaniu kodu który by wypełnił kolumnę B:B rosnącym ciągiem liczb od 100 do 200 w następujący sposób.
100
8 pustych wierszy 101
8 pustych wierszy 102
8 pustych wierszy 103
I tak az do 200