VBA　工程表で色のついたセルの行の件名を取得し別シートに挿入

画像の様な工程表があります。このような工程表が下にたくさん続いています。
やりたいことは
１．日にちの記入してあるセルを指定
２．マクロボタンを起動
３．その日にちで色のついてあるセルの行の工事件名、工程名を別シートに挿入
４．画像のように工事件名、工程を並べく

自分の知識ではどのようにやっていけばいいのか考えが行き詰ってしまったので
ご教授ください。

追記です

工程がAMからだけではなくPMからだったり残のみだったりすると、日付の入ってるセルを選択したのではうまくいきません。
以下現在のコードです```
Sub 防災連絡書作成()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("工程")
Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets("連絡書")

Dim i, r, kj1, kj2
r = 8

ws2.Range("B8:B29").ClearContents

For i = 10 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row 
    If ws1.Cells(i, 2).Value <> "" Then kj1 = ws1.Cells(i, 2).Value  
    If ws1.Cells(i, ActiveCell.Column).Interior.ColorIndex <> xlColorIndexNone Then
        If kj1 <> kj2 Then
            kj2 = kj1
            ws2.Cells(r, 2).Value = kj2
            r = r + 1
        End If
        ws2.Cells(r, 2).Value = ws1.Cells(i, 4).Value
        r = r + 1
    End If
Next
MsgBox "連絡書を作成しました"

End Sub
ここに言語を入力
コード

日付を選択すると一番左のセルしか参照されないので３列とも参照されるようにしたいです。お願いします。

mattuwan

2022/01/07 07:08

>１．日にちの記入してあるセルを指定これはどうやって指定するのですか？該当セルを選択？シート上に日付を入力？

321Kurumins

2022/01/07 07:44

３行目のセルを手動で選択してそこでマクロボタン起動を想定しています。その選択した列の色付きセルの行の工事件名、工程名を取得して別シートに入力したいです。説明不足で申し訳ないです。

行動規範の内容に同意します

回答1件

ベストアンサー

読んだ感じでいうと、雰囲気こんな感じのコードになればいいんじゃないかと思いますので、
もう少しご自身で試行錯誤してみてください。

VBA
1Sub sample()
2    Dim ws1 As Worksheet
3    Set ws1 = ThisWorkbook.Worksheets("工程表")
4    Dim ws2 As Worksheet
5    Set ws2 = ThisWorkbook.Worksheets("別シート")
6        
7    Dim i, r, kj1, kj2
8    r = 9
9    
10    For i = 10 To ws1.Cells(ws1.Rows.Count, 2).End(xlUp).Row
11        If ws1.Cells(i, 2).Value <> "" Then kj1 = ws1.Cells(i, 2).Value
12        If ws1.Cells(i, ActiveCell.Column).Interior.ColorIndex <> xlColorIndexNone Then
13            If kj1 <> kj2 Then
14                kj2 = kj1
15                ws2.Cells(r, 2).Value = kj2
16                r = r + 1
17            End If
18            ws2.Cells(r, 2).Value = ws1.Cells(i, 4).Value
19            r = r + 1
20        End If
21    Next
22End Sub
23
24