Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41842 / 76732

←次へ　｜　前へ→


	【39966】Re:配列から条件検索

Kein - 06/7/4(火) 17:12 -


	引用なし

	パスワード

Sub Ck_DaysAry()
　 Dim CkSt As String
　 Dim Ary As Variant
　
　 If Not IsDate(Range("A1").Value) Then Exit Sub
　 CkSt = Format(Range("A1").Value, "yyyy.mm.dd")
　 Ary = Array("2005.12.23", "2006.01.01", "2006.07.04")
　 If IsError(Application.Match(CkSt, Ary, 0)) Then
　　　MsgBox "その日付は休日ではありません", 48
　 Else
　　　MsgBox "その日付は休日です", 64
　 End If
End Sub

てな感じでしょーか。

1 hits

▼

【39961】配列から条件検索 aaa 06/7/4(火) 16:46