求助：今日或今日之前的日期,字體變色

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

16^#

發表於 2014-12-18 00:08 | 只看該作者

回復 15# hugh0620
感謝hugh0620兄熱心幫忙
這個方法同樣用得著

可惜論壇未有『熱心』和『感謝』這類評分
否則一定會給各位兄弟奉出謝意

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

15^#

發表於 2014-12-17 11:18 | 只看該作者

本帖最後由 hugh0620 於 2014-12-17 11:21 編輯

回復 8# K_Wing
格式化條件操作

新增第一個條件設定

新增第二個條件設定

透過管理規則，查看設了幾個條件

學習才能提升自己

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

14^#

發表於 2014-12-16 10:12 | 只看該作者

回復 K_Wing
選取輸入日期的範圍，(圖片中以A欄為輸入日期欄位)
A1為作用中儲存格
格式化條件/使用公式 ...
Hsieh 發表於 2014-12-16 09:24

非常感謝
完全成功了
真是感激流涕

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

13^#

發表於 2014-12-16 10:03 | 只看該作者

回復 10# rouber590324
感謝兄弟幫忙
不知何解
由A19至A22
只有部分日期能出現正確效果

這並不打緊
我會再反覆測試的
再說一聲多謝

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

12^#

發表於 2014-12-16 09:30 | 只看該作者

回復 K_Wing
可以開一個新檔案測試

Excel 2007的話~ 先到一般->開發人員勾選起來~ 就有選項可以讓你開啟VB的程式撰寫區
(現在我是用2013~ 所以有點忘記2007VB開啟的方式~ 有誤的話~ 請見諒)

可以參照下面圖片或是爬爬文就知道了~

hugh0620 發表於 2014-12-16 00:17

一再感謝兄弟相助
我使用的版本
似乎與兄弟的版本略有不同

又或笨拙的我未能按圖索驥

我只是想避免資料因錯手而造成日期錯誤
導致被誤會為資料已過期
才會想出由表格給我作出提醒
(總比每次都由上司作出提醒的好)

其實最簡單的方法就是自己多留神
用多點時間覆Check就可以了

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 103
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-5-4

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

11^#

發表於 2014-12-16 09:24 | 只看該作者

回復 1# K_Wing
選取輸入日期的範圍，(圖片中以A欄為輸入日期欄位)
A1為作用中儲存格
格式化條件/使用公式值來決定格式化哪些儲存格
=(A1<>"")*(A1<=TODAY())

學海無涯_不恥下問

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

10^#

發表於 2014-12-16 08:52 | 只看該作者

1. =IF(AND(A1-NOW()<=0,A1<>""),TRUE,FALSE)
1.1 A1  => 儲存格第1欄第1列
2.你將滑屬移於A1儲儲存格.然後格式-設定格式化條件-公式為
  2.1  COPY =IF(AND(A1-NOW()<=0,A1<>""),TRUE,FALSE)
2.2  要變之字形/外匡/顏色內容需自行選取(無選取不會變色)
3.於 A1 輸入 12/16之前會依ITEM2.2你想要之需求變色.
4.再試試.

羅

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

9^#

發表於 2014-12-16 00:17 | 只看該作者

本帖最後由 hugh0620 於 2014-12-16 00:18 編輯

回復 8# K_Wing

可以開一個新檔案測試

Excel 2007的話~ 先到一般->開發人員勾選起來~ 就有選項可以讓你開啟VB的程式撰寫區
(現在我是用2013~ 所以有點忘記2007VB開啟的方式~ 有誤的話~ 請見諒)

可以參照下面圖片或是爬爬文就知道了~

學習才能提升自己

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

8^#

發表於 2014-12-15 20:37 | 只看該作者

本帖最後由 K_Wing 於 2014-12-15 20:39 編輯

回復 7# hugh0620
:L
哈哈...
我這個小學生
說出來實在汗顏
語法還不懂放到那裡使用...
不過還是要多謝兄弟幫忙