|
こんにちは
すべてUserFormのコントロールですね。
こんな感じです(コードをまとめただけですので)
Private Sub CommandButton1_Click()
Dim i As Long
On Error GoTo End_Len
With Worksheets(Me.ComboBox1.Value)
On Error GoTo 0
.Range("I7").Value = Me.TextBox4.Value
.Range("AK3").Value = Me.ComboBox2.Value
For i = 1 To 5
If Me.Controls("OptionButton" & i) = True Then
.Range("BB8").Value = i
Exit For
End If
Next i
For i = 1 To 10
.Cells(66, 53 + i).Value = Me.Controls("CheckBox" & i).Value
Next i
End With
Exit Sub
End_Len:
MsgBox Me.ComboBox1.Value & "と言うシートがありません", vbCritical
End Sub
|
|