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

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

MENU

【ノーコードVBA】全シートで処理をする

エクセル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 Long

    For 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 ws

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

 

 

 

【スクリーンショッ14選】エクセルVBAでシート処理