[[20040517232503]]　『VBAで第二木曜日』（koko）　ページの最後に飛ぶ

『VBAで第二木曜日』（koko）

以前「第二火曜日」の求め方を教えていただきましたが、VBAのコードだけで「第二木曜日」を求めるにはどうすればいいのでしょうか？VBAでMOD関数を使うにはどの様に記述すればいいのか分かりません。どなたか御教授願えないでしょうか？よろしくお願いいたします。

 VBAでMODワークシート関数は使えないので、Mod演算子を使います。　（りな）

 Sub tttt()
    MsgBox 10 Mod 3
 End Sub

りなさんありがとうございます。色々とやってみたのですが、うまくいきません。
=MOD（12-MOD（年&"/"&月,7）,7）+8をVBAで書きたいのですが、
書き換えるとすればどの様に記述すればいいのでしょうか？
よろしくお願いします。

 A1セルに年、Bセルに月の数値が入力してあるとします。
Sub test()
Dim myDate As Date, myDay As Integer
    myDate = DateSerial(Cells(1, 1).Value, Cells(1, 2).Value, 1)
    myDay = ((12 - (myDate Mod 7)) Mod 7) + 8
    Cells(1, 3).Value = myDay
End Sub
　
これで、A3セルに「13」が表示されます。　(マーヤ)

マーヤ様ありがとうございます。毎月の第二木曜日が必要だったので
Sub test()
Dim myDate As Date, myDay As Integer

    myDate = DateSerial(Year(Now()), Month(Now()), 1)
    myDay = ((12 - (myDate Mod 7)) Mod 7) + 8
    MsgBox "今月の第二木曜日は" & myDay & "日です。"
End Sub
とさせていただきました。大変助かりました。感謝！感謝！です。
もっともっとエクセルを勉強したいと思います。これかも、よろしくお願い致します。m(__)m(koko)

コメント返信：

[ 一覧(最新更新順) ]

[[20040517232503]] 『VBAで第二木曜日』（koko） ページの最後に飛ぶ

[[20040517232503]]　『VBAで第二木曜日』（koko）　ページの最後に飛ぶ