IfとElseIf Statement in VBA

Question

私はVBAのフォームを使って私の単語の文書を作成しています。私は一緒に勉強しています。リストから項目を選択できるコンボボックスがあります。基本的には、「Homestretch」項目が選択されている場合は4つのコピーを、コンボボックスに選択または入力されたものはすべて3つのコピーで印刷します。

Homestretchを選択すると4つのコピーが完全に印刷されますが、他のものを選択すると印刷されません。また、これはコマンドボタンクリック機能の下にあり、ckbPrintチェックボックスがチェックされている場合にのみ実行します。以下にコードを示します。ありがとう。

If Me.ckbPrint.Value = True Then 
If cbxCarrier.Value = "Homestretch" Then 
    ActiveDocument.PrintOut copies:=4 
ElseIf cbxCarrier.Value <> "Homestretch" Then 
ElseIf Me.ckbPrint.Value = True Then 
    ActiveDocument.PrintOut copies:=3 
End If 
End If 

Answer 1

ELSEIF作品。次にこれを簡素化することができます：あなたはちょうど2つの値のいずれかを割り当てる間で決定する必要があり、単純なIf ... Then例については

Dim copies As Long 

If Me.ckbPrint Then 
    If cbxCarrier.Value = "Homestretch" Then 
     copies = 4 
    Else 
     copies = 3 
    End If 
    ActiveDocument.PrintOut copies:=copies 
End If 

Answer 2

それはそれはあなたが望むものではない場合だけでステートメントを変更するには、この

If Me.ckbPrint.Value = True Then 
    If cbxCarrier.Value = "Homestretch" Then 
     ActiveDocument.PrintOut copies:=4 
    ElseIf cbxCarrier.Value <> "Homestretch" Then 
     'put your inner else statement here. If none, then remove it 
    End If 
ElseIf Me.ckbPrint.Value = False Then 'this else is connected with first if 
ActiveDocument.PrintOut copies:=3 
End If 

のように見えるものでなければならその方法であれば、あなたのコードは、あまりにも多くのテストを適用している

Answer 3

、式IIf（）関数は、あなたのコードを簡単にすることができます。

If Me.ckbPrint Then ActiveDocument.PrintOut _ 
    copies:=IIf(cbxCarrier.Value="Homestretch", 4, 3) 

構文：IIf(test, if_test_true, if_test_false)