| |
▼Ｍａｓａ さん：
>お返事ありがとうございます！
>>B3から順に1→2→3とは、どういことですか？
>つまり、Ｂ３セルに１、Ｃ３セルに２というように入力順にセルに１から値を入れてやるってことです。
>
>
>>ところで、For 〜 Nextはわかるということであるならば、どこまでわかっておら
>れるのでしょうか？
>
>For Nextを使えばいいってことしかわからないです・・・
したにおりたら１から始めるの？（もしそうなら Count = 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
|
|
りすりす
- 05/1/20(木) 23:18 -
