K_Wing

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-3-19 00:48 | 只看該作者

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

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

樓主熱帖

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

11^#

發表於 2016-5-25 14:44 | 只看該作者

回復 10# ML089
遲了回覆
不好意思
因不懂使用
所以不知如何完成
不過仍要說聲:
謝謝

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

10^#

發表於 2015-12-1 12:03 | 只看該作者

回復 9# K_Wing

按 ALT-F11 就可以啟開

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

9^#

發表於 2015-12-1 10:39 | 只看該作者

回復 5# yen956
抱歉
我的Excel沒有"開發人員"這一項
所以用不到你提供的代碼

TOP

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

8^#

發表於 2015-12-1 10:35 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/361275175
hcm19522 發表於 2015-11-30 15:15

這個很有用
謝謝

TOP

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

7^#

發表於 2015-12-1 10:35 | 只看該作者

只分早、午、晚, 不分會議室A、B、C嗎?
yen956 發表於 2015-11-30 13:59

是會議室Ａ，Ｂ，Ｃ在上午，下午和晚上的使用次數

TOP

K_Wing

中學生 Rank: 2

帖子: 140
主題: 27
精華: 0
積分: 158
點名: 0
作業系統: Windows10
軟體版本: office 2013
閱讀權限: 20
性別: 男
註冊時間: 2014-11-27
最後登錄: 2023-2-26

6^#

發表於 2015-12-1 10:30 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/205029860
hcm19522 發表於 2015-11-30 11:31

感謝
好像合用
不過還未弄清楚
要慢慢研究一下

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