dポイントプレゼントキャンペーン実施中!

1週間のタイムスケジュールを作成しています。

添付の図1のように、
A列には時間列(5分間隔)があります。A1(8:00)~A159(21:00)

B列には開始時間、C列には終了時間、D列には内容があり
同じように1週間分のデータが、Z列、AA列、AB列までそれぞれ入っています。

現在は1件ずつ、開始時間から終了時間までのセルの結合を繰り返して
図2のようなスケジュールを作成しています。

5分はセル結合しない
10分はセルを2つ結合
15分はセルを3つ結合
 ~
30分はセルを6つ結合
 ~
60分はセルを12個結合
 ~
180分はセルを36個結合、のように
開始から終了の時間に合わせて、
1週間分のそれぞれの内容のセルを結合することは可能でしょうか?

VBAで解決する良い方法がありましたら教えていただきたいです。
よろしくお願いいたします。

「エクセル マクロ VBAでスケジュールの」の質問画像

質問者からの補足コメント

  • 皆さまご回答ありがとうございます。

    補足ですが、
    現在手入力ですがC列の終了時刻が次のイベントに重なってしまうことはありません。(重ならない様に確認しています)

    現在は1枚のシートで作業しておりますが、
    皆さまの回答を参考にいたしますと、
    予定を入力するシートと結果を反映するシートが別の方が良いようですが、それも可能でしょうか?

    合わせてよろしくお願いいたします。

      補足日時:2017/03/11 15:59
  • No.12 マクロ実行で、シートにコピー後このようになります。
    よろしくお願いいたします。

    「エクセル マクロ VBAでスケジュールの」の補足画像2
      補足日時:2017/03/12 18:39
  • No.13

    デバッグの仕方が間違っていたらスイマセン。

    エクセルのシートでマクロ実行しますと
    上の画像の黄色の位置まで進み、
    中央の画像となります。

    マクロソースの画面で実行しますと
    同じく上の画像の黄色の位置まで進み、
    下の画像となります。

    力量がなく何度も大変申し訳ありませんがよろしくお願いいたします。

    「エクセル マクロ VBAでスケジュールの」の補足画像3
      補足日時:2017/03/12 22:43
  • 上記の補足ですが
    表記NO.13ではなくNo.15
    の間違いでしたスイマセン。

    画像も小さく申し訳ありません。
    下の画像は
    エラー 1004 「アプリケーション定義またはオブジェクト定義のエラーです。」
    と表示されています。
    よろしくお願いいたします。

      補足日時:2017/03/12 23:04

A 回答 (21件中21~21件)

・「開始」「終了」の欄はシリアル値でしょうか?


・ 重なってしまう事は無いのでしょうか?
    • good
    • 1
この回答へのお礼

GooUserラックさま
ご回答ありがとうございます。

開始、終了の時刻は今はシリアル値ではありません。
1行目の日付のみがシリアル値になっています。
シリアル値で入力の方が上手くいくようでしたらその様に変更します。
よろしくお願いいたします。

お礼日時:2017/03/11 15:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!