Hvordan flyttes en bestemt række til et nyt ark, når afkrydsningsfeltet er markeret i Excel?
Denne artikel taler om at flytte en bestemt række til et nyt ark, når afkrydsningsfeltet er markeret i Excel.
Flyt række, når afkrydsningsfeltet er markeret med VBA-kode
Flyt række, når afkrydsningsfeltet er markeret med VBA-kode
Gør som følger for at flytte en bestemt række til et bestemt regneark, når du markerer et afkrydsningsfelt i Excel.
1. Skift til det regneark, du skal flytte række baseret på afkrydsningsfeltet, klik på Udvikler > indsatte > Afkrydsningsfelt (ActiveX-kontrol) for at indsætte et afkrydsningsfelt. Se skærmbillede:
2. Højreklik på arkfanen, og klik derefter på Vis kode fra højreklikmenuen. Se skærmbillede:
3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte under VBA-kode i kodevinduet.
VBA-kode: Flyt række til et bestemt regneark, når et afkrydsningsfelt er markeret
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
Bemærk: I koden angiver Shee3 og A1, at den angivne række flyttes til den første række i Sheet3. Skift dem ud fra dine behov.
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
5. Sluk for designtilstand ved at klikke på Design Mode knappen på Udvikler fane.
6. Marker afkrydsningsfeltet, derefter a Kutools til Excel dialogboksen dukker op, skal du vælge den første celle i rækken (eller hele rækken) du skal flytte, og klik på OK knap. Derefter flyttes den angivne hele række med det samme til et bestemt regneark. Se skærmbillede:
Relaterede artikler:
- Hvordan flyttes hele rækken til et andet ark baseret på celleværdi i Excel?
- Hvordan flyttes hele rækken til bunden af det aktive ark baseret på celleværdien i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!