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

各位大大好，先前有請教各位先進關於利用VBA判斷的問題：我附件的excel檔是一個會自動會在C欄判斷B欄的前三個字是否為“請參照”或“如附圖”程式，並會在C欄的最後加總TRUE的個數，但我發現在C欄的最後似乎沒有辦法加總TRUE的個數，不知為何？我當初以為是公式的關係，故將C欄的TRUE或FALSE值，以複製貼上值的方式貼了一次，發現還是沒用，請教各位大大為何有這樣的問題？謝謝。

使用方法：開發人員→巨集→執行sheets.auto_count
連結----------------------------
http://db.tt/Xyy7lr2R
-----------------------------------

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

4^#

發表於 2012-7-10 14:18 | 只看該作者

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

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2012-7-9 18:27 | 只看該作者

請問G大，不太了解您修改那一行(第7行)後半段的意思，可否解釋一下？謝謝。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

2^#

發表於 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

複製代碼

TOP