VBA 型が一致しない

Question

月末と月初を求める関数を作成しているのですが、
この関数(プロジャー)を呼び出すと、「型が一致しない」というメッセージが表示されてしまいます。cmbMonth.Valueになにも値が入っていないようです。

どなたかご教授お願い致します。

以下コード抜粋↓

Option Explicit

Public StartDay As Date
Public EndDay As Date

Public Sub SettingList()

If cmbYear.Value = "" Then Exit Sub
If cmbMonth.Value = "" Then Exit Sub
StartDay = DateSerial(cmbYear.Value, cmbMonth.Value, 1) 'ここで型が一致しないと表示されてしまう。
EndDay = DateSerial(cmbYear.Value, cmbMonth.Value + 1, 1) - 1

以下年月の設定を行っているコンボボックスの設定

Private Sub UserForm_Initialize()

    Dim i As Integer
    With cmbYear
        Dim FromYear As Integer
        Dim ToYear As Integer

        FromYear = Year(Date) - 2
        ToYear = Year(Date)
        
        
        For i = FromYear To ToYear
            .AddItem i
        Next
        .Value = ToYear
    
    End With
    
    With cmbMonth
        For i = 1 To 12
            .AddItem i
        Next
        .Value = 1
    End With
    
```![イメージ説明](6a3172cde9af0465eb5a16897708403e.png)

Answer 1

DateSerialの引数は数値型ですが、コンボボックスのValueプロパティが文字列型のためと思われます。
数値型に明示的に変換してやればよいのではないでしょうか。

StartDay = DateSerial(Val(cmbYear.Value), Val(cmbMonth.Value), 1)
EndDay = DateSerial(Val(cmbYear.Value), Val(cmbMonth.Value) + 1, 1) - 1

DateSerial 関数
Val 関数

Comments

[退会済みユーザー]

解答有難うございます。1点質問なのですが、
Valというものを付けると数値型になるのでしょうか？

[SVC34]

はい。Valは文字列型を数値型に型変換する関数です。