Results of 1 - 1 of about 14741 for VBA�������������� (0.003 sec.)
- [[20040517232503]]
- #score: 3407
- @digest: ba7a844a65c3393f16e00286e212f86f
- @id: 6690
- @mdate: 2004-05-18T02:37:41Z
- @size: 1410
- @type: text/plain
- #keywords: 二木 (31260), myday (9702), 年&" (7815), 二火 (6272), 木曜 (5039), ヤ様 (4419), 第二 (4343), mydate (3565), 謝! (2775), でmo (1966), ーヤ (1919), dateserial (1889), 「第 (1862), 月, (1536), koko (1359), ヤ) (1156), 曜日 (1092), 火曜 (975), mod (822), の第 (770), 御教 (768), 算子 (745), 今月 (662), ト関 (599), マー (490), 述す (472), 授願 (452), 演算 (450), integer (432), 感謝 (421), 変助 (413), 毎月 (413)
- 『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)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040517232503.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608342 words.
訪問者：