[[20120323115434]]　『皆様にご指導いただきつくりましたが問題がVBA　I』（すいません）　ページの最後に飛ぶ

『皆様にご指導いただきつくりましたが問題がVBA　IF』（すいません）

 教えていただいた皆様、ありがとうございます。
 なんとか、エラーがなく動くようになりましたが、思っている動作がどうしてもでてくれません。
 どこがおかしいのか、ご指摘いただけませんでしょうか？よろしくお願いします。

 Iは５行目から３０行目です。
 行いたいことは、Ｄ列の日付を元に土曜、日曜、祝日（カレンダーという別シートのＢ列に書いてあります）以外にＮ列にD3のデータを表示したいというものです。

 ElseIf Weekday(Cells(I, "D").Value) - 9 * Application.CountIf(Worksheets("カレンダー").Cells(I, "B"), Cells(I, "D")) Then

                   Cells(I, "N") = Range("D3").Value

 >思っている動作がどうしてもでてくれません

 どう、思っているか、（すいません）さんの頭の中は誰ものぞけない。
 最低でも、どうなってほしいのに、どうなってしまうということを説明したらいかが？

 (ぶらっと)

 この話はどうなりましたか？
[[20120322184101]]　『VBAのケースについてです』（すいません）　
 　スレを分けると、追っていくのが面倒なので
 　同じ問題なら続けてした方が良いと思いますよ。

 さて、
 ＞Application.CountIf(Worksheets("カレンダー").Cells(I, "B"), Cells(I, "D"))
 この部分は希望した結果を得られるのでしょうか？

 これだと、Diセルの値が カレンダーシートのBiセルに有るか無いか　しか調べていません。
 本当は、カレンダーシートの祝日を入力したセル範囲内に有るか無いかを
 調べないといけない部分ですよね？

 ワークシート上だと
 =COUNTIF(カレンダー!B1:B20,D1)
 の様に書くべき所。
 今は
 =COUNTIF(カレンダー!B1,D1)
 の様に成っています。

 ＞祝日（カレンダーという別シートのＢ列に書いてあります）
 これはざっくりした説明ですが、実際はもっと範囲は絞り込めるはずですよね？
 祝日の日付は何処へ書いてあるのですか？

 そこで話は戻りますが、
 ＞祝日が入っているセル範囲には、「祝日」という名前を付けてあります。
 と言うのをやめる事にするのですか？

 私は二重にしても良かったと思いますけどね。
 For i = 10 To 40
 　　If 祝日で無い Then
 　　　　つくっておられたSelect Case
 　　End If
 Next

 ・・・と思ったら、違うコードなのかな？
 ご説明が少しずつ違う様ですが。

 (HANA)

コメント返信：