【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【VBAとChatGPT入門】2つの同一の表を比較し、値が違うセルに色を付ける

2つの同一の表を比較し、値が違うセルに色を付ける

二つの表を比較し、値が違うセルに色を付けます。

 

ChatGPTで作成したVBAコード

Sub CompareTables()
    Dim ws As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long

    ' 「Sheet1」シートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' 最終行を取得(A列とE列)
    lastRow1 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastRow2 = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row

    ' A3からC列の最終行までの範囲を確認
    For i = 3 To lastRow1
        For j = 1 To 3
            ' 左側の表のセルと右側の表のセルを比較
            If ws.Cells(i, j).Value <> ws.Cells(i, j + 4).Value Then
                ' 値が異なる場合は黄色に塗る
                ws.Cells(i, j).Interior.Color = RGB(255, 255, 0)
                ws.Cells(i, j + 4).Interior.Color = RGB(255, 255, 0)
            End If
        Next j
    Next i
End Sub

上のコードを作成するChatGPTのプロンプト

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
処理対象:Sheet1」シートのA3セルからC列の最終行までがデータの表と、「Sheet1」シートのE3セルからG列の最終行までがデータの表
処理:処理対象の2つの表を比較し、値の異なる双方のセルを黄色で塗る。

 

ChatGPTで作成しました

無料のChatGPT(Microsoft Copilot)で作成しました。

30年前の私は、必要なVBAコードの完成に6か月かかりました。しかしChatGPTを使えば、初心者でもわずか5分でコードを作成できます。

上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。

VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。

知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。