Jak przenieść określony wiersz do nowego arkusza, gdy pole wyboru jest zaznaczone w programie Excel?
W tym artykule mowa jest o przeniesieniu określonego wiersza do nowego arkusza, gdy pole wyboru jest zaznaczone w programie Excel.
Przenieś wiersz, gdy pole wyboru jest zaznaczone za pomocą kodu VBA
Przenieś wiersz, gdy pole wyboru jest zaznaczone za pomocą kodu VBA
Wykonaj następujące czynności, aby przenieść określony wiersz do określonego arkusza roboczego podczas zaznaczania pola wyboru w programie Excel.
1. Przejdź do arkusza roboczego, w którym chcesz przenieść wiersz na podstawie pola wyboru, kliknij Deweloper > wstawka > Pole wyboru (formant ActiveX) aby wstawić pole wyboru. Zobacz zrzut ekranu:
2. Kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:
3. W otwarciu Microsoft Visual Basic for Applications należy skopiować i wkleić poniższy kod VBA do okna kodu.
Kod VBA: Przenieś wiersz do określonego arkusza roboczego, gdy pole wyboru jest zaznaczone
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
Note: W kodzie Shee3 i A1 wskazują, że określony wiersz zostanie przeniesiony do pierwszego wiersza w Sheet3. Zmień je w zależności od potrzeb.
4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania, klikając Tryb projektowania Przycisk na Deweloper patka.
6. Zaznacz pole wyboru, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz pierwszą komórkę wiersza (lub cały wiersz), który musisz przenieść i kliknij OK przycisk. Następnie określony cały wiersz zostanie natychmiast przeniesiony do określonego arkusza roboczego. Zobacz zrzut ekranu:
Podobne artykuły:
- Jak przenieść cały wiersz do innego arkusza na podstawie wartości komórki w programie Excel?
- Jak przenieść cały wiersz na dół aktywnego arkusza na podstawie wartości komórki w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!