Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11660 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14921】年月を一ヶ月ずつ増やすには どらちゃん 04/6/10(木) 14:14 質問[未読]
【14923】Re:年月を一ヶ月ずつ増やすには ちゃっぴ 04/6/10(木) 14:27 回答[未読]
【14924】Re:年月を一ヶ月ずつ増やすには ちゃっぴ 04/6/10(木) 14:34 回答[未読]
【14926】Re:年月を一ヶ月ずつ増やすには どらちゃん 04/6/10(木) 14:52 質問[未読]
【14943】Re:年月を一ヶ月ずつ増やすには ちゃっぴ 04/6/10(木) 23:03 回答[未読]
【14967】Re:年月を一ヶ月ずつ増やすには どらちゃん 04/6/12(土) 0:06 質問[未読]
【14921】年月を一ヶ月ずつ増やすには
質問  どらちゃん  - 04/6/10(木) 14:14 -
引用なし
パスワード
   お世話になります。
過去の質問を検索したり自分で試行錯誤してみたのですが
データ型の理解が足りないためどうにもうまく作ることができないので
どなたかどうかお願いします。

書きたいマクロは・・・
指定期間が「FROM　2003／10／15」「TO　2004／2／10」だったら、
200310.xls、200311.xls、200312.xls、200401.xls、200402.xlsを
開きにいく、といったものです。

ちなみにyear(Dateadd関数) & month(Dateadd関数)みたいなかたちにして
トライしてみましたが・・・。
どうぞお知恵をかしてください！
【14923】Re:年月を一ヶ月ずつ増やすには
回答  ちゃっぴ  - 04/6/10(木) 14:27 -
引用なし
パスワード
   状況がよくつかめませんが･･･

Month関数は 1 〜 12 の値を返します。
おそらく一桁の場合の頭「0」が抜けているのでは？
【14924】Re:年月を一ヶ月ずつ増やすには
回答  ちゃっぴ  - 04/6/10(木) 14:34 -
引用なし
パスワード
   こうした方が簡単かも？

Format$(Dateadd("m", 数値, 日付), "yyyymm")
【14926】Re:年月を一ヶ月ずつ増やすには
質問  どらちゃん  - 04/6/10(木) 14:52 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>状況がよくつかめませんが･･･
>
>Month関数は 1 〜 12 の値を返します。
>おそらく一桁の場合の頭「0」が抜けているのでは？

そうなんです。そのやり方がわかりません。
「200401」としたいのに、「20041」になってしまいますし。
というわけで、これをLOOPなりで一ヶ月ずつ増やすこともできません・・・。

やりたいことは特殊なことでもないですし
結構簡単に出来たりするような気がするのですが
どうかよろしくお願いします。
【14943】Re:年月を一ヶ月ずつ増やすには
回答  ちゃっぴ  - 04/6/10(木) 23:03 -
引用なし
パスワード
   どらちゃん さんはこれ読んでくれたのでしょうか？

> Format$(Dateadd("m", 数値, 日付), "yyyymm")

ちなみに、どうしても頭に0をつけたいならIF文などで条件分岐すれば出来ます。

Dim strMonth As String
strMonth = Month$(Dateadd("m", 数値, 日付))
IIf(Len(strMonth) = 1, "0", "") & strMonth

ああ、めんど･･･
【14967】Re:年月を一ヶ月ずつ増やすには
質問  どらちゃん  - 04/6/12(土) 0:06 -
引用なし
パスワード
   ▼ちゃっぴ さん：
>どらちゃん さんはこれ読んでくれたのでしょうか？
>
>> Format$(Dateadd("m", 数値, 日付), "yyyymm")
>
読みました。入れ違いになったようでしかも返事が遅くなりました。

ありがとうございます。
これを変数に入れてloopで繰り返して、ちゃんとMONTHとしてひと月ずつ増やすのをうまくできるか不安ですが、トライしてみます。
説明が下手でわかりづらくて申し訳ありませんが
また来週なにかあればどうかよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11660 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free