Results of 1 - 1 of about 1242 for カレンダー (0.001 sec.)
- [[20181210154151]]
- #score: 6118
- @digest: b4f966041a47cb5e13ef8b86b310ee42
- @id: 78057
- @mdate: 2018-12-11T00:03:58Z
- @size: 1504
- @type: text/plain
- #keywords: 始年 (13004), 了年 (8404), 分枚 (7380), 間枚 (7323), 分月 (6058), 月as (5412), 年月 (4326), 間分 (3163), 数印 (3151), 月= (3010), dateadd (2336), 務員 (2040), 期間 (1884), カレ (1805), datediff (1799), 枚印 (1683), 月, (1536), 月" (1531), 間" (1530), 開始 (1339), 刷() (1311), 枚数 (1241), （事 (1129), レン (1123), 2018 (1107), 事務 (1031), ンダ (990), 月間 (968), 員） (938), ダー (916), dt (887), 月を (820)
- 『期間分月ごとに印刷』（事務員）
業務管理表と言う書類を作成しました。 表は手動で"年月"を変更すると、カレンダーが変わるようになっています。 （年月を2018/1と入力すると、2018/1のカレンダーの内容に 年月を2018/2と入力すると、2018/2のカレンダーの内容に変更されます。） "年月"とは別に、"期間"を入力する欄があり、 例えば、開始:2018/1/23 終了:2018/5/16 と設定したときに 1〜5月までの5か月間分を一括で印刷するマクロを下記に作成したのですが、ここで行き詰ってしまいました。 このマクロを実行すると、期間枚数分の5枚はでてきますが、内容がすべて1月のカレンダーの内容が5枚印刷される状況です。 "年月"も1〜5月まで期間と連動して自動に変更するようにしたいのですが どのような構文を使えばよいかご教授頂けたら嬉しいです。 Sub 期間分枚数印刷() Dim dt開始年月 As Date Dim dt終了年月 As Date Dim mm As Integer dt開始年月 = Cells(4, 16) dt終了年月 = Cells(4, 20) For mm = 0 To VBA.DateDiff("m", dt開始年月, dt終了年月) Debug.Print VBA.DateAdd("m", mm, dt開始年月) Range("A1:AI33").Select Selection.PrintOut Next mm End Sub ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- Forループの中で年月を入力するセルを書き換えればいいのでは? （ねむねむ） 2018/12/10(月) 16:39 ---- ねむねむ様 ご回答ありがとうございます。 年月を入力するセルとは、下記の内容を書き換えればいけますかね? Debug.Print VBA.DateAdd("m", mm, dt開始年月) （事務員） 2018/12/10(月) 16:59 ---- まずはご自分で試してみては? （ねむねむ） 2018/12/11(火) 09:03... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181210154151.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97059 documents and 608315 words.
訪問者：