|
テキストボックスに入力したデータを
図のように、B列の10行目を超えると
次はD列の10行目まで
更にF列の10行目までと
順次コマンドボタンからテキストボックスの
データを転送する方法について
Select Caseを使って作成していますが
次のコードのどの部分を直せば良いのでしょうか。
アドヴァイスをお願いします。
列の入力行は10行以上は入力できないように
させたいのです。
Private Sub CommandButton1_Click()
Dim MyC As Integer
Dim Rw As Integer
Rw = Cells(65536, 2).End(xlUp).Row
Select Case Rw
Case Is < 10: MyC = 2
Cells(65536, MyC).End(xlUp).Offset(1) = TextBox1.Value
' Case Is < 15: MyC = 4
' Cells(65536, MyC).End(xlUp).Offset(1) = TextBox1.Value
Case Else: MyC = 6
If Rw > 10 Then Exit Sub
Cells(65536, MyC).End(xlUp).Offset(1) = TextBox1.Value
End Select
End Sub
A B C D E F G
1
2 項目1 項目2 項目3
3 11 22 33
4 12 23 34
: : : :
: : : :
10 19 34 77
|
|