|
▼初心者 さん:
>▼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
>
>わかりやすいご説明ありがとうございました。
>またわからないことがありましたらお願い致します。
もしも、上記コードがsheet1で行い、各名前のsheetへ登録するのであれば、
どこを変更すればよいですか?
|
|