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 SubMegjegyzé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?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
