請問關於TRUE個數判斷的問題？

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-7-6 18:05 | 顯示全部帖子

回復 1# tku0216
可改用SUMPRODUCT

Sub auto_count()
a = [a1].End(xlDown).Row
For i = 2 To a
Cells(i, "c").FormulaR1C1 = "=if(OR(left(rc[-1],3)=""如附圖"",left(rc[-1],3)=""請參照""),""TRUE"",""FALSE"")"
Next
'Cells(a + 1, "c").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,TRUE)"
Cells(a + 1, "c").FormulaR1C1 = "=SUMPRODUCT((r[" & 1 - a & "]c:r[-1]c=""TRUE"")*1)"
Cells(a + 1, "d").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項A"")"
Cells(a + 1, "e").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項B"")"
Cells(a + 1, "f").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項C"")"
Cells(a + 1, "g").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項D"")"
For i = 2 To a
Cells(i, "i").FormulaR1C1 = "=if(isblank(rc[1]),"""",if(len(rc[1])>1,2,1))"
Next
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-7-10 14:18 | 顯示全部帖子

回復 3# tku0216
工作表函數 SUMPRODUCT 傳回各陣列中所有對應元素乘積的總和。
=SUMPRODUCT((C2:C11=TRUE)*1)
陣列: C2:C11=TRUE 有TRUE *1 -> 所有對應元素乘積的總和

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。