Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5757 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49122】月の日にち一覧の自動表示 のぶ太 07/5/24(木) 11:01 質問[未読]
【49123】Re:月の日にち一覧の自動表示 ウッシ 07/5/24(木) 11:08 発言[未読]
【49124】Re:月の日にち一覧の自動表示 のぶ太 07/5/24(木) 11:12 質問[未読]
【49125】Re:月の日にち一覧の自動表示 ウッシ 07/5/24(木) 11:51 発言[未読]
【49126】Re:月の日にち一覧の自動表示 のぶ太 07/5/24(木) 11:58 お礼[未読]
【49127】Re:月の日にち一覧の自動表示 syugyoutyu 07/5/24(木) 12:03 回答[未読]
【49129】Re:月の日にち一覧の自動表示 通りすがり 07/5/24(木) 13:30 発言[未読]
【49132】Re:月の日にち一覧の自動表示 散歩中 07/5/24(木) 15:10 回答[未読]
【49139】Re:月の日にち一覧の自動表示 syugyoutyu 07/5/24(木) 17:37 お礼[未読]
【49122】月の日にち一覧の自動表示
質問  のぶ太  - 07/5/24(木) 11:01 -
引用なし
パスワード
   いつもお世話になっています。

下記の機能が実装できないものか色々探していますので、
ご教授いただければと思います。


B2セルに月(１月〜１２月）が入る
B2に入れた値によって、
※例えば8月
C3〜AF3までに自動で1から31が入力される。

といった処理は可能でしょうか？
可能でしたらどういった方法があるか教えていただければと思います。

XP ProのExcel2003です
【49123】Re:月の日にち一覧の自動表示
発言  ウッシ  - 07/5/24(木) 11:08 -
引用なし
パスワード
   ▼のぶ太 さん
こんにちは

関数セットしておくだけではダメなのでしょうか？
【49124】Re:月の日にち一覧の自動表示
質問  のぶ太  - 07/5/24(木) 11:12 -
引用なし
パスワード
   ▼ウッシ さん：
お返事ありがとうございます。

関数で自動で表示されるまでが実現できるのであれば、
それで問題ありません。

どのような方法になるのでしょうか？
【49125】Re:月の日にち一覧の自動表示
発言  ウッシ  - 07/5/24(木) 11:51 -
引用なし
パスワード
   こんにちは

関数は苦手なのでもっといい式があるかも知れませんが、

セルＣ3に、
>=IF(ISERROR(MONTH(YEAR(NOW())&"/"&$B$2&"/"&COLUMN()-2)),"",COLUMN()-2)
と入れて、セルAG3までフィルコピーすれば一応出来ます。

セルB2に入れるのは「1〜12」の数値で、ブックを開いてる年のB2の月の日付になります。
【49126】Re:月の日にち一覧の自動表示
お礼  のぶ太  - 07/5/24(木) 11:58 -
引用なし
パスワード
   ▼ウッシ さん：
ありがとうございます。
教えていただいた関数で試してみたいと思います。
【49127】Re:月の日にち一覧の自動表示
回答  syugyoutyu  - 07/5/24(木) 12:03 -
引用なし
パスワード
   最初の質問を読んでたら、目的は曜日を表示させたいんじゃないですか？
ウッシさんの関数を使って
C4セルに
＜=CHOOSE(WEEKDAY(C3,1),"日","月","火","水","木","金","土")
もっと簡単な方法はあるかも知れませんが？
その前に曜日はどうでも良かったりして…。
【49129】Re:月の日にち一覧の自動表示
発言  通りすがり  - 07/5/24(木) 13:30 -
引用なし
パスワード
   ▼syugyoutyu さん：
こんにちは。
横からすいません。
ウッシさんの関数はシリアル値を返しているわけではないので

>＜=CHOOSE(WEEKDAY(C3,1),"日","月","火","水","木","金","土")

は正確な曜日が得られませんよ。(^^;

賢くないかもしれませんが，私なら，
A1→2007(年)として，
C3=DATE($A$1,B2,1)
D4=IF(C3="","",IF((C3+1)=DATE($A$1,$B$2+1,1),"",C3+1))　セルAG3までフィルコピー
とすると，シリアル値となるので，syugyoutyuさんの関数が使えます。

これなら月の他，年変更にも対応できます。
ちなみに，セルの表示形式を日付にすることを忘れずに！（dとすればOK）
【49132】Re:月の日にち一覧の自動表示
回答  散歩中  - 07/5/24(木) 15:10 -
引用なし
パスワード
   のぶ太 さん
こんにちわ
もうできているかもしれませんが・・・。

>B2セルに月(１月〜１２月）が入る
>B2に入れた値によって、
>※例えば8月
>C3〜AF3までに自動で1から31が入力される。

B2：セルの書式設定の表示形式で【月】だけを表示にしておきます。
C3〜AG3？：セルの書式設定の表示形式で【日】だけを表示するようにします。

C3には【=B2】と関数をいれます。
D4には【=C3+1あとはフィルコピーで】
もしC4に曜日をいれたければ【=TEXT(C3,"aaa")あとはフィルコピーで】
B2に表示したい月の一日をいれます。
5月なら5/1。
５月としたければ、表示形式で【m"月"】にすればいいと思います。
曜日の色とかは条件付き書式で変えられます。

私自身むずかしい関数はわからないけど、これなら簡単だとおもいまして・・・。
お邪魔しました・・・。
【49139】Re:月の日にち一覧の自動表示
お礼  syugyoutyu  - 07/5/24(木) 17:37 -
引用なし
パスワード
   ▼散歩中 さん：のぶ太 さん
ありがとうございます。本当ですね。確認不足でした。
これからもここにはアクセスしてますので、色々参考にさせていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5757 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free