Jak přesunout určitý řádek do nového listu, když je zaškrtnuto políčko v aplikaci Excel?
Tento článek vysvětluje, jak přesunout konkrétní řádek na nový list, když je v Excelu zaškrtnuto políčko.
Přesunout řádek, když je zaškrtnuto políčko s kódem VBA
Přesunout řádek, když je zaškrtnuto políčko s kódem VBA
Chcete-li při zaškrtnutí políčka v aplikaci Excel přesunout určitý řádek do určeného listu, postupujte následovně.
1. Přejděte na list, který potřebujete přesunout řádek na základě zaškrtávacího políčka, klikněte Vývojka > Vložit > zaškrtávací políčko (ovládání ActiveX) pro vložení zaškrtávacího políčka. Viz snímek obrazovky:
2. Klikněte pravým tlačítkem na kartu list a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:
3. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte pod kód VBA do okna Kód.
Kód VBA: Přesunout řádek do určeného listu, když je zaškrtnuto políčko
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
Pozor: List3 a A1 v kódu označují, že zadaný řádek bude přesunut do prvního řádku List3. Změňte je prosím podle svých potřeb.
4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
5. Vypněte režim návrhu kliknutím na Režim návrhu Tlačítko na Vývojka Karta.
6. Zaškrtněte políčko a poté a Kutools pro Excel Zobrazí se dialogové okno, vyberte prosím první buňku řádku (nebo celý řádek), který je třeba přesunout, a klikněte na OK knoflík. Poté bude celý zadaný řádek okamžitě přesunut do určitého listu. Viz screenshot:
Související články:
- Jak přesunout celý řádek na jiný list na základě hodnoty buňky v aplikaci Excel?
- Jak přesunout celý řádek do spodní části aktivního listu na základě hodnoty buňky v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!