|
ユーザーフォームにコンボボックスを配置しておき
Private MyS As String
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
Me.ComboBox1.AddItem i & "月"
Next i
End Sub
Private Sub ComboBox1_Change()
With ComboBox1
If .ListIndex = -1 Then Exit Sub
MyS = .Value
End With
End Sub
Private Sub CommandButton1_Click()
If MyS = "" Then
MsgBox "先に入力するシートを選択して下さい", 48
Exit Sub
End If
If 行選択 = 0 Then 行選択 = 6
With Sheets(MyS)
.Range("B" & 行選択) = TextBox1.Text
.Range("D" & 行選択) = TextBox2.Text
.Range("E" & 行選択) = TextBox3.Text
.Range("G" & 行選択) = TextBox4.Text
.Range("O" & 行選択) = TextBox5.Text
End With
End Sub
というように、シート名を選択する形にしたらどうでしょーか ?
|
|