Excel 2013 VBAユーザーフォームはcountIf計算を追加します

Question

スコアカードを作成しようとしています。私はいくつかの質問とコンボボックスを持っています。yes、no、N/Aと結果。その後、計算のようなになります

If ComboBox1=yes, ComboBox2=no, ComboBox3=yes and ComboBox4=N/A 

：

evaluate.Lable1 = ((countif(Range(ComboBox1,ComboBox2,ComboBox3,ComboBox4),="yes")/(Counta(Range(ComboBox1,ComboBox2,ComboBox3,ComboBox4))-((countif(Range(ComboBox1,ComboBox2,ComboBox3,ComboBox4),="N/A") 

Answer 1

研究のビットの後、私はそれを見つけ、私がやろうとしています何

は次のように動作し、結果を作成することですIIFコードが機能しました。その答えは次のとおりです。

'Get the Numerator 
a = IIf(ComboBox1.Value = "Yes", 1, 0) + IIf(ComboBox2.Value = "Yes", 1, 0)_  
+ IIf(ComboBox3.Value = "Yes", 1, 0) + IIf(ComboBox4.Value = "Yes", 1, 0) 
'Get the Denominator 
b = 4 - IIf(ComboBox1.Value = "N/A", 1, 0) - IIf(ComboBox2.Value = "N/A", 1, 0) 
    - IIf(ComboBox3.Value = "N/A", 1, 0) - IIf(ComboBox4.Value = "N/A", 1, 0) 
'Put the Numerator and Denominator together as a percentage 
Lable1.Text = Format(a/b, "00.00%")