【ガントチャート】1行Gantt chartをVBAで作成する

マクロ講座中級2023 動画編 ガントチャート01回

動画でExcelマクロ　【ガントチャート】1行Gantt chartをVBAで作成する

【ガントチャート】1行Gantt chartをVBAで作成する

動画版「ガントチャート作成講座」です。以前にもガントチャートは作成していますので、まずそれらを振り返ってみましょう。
その後で、元になるコードの流れや意味を理解してから、１行ガントチャートを作成します。


【タイムライン】 ●目次

• 00:00 - イントロ
• 00:29 - 内容紹介、過去のガントチャートの説明
• 02:08 - 皆さまの質問にお答えできなかった言い訳
• 03:24 - １行ガントチャートと月単位のガントチャートを作成
• 05:27 - 通常のレクタングルにタスク入りのガントチャートコード解説
• 13:23 - １行ガントチャートのコード
• 18:06 - 月単位のガントチャートの予告
• 18:46 - コードタイム
• 18:07 - End

マクロ動画　【ガントチャート】1行Gantt chartをVBAで作成する

過去のガントチャートの例

中級編の82回では、このような矢印を利用したGanttチャートを作成したんですね。
ただし、１行ずつ矢印を入れてくというものでした。

83回では、同じく矢印ですけれども、どこが違うのかといったら、少し自動化が進んだGanttチャートなんですね。 こちらの表のC列D列に、 開始日と終了日が入力されていますけれども、 それを読み取って、 自動で一気にGanttチャートを入れていくコードになりました。

そして84回では、ガントチャートの図形を矢印から普通のレクタングルに変更しました。
それは、いつからいつまでは設計で、手配で、加工で組み立てでなどということがわかるように、 レクタングルの中にその工程の内容を記述したガントチャートを作成するためのものでした。

今回は、その８４回のガントチャートの上に、比較のために表示しましたが、ガントチャートを１行表示にするというマクロを作成します。

ガントチャートで使うFindメソッド

Range.Find メソッド

まず最初の部分は変数の宣言です。
ガントチャートなので、開始日と終了日の日付を変数にしています。

Sub findcolumn_makeRect_ver1()
    Dim i As Long, colorC As Long '色
    Dim startD As Date, endD As Date ' 開始日と終了日の日付
    Dim startCe As String, endCe As String, shtext As String ' タスク名
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

With wsの部分は複雑で、外側のWith構文の中にFor文があり、その中にまたWith構文が入っています。
外側のWith構文は、With ws　ということでSheet1に対しての作業であるということになります。
次のFor文は、iはカウント変数です。
そして行を表していて、６行目から .Range("A4").CurrentRegion.Rows.Count までを繰り返すという意味になります。
開始日と、終了日はどこの値からもってくるのかを決めてやります。レクタングルの色もどこの値からもってくるのかを決めてやります。

For文の次に行うのが、ワークシートのShapes.AddShape メソッドです。
With ws.Shapes.AddShape の部分です。

Shapes.AddShape メソッドに必要な引数を取得するために、その前のFor文においてスタートセルやエンドセルを決めたわけです。
それが、前半の部分です。
With ws.Shapes.AddShape(msoShapeRectangle, .Range(startCe).Left, _
.Range(startCe).Top, .Range(endCe).Offset(0, 1).Left - .Range(startCe).Left, _
.Range(endCe).Height)

描画したレクタングルのプロパティを設定

次のコードは描画したレクタングルのプロパティを設定する部分です。色をつけ、テキストを入力し、フォントの種類とサイズ、太字を設定しています。
.Fill.ForeColor.RGB = colorC
.TextFrame.Characters.Text = shtext
.TextFrame.Characters.Font.Size = 16
.TextFrame.Characters.Font.Bold = True
.TextFrame.Characters.Font.Name = "メイリオ"

実行するとこのようにガントチャートが作成できます。

通常のガントチャート作成コード全体は以下のようになります。

Sub findcolumn_makeRect_ver1()
    Dim i As Long, colorC As Long '色
    Dim startD As Date, endD As Date ' 開始日と終了日の日付
    Dim startCe As String, endCe As String, shtext As String ' タスク名
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")

    With ws
        For i = 6 To .Range("A4").CurrentRegion.Rows.Count
                startD = .Cells(i, 3).Value
                endD = .Cells(i, 4).Value
                colorC = .Cells(i, 5).Interior.Color
                shtext = .Cells(i, 2).Value
                Dim startCol As Long, endCol As Long
                startCol = .Rows(3).Find(startD).Column
                endCol = .Rows(3).Find(endD).Column
                startCe = .Cells(i, startCol).Address
                endCe = .Cells(i, endCol).Address

        With ws.Shapes.AddShape(msoShapeRectangle, .Range(startCe).Left, _
                .Range(startCe).Top, .Range(endCe).Offset(0, 1).Left - .Range(startCe).Left, _
                .Range(endCe).Height)
                        
                .Fill.ForeColor.RGB = colorC
                .TextFrame.Characters.Text = shtext
                .TextFrame.Characters.Font.Size = 16
                .TextFrame.Characters.Font.Bold = True
                .TextFrame.Characters.Font.Name = "メイリオ"
                End With
         Next i
   End With
End Sub

通常コードを１行ガントチャートに変更

さて上記コードを１行ガントチャートに変更していくわけです。
コードの以下の部分に注目してください。変数iは、行を表しています。値を取得するときも、レクタングルを描画する時もです。

１行ガントチャートでは、変数iは、値を取得するときには使いますが、レクタングルを描画する時には使う必要はないのです。行固定だからです。

通常のガントチャート描画するコードの１部分を変更するだけで、１行ガントチャートが作成できます。