請問怎樣將不同色彩數目相加

想問問有公式可以將不同色彩數字加起來嗎
（原表每月記錄房間使用次數繁多
所以不能簡單地將總數數出來
煩請各位幫忙
不勝感激）

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-15

熱烈參與勳章

2^#

發表於 2015-11-30 11:31 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/205029860

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2015-11-30 13:59 | 只看該作者

只分早、午、晚, 不分會議室A、B、C嗎?

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-15

熱烈參與勳章

4^#

發表於 2015-11-30 15:15 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/361275175

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2015-11-30 17:15 | 只看該作者

不知道 VBA 可不可以接受?
'注意:為了日期的可擴展性, 原 J1:J3 已移至 B16:B18
'請根據需要, 自行更改
Private Sub CommandButton1_Click()
Dim Ar
Dim R1 As Integer, C1 As Integer, LstC As Integer, CN As Integer
Dim MC As Integer, AC As Integer, EC As Integer

[B11:H13] = ""
LstC = [IV2].End(xlToLeft).Column
MC = [B16].Font.ColorIndex '上午顏色
AC = [B17].Font.ColorIndex '下午顏色
EC = [B18].Font.ColorIndex '晩上顏色

For R1 = 2 To 8
      For C1 = 2 To LstC
         If Cells(R1, C1) <> "" Then
            CN = Cells(R1, C1).Font.ColorIndex
            If CN = MC Then
                  Cells(11, C1) = Cells(11, C1) + Cells(R1, C1)
            ElseIf CN = AC Then
                  Cells(12, C1) = Cells(12, C1) + Cells(R1, C1)
            Else
                  Cells(13, C1) = Cells(13, C1) + Cells(R1, C1)
            End If
         End If
      Next
Next
End Sub