エクセルVBAマクロを自動作成する無料アプリです。
例として「2つのセル範囲の値を、入れ替える」VBAマクロを作成します。
(ページの末尾に、VBAコード掲載)
事例 2つのセル範囲の値を、入れ替える
エクセル画面で、Ctrlキーを使い、2つのセル範囲を選択します。
VBAマクロを実行すると、2つのセル範囲の値が、入れ替わりました。
できました(^^♪
アプリの設定
アプリの設定です。
アプリのトップページ
⇒▼検索・置換・2表比較
⇒【ツール】2つのセル範囲の値を、入れ替える
【ポイント】
■ 「ショートカットキーによるマクロの実行」が便利です。
表示されるVBAコード
アプリで作成されたコードを、VBE画面に貼り付ければ、マクロの完成です。
VBAコードを見る
Sub デモ_18() '2つのセル範囲の値を、入れ替える
Application.ScreenUpdating = False ' 画面描画を停止
Application.DisplayAlerts = False ' 警告表示を停止
Dim 仮置き1 As Variant, 仮置き2 As Variant, セル範囲1 As Range, セル範囲2 As Range
If Selection.Areas.Count <> 2 Then
MsgBox "2つのセル範囲を、選択してください"
Exit Sub
End If
Set セル範囲1 = Selection.Areas(1)
Set セル範囲2 = Selection.Areas(2)
If セル範囲1.Count <> セル範囲2.Count Then
MsgBox "2つの範囲の、セルの個数が違います"
Exit Sub
End If
仮置き1 = セル範囲1
仮置き2 = セル範囲2
セル範囲1 = 仮置き2
セル範囲2 = 仮置き1
Application.DisplayAlerts = True ' 警告表示を再開
Application.ScreenUpdating = True ' 画面描画を再開
End Sub
ChatGPTで修正
あなたが自動化したい内容と事例が少し異なる場合は、無料で使えるマイクロソフトの「BingAIチャット」でコードを修正します。とても簡単です!