| |
このようなマクロを作ってみて、きちんと稼働したのですが、
とても長すぎるので、短くすることはできますでしょうか？
未熟者ですので、教えてください。
(今は３つ分しか載せていませんが、実際は８つあります。)
Private Sub CommandButton1_Click()
If (ComboBox1 = "ＭＢ") Then
n = 6
Do
n = n + 1
Loop While Cells(n, 1) <> ""
Cells(n, 1) = UserForm1.TextBox1.Text
Unload Me
End If
If (ComboBox1 = "ＢＫ") Then
n = 6
Do
n = n + 1
Loop While Cells(n, 2) <> ""
Cells(n, 2) = UserForm1.TextBox1.Text
Unload Me
End If
If (ComboBox1 = "２Ｂ") Then
n = 6
Do
n = n + 1
Loop While Cells(n, 3) <> ""
Cells(n, 3) = UserForm1.TextBox1.Text
Unload Me
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
