- 帖子
- 353
- 主題
- 5
- 精華
- 0
- 積分
- 386
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- vba,vb,excel2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-1-8
- 最後登錄
- 2024-5-3
 
|
本帖最後由 singo1232001 於 2022-8-18 23:52 編輯
回復 7# av8d
Sub test()
Set Sc = Sheets("系統檔").ComboBox1
Sc.Clear
For i = 11 To -11 Step -1
w = Weekday(Date - i, 2)
If w >= 1 And w <= 5 Then Sc.AddItem Format(Date - i, "yyyy/m/d") & " " & WeekdayName(w, 1, 2)
Next
Select Case Weekday(Date, 2)
Case Is = 1, 5: Sc.Text = Format(Date + 4, "yyyy/m/d") & " " & WeekdayName(Weekday(Date + 4, 2), 1, 2)
Case Is = 2, 6: Sc.Text = Format(Date + 3, "yyyy/m/d") & " " & WeekdayName(Weekday(Date + 3, 2), 1, 2)
Case Is = 3: Sc.Text = Format(Date + 2, "yyyy/m/d") & " " & WeekdayName(Weekday(Date + 2, 2), 1, 2)
Case Is = 4: Sc.Text = Format(Date + 1, "yyyy/m/d") & " " & WeekdayName(Weekday(Date + 1, 2), 1, 2)
End Select
End Sub
1. Sheets("系統檔").ComboBox1 可以縮寫成你想要到名稱
2.多條件判斷 可以練習使用select case 當然if也沒問題
會用的原因是 當多條件內部 未來出現多層判斷時 可以select case + if then 搭配 比較好分辨
若完成後 也可以直接全部使用with Sheets("系統檔").ComboBox1 的方式全包起來 |
|
發表於 2022-8-17 02:55
| 
