は、非機能IFエルスVBA

Witless初心者：は、非機能IFエルスVBA

If OptionButtonMed.Value = True Then 
    pp = pp + 2 
ElseIf OptionButtonLarge = True Then 
    pp = pp + 4 
ElseIf OptionButtonXL = True Then 
    pp = pp + 8 
Else: pp 
End If

それは単に動作しません。評価された提案。

出典

2017-03-27 m4sterbunny

'タイプのあなたのオブジェクトのアルですOptionButton'？このコードはどこに置かれていますか？ –

あなたのLargeとXLのボタンの値が抜けている可能性があります... – micstr

oops - それでも、私のエラーが発生し、その前に壊れている！ – m4sterbunny

Elseステートメントのために実行時エラーが発生する場合は、ppに有効な値を与える必要があります。

pp = pp +1などの値を試してみると効果があります。

また、Controlの後に.Valueを保存することをお勧めします。（= Trueが実際には必要ありません）

がするようにコードを変更します。

出典

2017-03-27 08:30:59

私はコンパイルエラーが発生しています：サブ、関数、またはプロパティが予期されていました与えても Else pp = pp + 0 – m4sterbunny

@ m4sterbunnyどこですか？どの行？コードはどこにありますか？ 'Command_Button'イベントで？ –

途中でpp = 0を与えているようです。しかし、あなたの提案はすごかった！機能calcCost（PP）場合OptionButtonMed.Valueそして PP = PP + 2 のElseIf OptionButtonLarge.Valueそして PP = PP + 4 のElseIf OptionButtonXL.Valueそして PP = PP + 8エルス：PP = pp * 1 終了の場合終了機能 – m4sterbunny

答えて

関連する問題