[發問] 直式日期+星期公式之疑惑...

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

15^#

發表於 2023-5-22 23:41 | 只看該作者

回復 14# Andy2483

非常感謝 Andy2483 不吝指導

年(月)份設定右鍵指定巨集就能達成所需結果…感恩啊 ^^

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

14^#

發表於 2023-5-22 07:51 | 只看該作者

本帖最後由 Andy2483 於 2023-5-22 07:52 編輯

回復 13# cypd

謝謝前輩再回復
右鍵指定巨集:

輸入 TEST_2:

年份同樣的方式設定

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

cypd

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

13^#

發表於 2023-5-20 00:37 | 只看該作者

回復 12# Andy2483

非常感謝 Andy2483 再度更新

經實測正常顯示

今希望經由點擊年或月上下鍵時...日期及星期能自動更新顯示該如何修正程式嗎??

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

12^#

發表於 2023-5-17 07:13 | 只看該作者

回復 11# cypd

謝謝前輩
後學囫圇吞棗的學習想必困擾各位了,謝謝論壇的包容,謝謝各位前輩指教
後學訂正如下的學習方案心得註解,請前輩參考

Option Explicit
Sub TEST_2()
Dim Brr, i&, Y%, M%, D1 As Date, D2 As Date, N%
'↑宣告變數
Y = [AH1] + 1911: M = [AH2]: D1 = Y & "/" & M & "/" & "1"
'↑令Y變數是 [AH1]儲存格值+1911,
'令M變數是 [AH2]儲存格值,
'令D1這日期變數是西元年/月/1
Y = IIf(M = 12, Y + 1, Y): M = IIf(M = 12, 1, M + 1)
'如果月份是12,就令年分+1,
'如果月份是12,就令月份是 1月,否則就將月份+1,
'這是要處裡跨年辨認12月最後一天
D2 = Y & "/" & M & "/" & "1": D2 = D2 - 1
'↑令D2這日期變數是西元年/月/1 (D2是下個月的第1天)
With [A4:B65]
'↑以下是關於儲存格的程序
.ClearContents: Brr = .Value
'↑清除儲存格內容
.FormatConditions.Delete
'↑刪除格式化條件
.Interior.ColorIndex = xlNone
'↑令儲存格底色是無色
For i = 0 To (D2 - D1)
'↑設順迴圈
   Brr(i * 2 + 1, 1) = D1 + N: Brr(i * 2 + 1, 2) = Right(Format(D1 + N, "aaa"), 1)
   '↑令日期與星期寫入Brr陣列裡
   If InStr("六日", Brr(i * 2 + 1, 2)) Then Cells(i * 2 + 4, "B").Interior.ColorIndex = 38
   '↑令即將是星期六日的儲存格底色先變為桃紅色
   N = N + 1
   '↑令N變數累加 1
Next
.Value = Brr
'↑令Brr陣列值寫入儲存格中
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

cypd

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

11^#

發表於 2023-5-17 00:35 | 只看該作者

回復 10# Andy2483

非常感謝 Andy2483 再度更新

依所式之程式碼測試結果

起始日期少一天...

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

10^#

發表於 2023-5-15 08:26 | 只看該作者

本帖最後由 Andy2483 於 2023-5-15 08:28 編輯

回復 9# cypd

謝謝前輩回復,一起學習
後學今天複習這帖,方案學習心得註解如下,請前輩參考

Option Explicit
Sub TEST_2()
Dim Brr, i&, Y%, M%, D1 As Date, D2 As Date
'↑宣告變數
Y = [AH1] + 1911: M = [AH2]: D1 = Y & "/" & M & "/" & "1"
'↑令Y變數是 [AH1]儲存格值+1911,
'令M變數是 [AH2]儲存格值,
'令D1這日期變數是西元年/月/1
Y = IIf(M = 12, Y + 1, Y): M = IIf(M = 12, 1, M + 1)
'如果月份是12,就令年分+1,
'如果月份是12,就令月份是 1月,否則就將月份+1,
'這是要處裡跨年辨認12月最後一天
D2 = Y & "/" & M & "/" & "1": D2 = D2 - 1
'↑令D2這日期變數是西元年/月/1 (D2是下個月的第1天)
'↑令D2變數是自身日期的前一天(也就是上個月的最後一天)
With [A4:B65]
'↑以下是關於儲存格的程序
.ClearContents: Brr = .Value
'↑清除儲存格內容
.FormatConditions.Delete
'↑刪除格式化條件
.Interior.ColorIndex = xlNone
'↑令儲存格底色是無色
For i = 0 To (D2 - D1)
'↑設順迴圈
   Brr(i * 2 + 1, 1) = D1 + i + 1: Brr(i * 2 + 1, 2) = Right(Format(D1 + i + 1, "aaa"), 1)
   '↑令日期與星期寫入Brr陣列裡
   If InStr("六日", Brr(i * 2 + 1, 2)) Then Cells(i * 2 + 4, "B").Interior.ColorIndex = 38
   '↑令即將是星期六日的儲存格底色先變為桃紅色
Next
.Value = Brr
'↑令Brr陣列值寫入儲存格中
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

cypd

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

9^#

發表於 2023-5-14 16:59 | 只看該作者

回復 8# Andy2483

非常感謝 Andy2483

實測之後執行順暢...感謝

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

8^#

發表於 2023-5-8 15:08 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA的方法,學習方案如下:

Option Explicit
Sub TEST_2()
Dim Brr, i&, Y%, M%, D1 As Date, D2 As Date, N%
Y = [AH1] + 1911: M = [AH2]: D1 = Y & "/" & M & "/" & "1"
Y = IIf(M = 12, Y + 1, Y): M = IIf(M = 12, 1, M + 1)
D2 = Y & "/" & M & "/" & "1": D2 = D2 - 1
With [A4:B65]
.ClearContents: Brr = .Value: .FormatConditions.Delete: .Interior.ColorIndex = xlNone
For i = 0 To (D2 - D1)
   Brr(i * 2 + 1, 1) = D1 + N: Brr(i * 2 + 1, 2) = Right(Format(D1 + N, "aaa"), 1)
   If InStr("六日", Brr(i * 2 + 1, 2)) Then Cells(i * 2 + 4, "B").Interior.ColorIndex = 38
   N = N + 1
Next
.Value = Brr
End With
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

cypd

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

7^#

發表於 2023-5-5 00:49 | 只看該作者

回復 5# 准提部林

感謝准提部林 ...

已參酌民國年, +1911

所提問題已修正完成 ^^