【新発想】ノーコードでExcelを自動化する方法

VBAマクロ作成アプリ NoCodeVBA

MENU

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

無料アプリで、すぐにエクセルVBAマクロを作成できます。

例として、アプリで「2つの同一の表を比較し、値が違うセルに色を付ける」VBAマクロを作成します。

(ページの末尾に、VBAコード掲載)

事例

2つの表があり、値が相違するセルに、色を付けます。



できました(^^)/

 

アプリの設定

アプリのトップページ

 ⇒▼検索・置換・2表比較

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

表示されるVBAコード 

アプリで作成されたコードを、VBE画面に貼り付ければ、マクロの完成です。 

Sub デモ_90() '2枚の表を比較し、相違するセルを黄色にする
 Application.ScreenUpdating = False ' 画面描画を停止
Application.DisplayAlerts = False  ' 警告表示を停止 
Dim 表1  As Variant, 表2  As Variant, 行 As Long, 列 As Long
'配列にセル範囲の値を入れる
表1 = Worksheets("sheet1").Range("a1:b10")  '表1
表2 = Worksheets("sheet1").Range("d1:e10")  '表2
'行数と列数の一致を確認
If UBound(表1, 1) <> UBound(表2, 1) Then
    MsgBox "2つの表の行数が違います"
    Exit Sub
ElseIf UBound(表1, 2) <> UBound(表2, 2) Then
    MsgBox "2つの表の列数が違います"
    Exit Sub
End If
'処理前に、セルを色無しにする
Worksheets("sheet1").Range("a1:b10").Interior.ColorIndex = 0
Worksheets("sheet1").Range("d1:e10").Interior.ColorIndex = 0
'値が異なるセルに色を付ける
For 行 = 1 To UBound(表1, 1)
    For 列 = 1 To UBound(表1, 2)
        If 表1(行, 列) <> 表2(行, 列) Then
            Worksheets("sheet1").Range("a1:b10").item(1).Offset(行 - 1, 列 - 1).Interior.Color = RGB(255, 255, 0)
            Worksheets("sheet1").Range("d1:e10").item(1).Offset(行 - 1, 列 - 1).Interior.Color = RGB(255, 255, 0)
        End If
    Next 列
Next 行
Application.DisplayAlerts = True   ' 警告表示を再開
Application.ScreenUpdating = True  ' 画面描画を再開
End Sub

マクロを使うメリット

手作業で数分かかる作業が、1秒で終わります。

ぜひ、アプリをご利用ください。

 

アプリはこちらから↓↓↓↓