|
▼Statis さん:
>▼初心者 さん:
>
>
>>すみません、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
できました。ありがとうございました。
|
|