|
▼初心者 さん:
>すみません、userformは使わずに、sheet1上にコンボボックス等を貼り付けてあります。そこから各名前のシートへ登録する形です。
シート上でしたらコードのコードの変更が必要ですよ。
当初は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.OLEObjects("OptionButton" & i).Object = True Then
.Range("BB8").Value = i
Exit For
End If
Next i
For i = 1 To 10
.Cells(66, 53 + i).Value = Me.OLEObjects("CheckBox" & i).Object.Value
Next i
End With
Exit Sub
End_Len:
MsgBox Me.ComboBox1.Value & "と言うシートがありません", vbCritical
End Sub
|
|