Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10014 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24357】曜日が変更されるたびに… R 05/4/20(水) 14:29 質問[未読]
【24358】Re:曜日が変更されるたびに… IROC 05/4/20(水) 15:22 発言[未読]
【24366】Re:曜日が変更されるたびに… R 05/4/20(水) 16:34 質問[未読]
【24369】Re:曜日が変更されるたびに… zhen 05/4/20(水) 17:45 回答[未読]
【24395】Re:曜日が変更されるたびに… R 05/4/21(木) 11:56 お礼[未読]
【24357】曜日が変更されるたびに…
質問  R  - 05/4/20(水) 14:29 -
引用なし
パスワード
   一ヶ月の勤務表があり、「○月」という部分を変更する都度、
日にちに対しての曜日は変更されるようになっているのですが

その曜日に合わせて、登録されてある勤務時間なども移動させたいと考えております…

マクロを使い実行させようとしているのですが、
どのような方法が考えられるか知恵を貸していただけないでしょうか。
【24358】Re:曜日が変更されるたびに…
発言  IROC  - 05/4/20(水) 15:22 -
引用なし
パスワード
   ご自分で説明不十分だと思いませんか？
その説明だけで、理解できる人はいないと思います。
こちらには、あなたのパソコンの画面が見えるわけではありませんよ･･･
【24366】Re:曜日が変更されるたびに…
質問  R  - 05/4/20(水) 16:34 -
引用なし
パスワード
   説明不足との事、すみません。

まずエクセルに、良く会社などで使用される勤務表(月報)を作成してあります。
その表の上の方に、「４月」や「５月」などという月が表示されており、
その月(数字)を変更すると

「４月」→「５月」　というように。

その下に表示されてある一ヶ月の日付に対しての曜日は
自動的に変更されるようになっております。

「４月１日【金】」　→　「５月１日【日】」　というように。

その時に、曜日と同時に４月の金曜日に記載されていた勤務時間などを
５月の金曜日にすべてコピーをしたいと思っております。

月曜のものは月曜日に。火曜日のものは火曜日に。というように。

その時にどのような方法でマクロを作成するのかを考えております。
上記のような説明で解りましたでしょうか…

何か考えがありましたら、知恵をお貸しください。
【24369】Re:曜日が変更されるたびに…
回答  zhen  - 05/4/20(水) 17:45 -
引用なし
パスワード
   曜日毎にパターンが決まってるとは、

　　曜日　出勤　退勤　 休憩　勤務
　　月　　8:00　17:00　1:00　7:00
　　火　 10:00　19:00　1:00　7:00
　　・・

のような感じでいいんでしょうか？
↑が固定ならコード部に直接条件分岐で記述してもいいですし、

　　　EX)
　　　　Select Case [曜日].Value
　　　　　Case　"月"
　　　　　　[出勤].Value = #8:00:00 AM#
　　　　　　[退勤].value = #5:00:00 PM#
　　　　　Case　"火"

　　　　End select
　　※[]＝セル位置。
　　※#5:00:00 PM#　を代入するセルの書式設定で　"17:00"等の表示に変更可

固定でないなら、シートを追加して曜日別既定値の表を設けた方が変更しやすくなります。
その場合、コード内で上記と同様に条件分岐させてもいいですし、関数（VLookup）を利用して既定値の表を直接参照させてもいいです。
【24395】Re:曜日が変更されるたびに…
お礼  R  - 05/4/21(木) 11:56 -
引用なし
パスワード
   ▼zhen さん：

ありがとうございます！参考させていただきます！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10014 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free