Salt la conținutul principal

Cum să mutați un anumit rând într-o foaie nouă când este bifată caseta de selectare în Excel?

Acest articol vorbește despre mutarea unui anumit rând într-o foaie nouă atunci când caseta de selectare este bifată în Excel.

Mutați rândul când caseta de selectare este bifată cu codul VBA


Mutați rândul când caseta de selectare este bifată cu codul VBA

Vă rugăm să procedați după cum urmează pentru a muta un anumit rând într-o foaie de lucru specificată atunci când bifați o casetă de selectare în Excel.

1. Treceți la foaia de lucru de care aveți nevoie pentru a muta rândul în funcție de caseta de selectare, faceți clic pe Dezvoltator > Insera > Caseta de selectare (Control ActiveX) pentru a introduce o casetă de selectare. Vedeți captura de ecran:

2. Faceți clic dreapta pe fila foi, apoi faceți clic pe Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:

3. În deschidere Microsoft Visual Basic pentru aplicații fereastra, vă rugăm să copiați și să lipiți mai jos codul VBA în fereastra Cod.

Cod VBA: Mutați rândul într-o foaie de lucru specificată atunci când este bifată o casetă de selectare

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

notițe: În cod, Shee3 și A1 indică faptul că rândul specificat va fi mutat pe primul rând din Sheet3. Vă rugăm să le schimbați în funcție de nevoile dvs.

4. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

5. Dezactivați modul Design făcând clic pe Mod de proiectare Butonul de pe Dezvoltator tab.

6. Bifați caseta de selectare, apoi a Kutools pentru Excel apare fereastra de dialog, selectați prima celulă a rândului (sau întregul rând) pe care trebuie să îl mutați și faceți clic pe OK buton. Apoi întregul rând specificat va fi mutat imediat într-o anumită foaie de lucru. Vedeți captura de ecran:


Legate de articole:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Excuse me for being a beginner at this but I need the spreadsheet to do this but copy the item rather than move it, how do I go about that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations