返回列表 上一主題 發帖

[發問] 顯示每週的固定日

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-18 22:25 | 顯示全部帖子

[發問] 顯示每週的固定日

本帖最後由 jesscc 於 2011-6-18 22:38 編輯

當我製作完一份文件要存檔時，可能是本週週五，也可能是下週週一或週二，而我希望在C4能固定顯示下週四的日期，不知該如何做?
  1. Sub dd()
  2. myDay = Format(Date + Weekday(Date) - 2, "e" & "." & "m" & "." & "dd")
  3. Sheets("da").Range("C4") = "出貨日:" & myDay
  4. End Sub
複製代碼
註:
有兩個"&"無法顯示
"e" 後面那個和"出貨日:"後面那個
收藏 分享
Jess

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
2#
發表於 2011-6-18 22:51 | 顯示全部帖子
我希望用這種格式顯示
Format(Date, "e" & "." & "m" & "." & "dd")
像這樣  2010.6.23
Jess

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
3#
發表於 2011-6-19 12:26 | 顯示全部帖子
是的!抱歉，我key錯了。
應該是100.6.23
Jess

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
4#
發表於 2011-6-19 18:11 | 顯示全部帖子
謝謝 GBKEE 大幫我精簡化
Hsieh大，我用這個方法，顯示出來的還是上週的週四(100.6.16)

d = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
Sheets("da").Range("C4") = "出貨日:" & d

我是希望在第一個週四以後到第二個週四之前的任何一天存檔，都能夠固定顯示第二個週四的日期。
Jess

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題