　暱稱: RCRG滾奶滾企

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-11-17 01:26 | 顯示全部帖子

[發問] 如何利用VBA按鍵，將指定日期填滿顏色?

問題
如何利用VBA按鍵，將指定日期填滿顏色?

問題詳細內容
C欄(C3開始)同一種料號裡，對應F欄若只有今天日期(目前先假設為2016/11/9，之後會以公式 =TODAY() 取代)，則填滿紅色；
對應F欄若 "只有" 今天與任一天，兩種日期，則填滿粉紅色(將任一天日期填滿粉紅色即可)；

註
A欄 "篩選例外料號" 功能說明：
在A欄輸入料號，該料號縱使符合填滿(粉)紅色條件也不填滿顏色

以上問題，請各位VBA高人參考附件幫解，感謝萬分。

附件下載

如何利用VBA按鍵，將指定日期填滿顏色.rar (16.38 KB)

樓主熱帖

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

2^#

發表於 2016-11-17 23:21 | 顯示全部帖子

回復 2# 葉國洲

請問我把您的VBA貼在模組後執行，但似乎不行呢? 是我手法有錯誤嗎?

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

3^#

發表於 2016-11-18 10:48 | 顯示全部帖子

回復 4# 葉國洲

恩恩，有了！
所以C1欄一定要是 "真的" 今天日期，VBA才會觸發嗎? 如果是輸入其他日期來 "假設" 為今天，這樣就不行嗎?
對了C1這欄位我想用鎖定把它保護起來，怕人家去修改到，但一鎖定VBA好像就跑不了了，能幫解決嗎?

另外 "篩選例外料號" 好像有點問題，我在A欄填入要忽略的料號，但其他料號也跟著受影響而不見了！晚上我再把圖片貼上來；

最後我的原問題想要再做點修改，不知可不可以，如下紅色字部分

問題詳細內容
C欄(C3開始)同一種料號裡，對應F欄若只有今天日期(或今天以後的日期)，則填滿紅色；
對應F欄若 "只有" 今天(或今天以後日期)與任一天，兩種日期，則填滿粉紅色(將任一天日期填滿粉紅色即可)；

反正就是今天以後日期(含今天)，都當成是今天就對了，晚上我也會一起附異動檔上來；

在此也先謝謝葉大了！

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

4^#

發表於 2016-11-18 20:13 | 顯示全部帖子

回復 6# 葉國洲

異常1
如下圖，這邊是不該出現反紅的，因為只有"今天"日期才需反紅，但該料號是有多種日期的。

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

5^#

發表於 2016-11-18 20:19 | 顯示全部帖子

回復 6# 葉國洲

異常2
如下圖，在A欄 "例外篩選料號" 處，輸入該料號，應該是會忽略所有條件而不反紅或反粉紅，但是該筆卻反粉紅色了

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

6^#

發表於 2016-11-18 21:05 | 顯示全部帖子

回復 6# 葉國洲

回復葉國洲

恩恩，有了！
所以C1欄一定要是 "真的" 今天日期，VBA才會觸發嗎? 如果是輸入其他日期來 ...
RCRG 發表於 2016-11-18 10:48

另外，我想更動的原問題內容，在此附上圖片與檔案，如下；
異動問題詳細內容
C欄(C3開始)同一種料號裡，對應F欄若"只有" 現在之後時間 "即C1欄的=NOW()" 的日期(最小時間單位會到分秒)，則填滿紅色；
對應F欄若 "只有" 現在之後時間與現在之前時間，共兩種日期或 "只有" 同種今天日期但兩個現在時間前後時間點，則填滿粉紅色；

異動後附件

異動版_如何利用VBA按鍵，將指定日期填滿顏色.rar (16.47 KB)

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

7^#

發表於 2016-11-21 10:39 | 顯示全部帖子

回復 11# 葉國洲
回復 10# 准提部林

謝謝兩位大大的回答，這就是我想要的效果，抱歉把問題表達的這麼令人費解....XD
簡單來講就是，假設現在的時間點之後都是 "炸彈"，而現在的時間點之前每筆都是盾牌，
盾牌越來越少，少到一定數量，便會出現"粉紅色"提醒我；
當盾牌都沒了，只剩炸彈(現在以後時間點)，就會出現紅色提醒我；
不知道這樣譬喻會不會很奇怪...QQ

當然如果C1欄我能夠用 =NOW()，整個準確度的效果會對我更好，但目前看來兩位大大的VBA我只能填入=TODAY()，
真的很謝謝葉大和准大解答，受用無窮，感激不盡！

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

8^#

發表於 2016-11-23 00:00 | 顯示全部帖子

回復 2# 葉國洲

請問一下，下面是一鍵清除VBA，但沒辦法連填滿的顏色也恢復成白色，
請問要如何寫才能一鍵就使範圍內恢復空白原狀呢??

Sub 一鍵清空()
Range("B3:U1000").Select
Range("B3:U1000").Activate
Selection.FormulaR1C1 = ""
Sheets("測試頁").Select
Range("B2").Select
[B1] = ""
MsgBox "清除完成！"
End Sub

TOP

RCRG

　暱稱: RCRG滾奶滾企

中學生 Rank: 2

帖子: 95
主題: 24
精華: 0
積分: 118
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-11-10
最後登錄: 2020-5-25

9^#

發表於 2016-11-24 21:58 | 顯示全部帖子

回復 13# 准提部林

今天趁著空檔試用了一下准大的版本，完全符合我需要的，真的很謝謝幫了大忙；

想請教一下，我把日期錯貼到F欄，現在想改到G欄，請問要如何修改VBA呢?

TOP