- Excel VBA 質問スレ Part44 [無断転載禁止]©2ch.net
967 ：デフォルトの名無しさん[sage]：2017/01/03(火) 02:26:53.48 ID:MQ1FjY+h - Private Sub CommandButton1_Click()
If CheckBox1 Then
y = 500⑴
If CheckBox2 Then
y = 500 + 300⑵
ElseIf CheckBox3 Then
y = 500 + 200⑶
Else
y = 500 + 300 + 200⑷
End If
End If
⑴はcheckbox1にチェックが入ったとき計算
⑵はcheckbox1と2にチェックが入ったとき計算
⑶はcheckbox1と3にチェックが入ったとき計算
⑷はcheckbox1にチェックが入ったとき計算
単体のcheckbox1の条件でチェックが入った時点で⑴と⑷が実行されてしまうから変な計算になる
f8キーで1行ずつテストする癖をつけたほうがいい
Elseは英語で〜のほかにって意味だから
if 〜 then(もし〜なら)
elseif 〜 (ほかにもし〜なら)
みたいに、前に単体のifがないとエラー出る
コードは単純にシンプルな方が見やすい
vbaの家庭教師はいないと思うから、おそらく世界一詳しいGoogle先生に聞いた方が早いし安い
|
|