エクセルVBAマクロを自動作成する無料アプリです。
例として「全シートで処理をする」VBAマクロを作成します。
事例 「りんご」を赤くする処理を、全シートで処理をする
ポイント
・アプリで「文字列が”りんご”のセルを赤くする」VBAコードを作り、そのコードを「全シートで処理する」コードにChatGPTでカスタマイズします。
アプリへのリンク
アプリへのリンク ⇒文字の色・セルの色
アプリの画面
まず、「Sheet1」を対象とするコードを作成します。
作成されたコード
アプリで作成したコードを、VBE画面に貼り付けて実行します。
Sheet1を対象とするコードができました。
ChatGPTで、コードをカスタマイズします。
下記のコードを、ブックの全てのシートで処理するコードに書き換えることはできますか?
コード:
上記のコードをVBEに貼り付けて、実行します。
Sheet3まで処理が実行されました。
できました😊
VBAコードを見る
Sub デモ() '色変更
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cellRange As String, myCell As Range
Dim ws As Worksheet
Dim lastRow As LongFor Each ws In ThisWorkbook.Sheets
ws.Select
lastRow = ws.Cells(ws.Rows.Count, ws.Range("A1").Column).End(xlUp).Row
cellRange = "A1:" & ws.Cells(lastRow, ws.Range("F1").Column).Address(False, False)
ws.Range(cellRange).Interior.Color = xlNone
For Each myCell In ws.Range(cellRange).Cells
If myCell.Value = "りんご" Then
myCell.Font.Color = RGB(255, 255, 255)
myCell.Interior.Color = RGB(255, 0, 0)
End If
Next myCell
Next wsApplication.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
【スクリーンショッ14選】エクセルVBAでシート処理