標題: 如何用儲存格的顏色來加總或計算一欄裡的資料總和和個數 [打印本頁]

---

作者: almond    時間: 2012-5-30 14:32     標題: 如何用儲存格的顏色來加總或計算一欄裡的資料總和和個數

各位先進，
如果有一欄資料，A1 ~A10，每格各存放一數值，假設當中有數格的格式為紅色，要如何才可以將當中紅色的儲存格的內容加總起來(存於A11)，並計算有紅色數值的欄位各數有幾個(存於A12)?

謝謝

---

作者: alumi    時間: 2012-5-30 14:50

本帖最後由 alumi 於 2012-5-30 14:52 編輯

1. For I=1 to 20
   
2.    if cells( I,"A").font.color = vbRed then
   
3.            cells(11,"A") =cells(11,"A") + cells( I,"A")      
   
4.   end if
   
5. Next I

複製代碼

---

作者: register313    時間: 2012-5-30 15:31

本帖最後由 register313 於 2012-5-30 21:22 編輯

回復 1# almond

VBA:

1. Sub YY()
   
2. [A11] = 0
   
3. [A12] = 0
   
4. For Each A In [A1:A10]
   
5.   If A.Interior.ColorIndex = 3 Then   'If A.Font.ColorIndex = 3 Then
   
6.      [A11] = [A11] + A
   
7.      [A12] = [A12] + 1
   
8.   End If
   
9. Next
   
10. End Sub

複製代碼

一般區:
[attach]11200[/attach]
1.選B1,定義x=GET.CELL(63,Sheet1!A1)
2.B1=x 往下複製到B10
3.A11=SUMIF(B1:B10,3,A1:A10)
4.A12=COUNTIF(B1:B10,3)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)