|
▼Statis さん:
>こんにちは
>
>
>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
わかりやすいご説明ありがとうございました。
またわからないことがありましたらお願い致します。
|
|