如何用儲存格的顏色來加總或計算一欄裡的資料總和和個數
- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-28
- 最後登錄
- 2012-5-30
|
如何用儲存格的顏色來加總或計算一欄裡的資料總和和個數
各位先進，
如果有一欄資料，A1 ~A10，每格各存放一數值，假設當中有數格的格式為紅色，要如何才可以將當中紅色的儲存格的內容加總起來(存於A11)，並計算有紅色數值的欄位各數有幾個(存於A12)?
謝謝 |
|
|
Green bean (虎林豆)
|
|
|
|
|
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
3#
發表於 2012-5-30 15:31
| 只看該作者
本帖最後由 register313 於 2012-5-30 21:22 編輯
回復 1# almond
VBA:- Sub YY()
- [A11] = 0
- [A12] = 0
- For Each A In [A1:A10]
- If A.Interior.ColorIndex = 3 Then 'If A.Font.ColorIndex = 3 Then
- [A11] = [A11] + A
- [A12] = [A12] + 1
- End If
- Next
- End Sub
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) |
|
|
|
|
|
|
|
- 帖子
- 67
- 主題
- 8
- 精華
- 0
- 積分
- 78
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Excel 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-5-15
- 最後登錄
- 2021-9-14
|
2#
發表於 2012-5-30 14:50
| 只看該作者
本帖最後由 alumi 於 2012-5-30 14:52 編輯
- For I=1 to 20
- if cells( I,"A").font.color = vbRed then
- cells(11,"A") =cells(11,"A") + cells( I,"A")
- end if
- Next I
|
|
|
|
|
|
|
|
