Come spostare una determinata riga in un nuovo foglio quando una casella di controllo è selezionata in Excel?

Questo articolo spiega come spostare una riga specifica in un nuovo foglio quando una casella di controllo è selezionata in Excel.

Sposta riga quando una casella di controllo è selezionata con il codice VBA

Sposta riga quando una casella di controllo è selezionata con il codice VBA

Si prega di seguire i passaggi seguenti per spostare una determinata riga in un foglio di lavoro specificato quando si seleziona una casella di controllo in Excel.

1. Passare al foglio di lavoro in cui è necessario spostare la riga basandosi su una casella di controllo, fare clic su Sviluppatore > Inserisci > Casella di controllo (Controllo ActiveX) per inserire una casella di controllo. Vedere screenshot:

2. Fare clic con il tasto destro sulla scheda del foglio e quindi fare clic su Visualizza codice dal menu contestuale. Vedere screenshot:

3. Nella finestra di Microsoft Visual Basic for Applications che si apre, copiare e incollare il seguente codice VBA nella finestra del Codice.

Codice VBA: Sposta riga in un foglio di lavoro specificato quando una casella di controllo è selezionata

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

Nota: Nel codice, Foglio3 e A1 indicano che la riga specificata verrà spostata alla prima riga di Foglio3. Modificarli in base alle proprie esigenze.

4. Premere i tasti Alt + Q per chiudere la finestra di Microsoft Visual Basic for Applications.

5. Disattivare la Modalità Progettazione facendo clic sul pulsante Modalità Progettazione nella scheda Sviluppatore.

6. Selezionare la casella di controllo, quindi apparirà una finestra di dialogo di Kutools per Excel, selezionare la prima cella della riga (o l'intera riga) che si desidera spostare e fare clic sul pulsante OK. Quindi l'intera riga specificata verrà immediatamente spostata in un determinato foglio di lavoro. Vedere screenshot:

Articoli correlati:

• Come spostare l'intera riga in un altro foglio in base al valore della cella in Excel?
• Come spostare l'intera riga in fondo al foglio attivo in base al valore della cella in Excel?