Jak přesunout určitý řádek do nového listu, když je v aplikaci Excel zaškrtnuto políčko?
Tento článek hovoří o přesunutí určitého řádku do nového listu, když je v aplikaci Excel zaškrtnuto políčko.
Po zaškrtnutí políčka s kódem VBA přesunout řádek
Po zaškrtnutí políčka s kódem VBA přesunout řádek
Pokud chcete zaškrtnout políčko v aplikaci Excel, při přesunu určitého řádku do zadaného listu postupujte následovně.
1. Posuňte se na list, na který chcete přesunout řádek podle zaškrtávacího políčka, klepněte na Vývojka > Vložit > Zaškrtávací políčko (ovládací prvek ActiveX) vložit zaškrtávací políčko. Viz screenshot:
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: Po zaškrtnutí políčka přesune řádek do zadaného listu
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 SubPoznámka: V kódu označují Shee3 a A1, že zadaný řádek bude přesunut do prvního řádku v Sheet3. 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!
