Excel VBA質問箱 IV

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

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


62032 / 76732 ←次へ | 前へ→

【19310】Re:ここまでは考えたのですが・・・.
お礼  ponpon  - 04/10/27(水) 23:25 -

引用なし
パスワード
   ▼Hirofumi さん:
>一応、コメントを付けて見ましたけれど
>何か言い回しが下手で上手く説明が出来ていないかも?

 いえいえ、大変な作業をありがとうございました。細かいところは別として、非力な私にも「なるほど」と思うところがたくさんありました。
 ありがとうございました。
 はじめに、VBAを使わずに、関数でできるだけがんばって組んでいたので、VBAでする場合に、いろいろと不都合が出てきました。ループさせるのにいろいろと苦労しています。
 学期ごとに組んでいるので、4 5 6 7月と8 9 10 11 12月の間に入力用時間割表があったり、VBAを始めてああしておけばよかったと思うことがたくさんあります。
 提示していただいたコードやコメントにたくさん参考になったり、考えさせられた考え方がたくさんありました。
 もう少しで自力解決できそうです。使えるコードは使わせていただきます。
 大変ありがとうございました。今後ともよろしくお願いします。


>前回のコードを少し整理、変更してあります
>カレンダの有るシートを見ているのは、
>基準位置の日付(シリアル値)だけです
>日付の位置は、基準セル位置と、月が書かれている行のピッチから
>計算して出しています
>詰まり、シートには、基準セル位置に、シリアル値が有れば後は何も無くても動きます
>尚、Userformの呼び出し時に、月の書かれている行ピッチを指定できる様に変更して有ります。

  大変助かります。カレンダーの方は、自分でピッチを変えたり、背景色を変えたり、土日の時間割の部分を””にできたのですが、それだとユーザーホームで呼び出したとき、4月はよいのですが5月以降がずれて表示され、困っていたところです。

>  '月初の有る週の日曜の日付を計算
>  dtmTop = dtmMonth - (WeekDay(dtmMonth) - 1)

 これはカンレンダー形式のもう一つの年間時間割の時に使ってました。第一月曜日が何日になるかということで、でも本を見て作ったのものですから忘れてました。


>    '先頭日付に指定週分の日数+1を加算して週の先頭日付を返す
>    GetWeekDay = DateAdd("ww", lngWeek - 1, dtmTop) + 1
                ↑    
               "WW" これは、何でしょう?DateAddのヘルプを見ると、「追加する時間間隔を表す文字列式を指定します」となっていたのですが、意味がわかりません。確か本で「ちらっ」と見たような覚えがあるのですが・・・
1 hits

【19171】シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 15:33 質問
【19176】Re:シートの値をtextboxへ取り込みたいので... こもれび 04/10/24(日) 17:40 回答
【19179】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 18:21 質問
【19180】Re:シートの値をtextboxへ取り込みたいの... kobasan 04/10/24(日) 20:38 発言
【19181】Re:シートの値をtextboxへ取り込みたいの... かみちゃん 04/10/24(日) 20:58 発言
【19184】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 21:31 発言
【19182】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/24(日) 21:18 質問
【19218】Re:シートの値をtextboxへ取り込みたいの... kobasan 04/10/25(月) 20:40 発言
【19220】Re:シートの値をtextboxへ取り込みたいの... ponpon 04/10/25(月) 21:14 お礼
【19183】Re:シートの値をtextboxへ取り込みたいので... Hirofumi 04/10/24(日) 21:25 回答
【19186】Re:シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 21:49 発言
【19187】不都合が有るみたいなので修正します Hirofumi 04/10/24(日) 21:51 回答
【19191】Re:不都合が有るみたいなので修正します ponpon 04/10/24(日) 22:42 発言
【19221】Re:不都合が有るみたいなので修正します Hirofumi 04/10/25(月) 22:13 発言
【19261】よろしくお願いします。 ponpon 04/10/26(火) 18:25 発言
【19305】ここまでは考えたのですが・・・. ponpon 04/10/27(水) 20:58 質問
【19307】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/27(水) 21:19 発言
【19308】Re:ここまでは考えたのですが・・・. ponpon 04/10/27(水) 21:38 発言
【19309】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/27(水) 22:05 回答
【19310】Re:ここまでは考えたのですが・・・. ponpon 04/10/27(水) 23:25 お礼
【19348】Re:ここまでは考えたのですが・・・. Hirofumi 04/10/28(木) 20:15 回答
【19349】Re:ここまでは考えたのですが・・・. ponpon 04/10/28(木) 21:15 お礼

62032 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free