Hoe verplaats ik een bepaalde rij naar een nieuw blad als het selectievakje is aangevinkt in Excel?
Dit artikel gaat over het verplaatsen van een bepaalde rij naar een nieuw blad wanneer het selectievakje is aangevinkt in Excel.
Verplaats rij wanneer het selectievakje is aangevinkt met VBA-code
Verplaats rij wanneer het selectievakje is aangevinkt met VBA-code
Ga als volgt te werk om een bepaalde rij naar een opgegeven werkblad te verplaatsen wanneer u een selectievakje in Excel aanvinkt.
1. Ga naar het werkblad dat u nodig hebt om de rij te verplaatsen op basis van het selectievakje, klik op Ontwikkelaar > Invoegen > Selectievakje (ActiveX-besturingselement) om een selectievakje in te voegen. Zie screenshot:
2. Klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:
3. In de opening Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het codevenster.
VBA-code: verplaats rij naar een opgegeven werkblad wanneer een selectievakje is aangevinkt
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 SubNote: In de code geven Shee3 en A1 aan dat de opgegeven rij naar de eerste rij in Sheet3 wordt verplaatst. Wijzig ze op basis van uw behoeften.
4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.
5. Schakel de ontwerpmodus uit door op de te klikken Ontwerpmodus knop op de Ontwikkelaar Tab.
6. Schakel het selectievakje in en vervolgens een Kutools for Excel dialoogvenster verschijnt, selecteer de eerste cel van de rij （of de hele rij） die u wilt verplaatsen en klik op de OK knop. Vervolgens wordt de opgegeven hele rij onmiddellijk naar een bepaald werkblad verplaatst. Zie screenshot:
Gerelateerde artikelen:
- Hoe verplaats ik een hele rij naar een ander blad op basis van de celwaarde in Excel?
- Hoe verplaats je de hele rij naar de onderkant van het actieve blad op basis van de celwaarde in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
