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:
- Cum să mutați întregul rând pe o altă foaie pe baza valorii celulei din Excel?
- Cum să mutați întregul rând în partea de jos a foii active pe baza valorii celulei din Excel?
Cele mai bune instrumente de productivitate de birou
Î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...
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!