如何使用vba計算各列底色加總 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何使用vba計算各列底色加總

返回列表下一主題上一主題發帖

[發問] 如何使用vba計算各列底色加總

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2013-9-25 07:25 | 顯示全部帖子

回復 1# sax868
套用 Hsieh 版大的程式碼，稍稍修改如下：

Sub ex()
Dim n As Long, cnt As Long
r = 3
Do Until Cells(r, 3) = ""
For Each a In Cells(r, 3).Resize(, 5)
If a.Interior.ColorIndex = 6 Then Cells(r, "I") = 1: cnt = cnt + 1
Next
r = r + 1
Loop
[J3] = cnt
End Sub

複製代碼

答案： [J3] = 14

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-9-25 08:15 | 顯示全部帖子

回復 c_c_lai
樓主有說: 3.在J3 顯示I欄的所有計數加總 (答案需要是計9, 不是14)
GBKEE 發表於 2013-9-25 07:49

真不好意思，是我老眼昏花了！
謝謝指教！

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

返回列表下一主題上一主題