|
こんにちは
Private Sub CommandButton1_Click()
Dim i As Long
'On Error GoToステートメントにてErr処理
'コンボボックスの値のシートが無い場合「End_Len」に飛ぶ
On Error GoTo End_Len
With Worksheets(Me.ComboBox1.Value)
'Err処理を初期化
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
'セルBB6か右へ各チックボックスのチェック有無を表示
.Cells(66, 53 + i).Value = Me.Controls("CheckBox" & i).Value
Next i
End With
'Subプロシージャを抜ける
Exit Sub
'On Error GoToステートメントErrが出た場合ここに飛んできます
End_Len:
MsgBox Me.ComboBox1.Value & "と言うシートがありません", vbCritical
End Sub
|
|