|
▼Kein さん:
参考にさせていただき一度やってみたのですが、配列に取り込むところがうまくいかないせいで、マッチできません。
Keinさんに書いていただいた
> Ary = Array("2005.12.23", "2006.01.01", "2006.07.04")
の箇所ですが、その値は変わることがあるので設定ファイルより読み込み変数に代入してこちらの配列に入れたいのです。
そこで下記のようにしました。
Dim strTEXT As String
Dim i As Integer
Dim j As Integer
Dim Ary As Variant
Dim onDate As String
Worksheets("main").Activate
onDate = Format(Worksheets("Sheet1").Range("B7").Value, "yyyy.mm.dd")
Ary = ""
j=31
For i = 1 To j
n = cnsKeyName & i
'設定ファイルから読み込み(関数使用)
strTEXT = FP_GetIniString(cnsAppName, n, cnsDefault, _
ThisWorkbook.Path & cnsFileName)
strTEXT = Format(strTEXT, "yyyy/mm/dd")
Ary = Ary & "" & strTEXT & "" & ","
Next i
' 結果の表示
If Application.Match(onDate, Ary, 0) Then
MsgBox "祝日です"
Else
MsgBox "祝日ではありません"
End If
これだとうまくいくはずがありませんが、色々考えましたが結局わかりませんでした。
教えていただけませんか?
|
|