首先，我對excel VBA不是很有經驗。在網上和youtube上搜索后我無法弄清楚，所以我希望你能幫助我。
我在 ComboBox1 中有 2 個專案，一個是僅限有氧運動，第二個是僅限健身房。我想根據 Combobox1 選擇在 TextBox8 中自動填充更新日期。
就像，如果我選擇“僅限 CARDIO”，那么下一個續訂日期應該是 90 天 當前日期或 3 個月 TextBox8 中的當前日期。如果我選擇“僅限健身房”，那么在 TextBox8 中，下一個續訂日期應該是 30 天 當前日期或 1 個月 當前日期。
即（以天為單位）
90 22/01/2022 = 22/04/2022
30 22/01/2022 = 21/02/2022
（以月計）
3 22/01/2022 = 22/04/2022
1 22/01/2022 = 21/02/2022
感謝您的幫助。
提前致謝！
雪莉酒
uj5u.com熱心網友回復：
Private Sub ComboBox1_Change()
Dim mth As Long
Select Case Me.ComboBox1.Value
Case "GYM ONLY"
mth = 1
Case "CARDIO ONLY"
mth = 3
End Select
If mth > 0 Then
Me.TextBox8 = Format(DateAdd("m", mth, Date), "dd/mm/yyyy")
End If
End Sub
uj5u.com熱心網友回復：
使用它來將 3 個月添加到當前日期：
DateAdd("m", 3, Date)
這會將 90 天添加到當前日期
DateAdd("d", 90, Date)
請注意，添加天數和添加月數并不總是產生相同的結果，具體取決于月中的天數。
例如DateAdd("m", 1, #2002/1/30#)產量2002/02/28。
但DateAdd("d", 30, #2002/1/30#)產量2002/03/01。
另請參閱：DateAdd 函式
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/419969.html
標籤：
上一篇：計算最大連續零值-嘗試不計算空白單元格但ISNUMBER不起作用
下一篇：查找和替換列名的VBA宏