マクロをつかってDATE配列に特定要素があるか確認

Question

シートから取り込んだDATE配列に含まれている日付かどうかを確認したいのですが型が一致しないというエラーが出ます。

実行時ｴﾗー'13': 型が一致しません。

シートから取り込み、STRINGに変換して比較という風にしているのですがうまくいきません。
どのように修正すればいいのかご教授お願いいたします。

    Dim holidays(78, 0) As String
    Dim dholidays
    Dim exworkday(28, 0) As String
    Dim dexworkday
    Dim varResH
    Dim varResW
    Dim i As Integer
    
    With ThisWorkbook.Worksheets("Sheet2")
        dholidays = .Range("A2:A80")
        dexworkday = .Range("F2:F30")
    End With
    
    For i = 0 To 78
        holidays(i, 0) = CStr(dholidays(i + 1, 1))
    Next i
    
    For i = 0 To 28
        exworkday(i, 0) = CStr(dexworkday(i + 1, 1))
    Next i
    
    With ThisWorkbook.Worksheets("Sheet1")
        For i = 1 To 31
            Dim d As String
            d = // 2020/04/03
            
            varResH = Filter(holidays, d)  // ここでエラーが発生します。
            varResW = Filter(exworlday, d)

            If UBound(varResH) <> -1 And UBound(varResW) = -1 Then
                
            End If
        Next i
    End With
End Sub

ローカルウィンドウで確認したところ、 holidays の要素も d もStringでした。

Answer 1

Filter関数に渡す配列は一次元配列のみ許可されています。
二次元配列渡しているのでエラーになっていますね。

    Dim holidays(78) As String
    Dim dholidays
    Dim exworkday(28) As String
    Dim dexworkday
    Dim varResH
    Dim varResW
    Dim i As Integer

    With ThisWorkbook.Worksheets("Sheet2")
        dholidays = .Range("A2:A80")
        dexworkday = .Range("F2:F30")
    End With

    For i = 0 To 78
        holidays(i) = CStr(dholidays(i + 1, 1))
    Next i

    For i = 0 To 28
        exworkday(i) = CStr(dexworkday(i + 1, 1))
    Next i

    With ThisWorkbook.Worksheets("Sheet1")
        For i = 1 To 31
            Dim d As String
            d = "2020/04/03"

            varResH = Filter(holidays, d)  ' ここでエラーが発生します。
            varResW = Filter(exworkday, d)

            If UBound(varResH) <> -1 And UBound(varResW) = -1 Then

            End If
        Next i
    End With

Comments

[FM88mhmh]

一次元関数しか使えないのですね！
ありがとうございます。

ちなみになのですが、ブックから配列に値を取り込んだ時に
必ず二次元配列になってしまうのですが、これはどうにもならないのでしょうか？
しかも作った配列は(0)からなのに取り込むと(1,1)からになってしまったり。。。

[yureighost]

1からなのは変えられませんが、一行のRange取得でしたら、
Application.Transpose関数と言うもので一次元配列に変換できます。
holidays = Application.Transpose(dholidays)

[FM88mhmh]

そういう関数があったんですね。。。
追加の回答ありがとうございます！

無事求めてたものを作ることができました！
ありがとうございましたm(_ _)m