|
Jaka さん返信ありがとうございます。
コードが不足していたので追記します。
'チェックボックス
n = 1
If UserForm1.CheckBox1.Value = True Then
.Range("J" & lRow + 1).Value = n
Else
.Range("J" & lRow + 1).Value = n - 1
End If
'オプションボタン1/2
n = 30
If UserForm1.OptionButton1.Value = True Then
.Range("K" & lRow + 1).Value = n
Else
.Range("K" & lRow + 1).Value = n - 30
End If
n = 60
If UserForm1.OptionButton2.Value = True Then
.Range("K" & lRow + 1).Value = n
Else
.Range("K" & lRow + 1).Value = n - 60
End If
この時チェックボックスがONの場合オプションボタンが有効になるようにしたいのですが、どうやらオプションボタンのコードも反映されずどこから変更したら良いのか分かりませんでした。
チェックボックスがTrueならオプションボタンの選択で「30」か「60」をセルに返したのですが・・・
ちなみにチェックボックスがOFFの場合はオプションボタンは未動作?にするにはどのようにしたら良いでしょうか?
|
|