【マクロ】Weekday関数を使って祝日を表示

質問

はじめまして。エクセルマクロ初心者です。
不慣れな点も多いかと思いますがよろしくお願いいたします。

現在エクセルマクロを利用して下記作業を実施しようとしています。

***************************************************
(1)【Sheet1】Ａ列が平日ならその行をすべて（空白セルも全て）抜き出し、
　 【入力ミスシート】のA2セルから順番に転記したい

(2)【Sheet1】A列が祝日であるかを判別するために【祝日シート】を用意
　　A列に祝日の日程が記述されている

　　もし、【Sheet1】A列の情報と【祝日シート】A列の情報が一致するなら
　　その情報は【入力シート】に転記しない

(3)祝日はWeekday関数を用いて7と認識されるようにしたい
***************************************************

このために以下のコードを作成いたしましたがうまくいきません。
コード自体も大変おかしくそのためうまくいかないのが分かっているのですが
周りに聞ける人もおらず困っております。

どうかご教示くださいませ。
よろしくお願いいたします。

dim i as variant
dim a as integer
dim mysh1 as worksheet
dim mysh3 as worksheet
dim holiday as variant

i=2

set mysh1 =Worksheets("sheet1")
set mysh3 =Worksheet("祝日")

do until cells(i,1).value =""
a=weekday(cells(i,1)) '現在の曜日を日付で取得

'sheet1A列の情報と祝日シートのA列の情報が一致するか調べる
holiday = Application.vlookup(mysh1.cells(i,1),mysh3.columns("A"),1,false)
'もし一致するならWeekday関数が曜日にかかわらず０と認識させる

Selecｔ　Case　a
　　case 1,7,0 'もしａが土日祝の場合マクロを終了させます

　　Exit Sub

　　Ｃａｓｅ　Else

End　Select

i=i+1

Loop

end sub

回答No.2

o_chi_chi

>もし一致するならWeekday関数が曜日にかかわらず０と認識させる

この部分がロジックに反映されていないためです。

また

>(3)祝日はWeekday関数を用いて7と認識されるようにしたい

と矛盾してるんですが、7と認識させるよりは0の方が整合性が取れると思います。

で方法ですが、

vlookupは見つからないとエラーを返すのでそれを利用して

If IsError(Application.vlookup(mysh1.cells(i,1),mysh3.columns("A"),1,false)) Then
'見つからなければなにもしない
Else
'見つかれば0を設定
a = 0
End If

もしくは

If Not IsError(Application.vlookup(mysh1.cells(i,1),mysh3.columns("A"),1,false)) Then
'見つかれば0を設定
a = 0
End If

回答No.1

misawajp

holiday = Application.vlookup(mysh1.cells(i,1),mysh3.columns("A"),1,false)

が　判定される　a　に反映されていないようですが

デバッグは　思い込みで　頭の中で補完してしまい単純なミスに気付けないことが多いです

一晩寝るとか、休憩するとかして　頭をリセットすると気付き易くくなります

なお、祝日をWeekday関数で判定させることは出来ません　その外側にユーザ定義で仕組まなければなりません（Weekday関数を拡張するのも一法ですが非現実的）