月末と月初を求める関数を作成しているのですが、
この関数(プロジャー)を呼び出すと、「型が一致しない」というメッセージが表示されてしまいます。cmbMonth.Valueになにも値が入っていないようです。
どなたかご教授お願い致します。
以下コード抜粋↓
vba
1Option Explicit 2 3Public StartDay As Date 4Public EndDay As Date 5 6Public Sub SettingList() 7 8If cmbYear.Value = "" Then Exit Sub 9If cmbMonth.Value = "" Then Exit Sub 10StartDay = DateSerial(cmbYear.Value, cmbMonth.Value, 1) 'ここで型が一致しないと表示されてしまう。 11EndDay = DateSerial(cmbYear.Value, cmbMonth.Value + 1, 1) - 1 12
以下年月の設定を行っているコンボボックスの設定
vba
1Private Sub UserForm_Initialize() 2 3 Dim i As Integer 4 With cmbYear 5 Dim FromYear As Integer 6 Dim ToYear As Integer 7 8 FromYear = Year(Date) - 2 9 ToYear = Year(Date) 10 11 12 For i = FromYear To ToYear 13 .AddItem i 14 Next 15 .Value = ToYear 16 17 End With 18 19 With cmbMonth 20 For i = 1 To 12 21 .AddItem i 22 Next 23 .Value = 1 24 End With 25 26```![イメージ説明](6a3172cde9af0465eb5a16897708403e.png)
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2017/05/03 04:45
2017/05/03 04:48