エクセルVBA作成のChatGPTプロンプト文例集

ChatGPTプロンプト、VBAコードをコピペできます😊

MENU

【ノーコード】2つのセル範囲の値を、入れ替える

エクセルVBAマクロを自動作成する無料アプリです。

例として「2つのセル範囲の値を、入れ替える」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チャット」でコードを修正します。とても簡単です!

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