選択しているレコードを上のレコードと入れ替えるよ

この説明は、ChatGPTで作成しています。

このマクロは、Excelシートで選択している行とその上の行を入れ替えるプログラムです。以下の手順で動作します。

1. 行を取得
   まず、選択されている行の番号を取得します。この行番号は「selectRow」という変数に保存されます。たとえば、あなたが5行目を選択している場合、この変数には「5」が入ります。

2. 上の行が存在するか確認
   選択されている行が1行目だと、その上には行がないので入れ替えができません。もし選択した行が1行目以外なら、次の処理に進みます。

3. 行を入れ替え
   選択されている行のデータをカットして、その上の行に挿入します。たとえば、5行目を選択している場合、5行目のデータを4行目に移動し、4行目のデータが5行目に来るようになります。

4. メッセージ表示
   もし選択した行が1行目だった場合、メッセージボックスが表示されて「選択している行の上には行がありません。」と警告が出ます。

このプログラムでは、Application.ScreenUpdating = False という部分があります。これは、処理中に画面の更新を一時的に止めることで、操作がスムーズに見えるようにしてくれます。最後に、Trueに戻して、通常の画面更新が再開されます。

---

Excel VBA　リファレンス | Microsoft Learn
この記事のYouTube動画はこちら

Sub 選択しているレコードを上のレコードと入れ替えるよ()
    Application.ScreenUpdating = False
    Dim selectRow As Long
    Dim WS As Worksheet
    Set WS = ActiveSheet
    
    ' 選択中の行を取得
    selectRow = Selection.row
    
    ' 上の行が存在するかチェック
    If selectRow > 1 Then
        ' 選択した行の範囲と上の行の範囲を入れ替える
        WS.Rows(selectRow).Cut
        WS.Rows(selectRow - 1).Insert Shift:=xlDown

    Else
        MsgBox "選択している行の上には行がありません。", vbExclamation
    End If
    Application.ScreenUpdating = True
End Sub

---

キーワード:
#excel #vba #行の入れ替え #データ操作 #マクロ #範囲操作 #行選択 #データ管理 #自動化 #シート操作 #画面更新停止 #行取得 #行移動 #コード解説 #初心者向け #シンプルVBA #エラー処理 #効率化 #選択行 #できること

---

英語訳

Swap Selected Row with the Row Above

This explanation is created using ChatGPT.

This macro swaps the currently selected row with the row above it in an Excel worksheet. Here's how it works:

1. Getting the Row
   First, the macro captures the number of the currently selected row and stores it in a variable named "selectRow". For example, if you select the 5th row, this variable will hold the value "5".

2. Checking if the Row Above Exists
   If the selected row is the 1st row, there is no row above it, so no swap can happen. If the selected row is not the 1st row, the macro proceeds to the next step.

3. Swapping Rows
   The macro cuts the data from the selected row and inserts it into the row above. For example, if you select the 5th row, the data from the 5th row is moved to the 4th row, and the data from the 4th row is shifted down to the 5th row.

4. Displaying a Message
   If the selected row is the 1st row, a message box will appear, warning you that "There is no row above the selected row."

This program also includes Application.ScreenUpdating = False, which temporarily stops screen updates during the process, making the operation look smoother. At the end, it resets to True to resume normal screen updates.

---

Keywords:
#excel #vba #row swap #data manipulation #macro #range handling #row selection #data management #automation #worksheet operations #screen updating pause #get row #row movement #code explanation #beginner friendly #simple VBA #error handling #efficiency #selected row #what you can do

---

Excel VBA　リファレンス | Microsoft Learn
この記事のYouTube動画はこちら