|
▼初心者 さん:
>▼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
>
>
>できました。ありがとうございました。
例えば、今のやり方ではオプションボタン6〜8をセルのBB9にリンクさせ、6をチェックするとBB9は1・7をチェックするとBB9は2・8で3にしたいのですが、6をチェックで6、7で7というふうになってしまいますよね。
どうすればいいですか?
|
|