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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

因輸入資料時
需要輸入大量日期(儲存格獨立放置一個日期)
容易將年份輸入錯誤(例:7/8/2016錯誤打成7/8/2014)
錯誤造成該項資料過時

想問問有沒有方法輸入日期資料時
當日期輸入時是今天或今天之前
字體會變成另一種顏色(例如:紅色)

樓主熱帖

p212

高中生 Rank: 3 Rank: 3

帖子: 617
主題: 17
精華: 0
積分: 662
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-3-7

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

2^#

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

回復 1# K_Wing

Fig.jpg (70.06 KB)

TOP

K_Wing

中學生 Rank: 2

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

3^#

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

回復 2# p212
感謝兄弟幫忙
『條件格式化』此方法已試過
只能規限今天和昨天
儲存格的日期才會變色
但若然再早一些日子
日期郤沒有轉色

我想要的是：今日又或今日之前的日期會變色

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

4^#

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

DEAR SIR
『條件格式化』試試改公式
=IF(C4-NOW()<=0,TRUE,FALSE)

羅

TOP

K_Wing

中學生 Rank: 2

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

5^#

發表於 2014-12-15 17:01 | 只看該作者

DEAR SIR
『條件格式化』試試改公式
=IF(C4-NOW()<=0,TRUE,FALSE)
rouber590324 發表於 2014-12-15 16:29

多謝兄弟拔刀相助
已嘗試過在『條件格式化』加入此公式
得出的答案是
無論今日之前或後
日期都會變色

另想問問公式中的"C4"是代表甚麼?

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

6^#

發表於 2014-12-15 18:46 | 只看該作者

回復 5# K_Wing

C4 => 儲存格 C欄第4列

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

7^#

發表於 2014-12-15 19:03 | 只看該作者

回復 5# K_Wing

此寫法針對A5這個欄位的日期去跟現在的時間比較~ 而改變顏色~
可以，試做看看~

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A5") And Range("A5") < Now() Then
Range("A5").Interior.ColorIndex = 3
End If
End Sub

複製代碼

學習才能提升自己

TOP

K_Wing

中學生 Rank: 2

帖子: 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
哈哈...
我這個小學生
說出來實在汗顏
語法還不懂放到那裡使用...
不過還是要多謝兄弟幫忙

TOP

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開啟的方式~ 有誤的話~ 請見諒)

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

學習才能提升自己

TOP

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.再試試.

羅

TOP