hatena chips様の帳票フォームでガントチャート（マウスドラッグで範囲指定）に感動したので、下手ながら少しアレンジしてみました。
サンプルはこちら
いろいろ初めてなのでダメダメかもしれませんが、思い切って投稿。
特徴
- マウスドラッグ操作のみで範囲指定できます
- 同日に複数設定可能（8:00～13:00 15:00～17:00など）
- 2種類の横棒を使用可能
hatena chip様との主な変更点
帳票フォームでマウスドラッグで値を指定する方法は、帳票フォームでガントチャート（マウスドラッグで範囲指定）と同じですが、主に下記の点をアレンジしてみました。
- テーブルに期間フィールドを追加し規定値として"0"を96文字設定
- 同日に複数設定できるようにするため
- MouseDown時に開始位置、MouseMove時に移動した文字数を取得し、Midステートメントで期間フィールドを入替
- Midステートメント：Mid(stringvar, start, length) = string
- Replace関数で期間フィールドの1をChrW(9608)・2をChrW(9619)に入替