|
▼Statis さん:
>こんにちは
>
>すべて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
ありがとうございます。
初心者な者で、できれば説明を記入していただければ助かります。
|
|