麻辣家族討論版版 » Excel程式區 » 異動資料自動反色(非點選儲存格反色)

返回列表下一主題上一主題發帖

[發問] 異動資料自動反色(非點選儲存格反色)

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-1-8 22:43 | 只看該作者

[發問] 異動資料自動反色(非點選儲存格反色)

請問如何使用VBA達到以下效果
1.點選【啟動】按鈕後，工作表1.2.3任何範圍，只要有異動資料的儲存格，均自動顯示為黃底紅字
2.選選【停止】按鈕後，停止自動反色功能，無論資料如何異動均無需反色效果

補充
1.並非點選儲存格反色效果，也就是無論滑鼠點選哪一儲存格或停留在哪一儲存格，均不影響。只有點選進入儲存格異動資料後才會反色
2.工作表可能新增或減少，因此希望可以指定，所以不是整個excel檔的所有活頁簿都要有此功能

範例
C4:D14為原始資料，點選【啟動】後，C23、C30、D27因為有異動資料，所以自動反色

測試.rar (8.32 KB)

樓主熱帖

收藏

*宅女一枚無誤*

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2024-8-10

2^#

發表於 2018-1-10 12:07 | 只看該作者

請問如何使用VBA達到以下效果
1.點選【啟動】按鈕後，工作表1.2.3任何範圍，只要有異動資料的儲存格，均 ...
msmplay 發表於 2018-1-8 22:43

如果沒有一定要VBA，用設定格式化的條件也可以達到。
1.

2.

3.

測試.zip (293.97 KB)

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

3^#

發表於 2018-1-10 15:40 | 只看該作者

回復 2# kim223824

k大~非常感謝幫忙，但其實那個上下圖示只是舉例的意思啦！並不是比對差異反色，而是所有範圍只要有資料被異動即反色的意思
而且是希望按下啟動按鈕才開始資料變更反色，按下停止按鈕時無需反色效果，醬~~~~~不知是否有解呢？

*宅女一枚無誤*

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2018-1-11 14:11 | 只看該作者

回復 3# msmplay
依下面代碼，然後按鈕指定到巨集 ClickStart 和 ClickStop

Module1

Public bIsStart As Boolean
Public colChange As Collection
Sub ClickStart()
If bIsStart Then MsgBox "已經是啟動狀態": Exit Sub
bIsStart = True
Set colChange = New Collection
End Sub
Sub ClickStop()
bIsStart = False
If Not colChange Is Nothing Then
For Each rng In colChange
rng.Interior.Color = xlNone
rng.Font.Color = xlAuto
Next
Set colChange = Nothing
End If
End Sub

複製代碼

ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If bIsStart Then
If Sh.Name = Sheets(1).Name _
Or Sh.Name = Sheets(2).Name _
Or Sh.Name = Sheets(3).Name Then
colChange.Add Target
Target.Interior.Color = vbYellow
Target.Font.Color = vbRed
End If
End If
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

5^#

發表於 2018-1-11 19:10 | 只看該作者

回復 4# stillfish00

s大~~~~~~好厲害喔!!!!這就是小妹所需的功能~~~~~~再次感謝你的熱心幫忙喔!!!

*宅女一枚無誤*

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

6^#

發表於 2018-1-12 08:13 | 只看該作者

回復 4# stillfish00

s大~~~~不好意思可以再請教一個題外題嗎就是如果想要讓檔案ㄧ打開「啟動」效果就自動啟動的話，該怎麼修改或新增程式碼呢？
ㄝ就是除非按下「停止」，否則反色效果就一直開著，請問這可行嗎？

*宅女一枚無誤*

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2018-1-12 10:18 | 只看該作者

回復 6# msmplay
add in ThisWorkbook

Private Sub Workbook_Open()
ClickStart
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 218
主題: 73
精華: 0
積分: 290
點名: 0
作業系統: WIN10
軟體版本: Office2010
閱讀權限: 20
性別: 女
註冊時間: 2014-5-19
最後登錄: 2022-11-29

8^#

發表於 2018-1-18 20:25 | 只看該作者

回復 7# stillfish00

s大~~~~~再次感謝幫忙ㄛ!!!

*宅女一枚無誤*

中學生 Rank: 2

帖子: 40
主題: 10
精華: 0
積分: 97
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 20
性別: 男
來自: 台灣台南
註冊時間: 2016-8-26
最後登錄: 2018-10-31

9^#

發表於 2018-1-20 22:54 | 只看該作者

回復 7# stillfish00

stillfish00大，
如果原資料的儲存格不等於異動資料的內容，或是異動資料有做變動時都會變色，這樣程式碼要怎樣做修改?

靜思自在 : 閒人無樂趣，忙人無是非。

返回列表下一主題上一主題