求救: SumColor Function 但要累加非數值的拆解方法
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-18
- 最後登錄
- 2024-3-1
|
求救: SumColor Function 但要累加非數值的拆解方法
hi ,
小弟想要請問一下, 我們可以用 SumColor Function 去累加某個特定底色的儲存格值(如下範例),
但是若我有個需求, 每個儲存格裡面的值都是2個,例如 "15/10" ,
我想要分別提出15 or 10 來統計幒數, 該怎麼改呢?
例如:
A1 (底色:紅) 10/15
A2 (白) 4/3
A3 (紅) 5/66
A4 (綠) 0/30
..........................
我想要算出紅底儲存格裡, 累計數值為 10+5=15 (前) 與 15+66=81
Example======================================
Function SumColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
Application.Volatile
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
=============================== |
|
|
50 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-18
- 最後登錄
- 2024-3-1
|
2#
發表於 2014-7-21 13:33
| 只看該作者
RE: 求救: SumColor Function 但要累加非數值的拆解方法 (已解決)
不好意思打攪大家
已經找到方法了,
加個GetElement = Split(rCell, "/")(Num)
把數值方開就可以了.謝謝 |
|
|
50 字節以內
不支持自定義 Discuz! 代碼
|
|
|
|
|
