Hogyan lehet áthelyezni egy bizonyos sort egy új lapba, ha az Excel be van jelölve?

Ez a cikk arról szól, hogy egy bizonyos sort áthelyez egy új munkalapba, ha az Excel be van jelölve.

Mozgassa a sort, amikor a jelölőnégyzet be van jelölve VBA kóddal

Mozgassa a sort, amikor a jelölőnégyzet be van jelölve VBA kóddal

Kérjük, tegye a következőket, ha egy bizonyos sort áthelyez egy megadott munkalapra, amikor bejelöli az Excel jelölőnégyzetét.

1. Váltson a munkalapra, amelyre az áthelyezéshez sorot kell helyeznie, jelölje be a jelölőnégyzetet, kattintson a gombra Fejlesztő > betétlap > Jelölőnégyzet (ActiveX-vezérlő) jelölőnégyzet beillesztéséhez. Lásd a képernyőképet:

2. Kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

3. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alatt a Kód ablakba.

VBA-kód: Ha a jelölőnégyzet be van jelölve, helyezze át a sort egy megadott munkalapra

Private Sub CheckBox1_Click()
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    If CheckBox1.value Then
        xAddress = Application.ActiveWindow.RangeSelection.Address
        Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        Set xRg = xRg(1).EntireRow
        xRg.Copy
        ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
        xRg.Clear
        Application.CutCopyMode = False
    End If
End Sub

Megjegyzések: A kódban a Shee3 és az A1 jelzi, hogy a megadott sor áthelyezésre kerül a Sheet3 első sorába. Kérjük, változtassa meg őket az Ön igényei szerint.

4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

5. A gombra kattintva kapcsolja ki a Tervezési módot Tervezési mód gombot a Fejlesztő Tab.

6. Jelölje be a jelölőnégyzetet, majd a Kutools az Excel számára megjelenik a párbeszédpanel, válassza ki az áthelyezni kívánt sor első celláját （vagy az egész sort and, majd kattintson a OK gomb. Ezután a megadott teljes sor azonnal egy bizonyos munkalapra kerül. Lásd a képernyőképet:

Kapcsolódó cikkek:

• Hogyan lehet a teljes sort áthelyezni egy másik lapra az Excel cellája alapján?
• Hogyan mozgassuk a teljes sort az aktív lap aljára az Excel cellája alapján?