|
▼Masa さん:
>お返事ありがとうございます!
>>B3から順に1→2→3とは、どういことですか?
>つまり、B3セルに1、C3セルに2というように入力順にセルに1から値を入れてやるってことです。
>
>
>>ところで、For 〜 Nextはわかるということであるならば、どこまでわかっておら
>れるのでしょうか?
>
>For Nextを使えばいいってことしかわからないです・・・
したにおりたら1から始めるの?(もしそうなら Count = 1を1行したのと入れ替えてください)
とりあえず、連番ってことで
場所はおぼえてないけど
ホームの目安箱かどこかにやり方のってたと思うよ
Private Sub CommandButton1_Click()
Dim i, Row_Index, Count As Integer
Count = 1
For Row_Index = 3 To 7
For i = Sheet1.Range("B" & Row_Index).Column To Sheet1.Range("G" & Row_Index).Column
Sheet1.Cells(Row_Index, i) = Count
Count = Count + 1
Next i
Next Row_Index
End Sub
|
|