|
▼Kein さん:
>要するに"動的配列"に変更したい、ということですね ?
そうです。
そこでKeinさんからいただいたコードで下記のように変更しました。
(一部抜粋しました)
Dim Ary() As String
For i = 1 To j
n = cnsKeyName & i
strTEXT = FP_GetIniString(cnsAppName, n, cnsDefault, _
ThisWorkbook.Path & cnsFileName)
strTEXT = Format(strTEXT, "yyyy/mm/dd")
ReDim Preserve Ary(i)
Ary(i) = strTEXT
Next i
'結果の表示
If Application.Match(onDate, Ary(i), 0) Then
MsgBox "祝日です"
Else
MsgBox "祝日ではありません"
End If
Erase Ary
すると
「型が一致しません。」とエラーが出ます。
どう対処したらよいのでしょうか?
また下記の方法も試しましたが、同様のエラーが出ます。
For i = 1 To j
If Application.Match(onDate, Ary(i), 0) Then
MsgBox "祝日です"
Else
MsgBox "祝日ではありません"
End If
Next i
何度も何度もすいません。
お手数かけますが宜しくお願いします。
|
|