jesscc

中學生 Rank: 2

帖子: 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能固定顯示下週四的日期，不知該如何做?

Sub dd()
myDay = Format(Date + Weekday(Date) - 2, "e" & "." & "m" & "." & "dd")
Sheets("da").Range("C4") = "出貨日:" & myDay
End Sub

複製代碼

註:
有兩個"&"無法顯示
"e" 後面那個和"出貨日:"後面那個

樓主熱帖

Jess

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-6-18 22:43 | 只看該作者

d = Date
Do
d = d + 1
Loop Until Weekday(d, 2) = 4
MsgBox d

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 2011-6-18 22:51 | 只看該作者

我希望用這種格式顯示
Format(Date, "e" & "." & "m" & "." & "dd")
像這樣 2010.6.23

Jess

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2011-6-19 10:02 | 只看該作者

Format(Date, "e" & "." & "m" & "." & "dd")
結果會變成 100.6.23，不是2010.6.23

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

5^#

發表於 2011-6-19 12:26 | 只看該作者

是的!抱歉，我key錯了。
應該是100.6.23

Jess

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-6-19 15:50 | 只看該作者

回復 5# jesscc
Format(Date, "e.m.dd") 可以不必加 &

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2011-6-19 17:25 | 只看該作者

當日的下周四日期
Date+4-WEEKDAY(Date,2)

學海無涯_不恥下問

TOP

jesscc

中學生 Rank: 2

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

論壇贊助勳章

8^#

發表於 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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2011-6-19 22:05 | 只看該作者

回復 8# jesscc

d = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")

學海無涯_不恥下問

TOP