MENU

置換表をつかい、複数の置換を一括処理する

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

例として、アプリで「置換表をつかい、複数の置換を一括処理する」VBAマクロを作成します。

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

事例

商品マスタを使い、商品コードを商品名に変換するマクロを、アプリで作成します。

 

右側に商品マスタで、左側の商品コードを商品名に変換します。

マクロを実行すると、左側の商品コードが商品名に変わります。



アプリの設定

アプリのトップページ

 ⇒▼検索・置換

 ⇒【ツール】置換表で、複数の置換を一括処理

【ポイント】

■ 置換表は、表の範囲(例 e1:f7)で指定します。

 

 

表示されるVBAコード 

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

Sub デモ_1() '置換表をつかい、複数の置換を一括処理
Application.ScreenUpdating = False ' 画面描画を停止
Application.DisplayAlerts = False  ' 警告表示を停止
Dim セル範囲 As String, セル As Range, 右下セル As String
Sheets("sheet1").Select
セル範囲 = "a1:a7" 
Range(セル範囲).Select
Call デモ_4_メイン処理(セル範囲)
Application.DisplayAlerts = True   ' 警告表示を再開
Application.ScreenUpdating = True  ' 画面描画を再開
End Sub
 
Sub デモ_4_メイン処理(セル範囲 As String)
Dim 変換表 As Variant
変換表 = Sheets("sheet1").Range("e1:f7")
Dim 要素数 As Long
For 要素数 = LBound(変換表, 1) To UBound(変換表, 1)
    Selection.Replace What:=変換表(要素数, 1), Replacement:=変換表(要素数, 2)
Next 要素数
End Sub

文字列の一部や、文字列の複数個所も変換できます。

マクロを使うメリット

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

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

 

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