的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%")