Làm thế nào để di chuyển một hàng nhất định sang một trang tính mới khi hộp kiểm được chọn trong Excel?
Bài viết này nói về việc di chuyển một hàng nhất định sang một trang tính mới khi hộp kiểm được chọn trong Excel.
Di chuyển hàng khi hộp kiểm được chọn với mã VBA
Di chuyển hàng khi hộp kiểm được chọn với mã VBA
Vui lòng thực hiện như sau để di chuyển một hàng nhất định sang một trang tính được chỉ định khi chọn hộp kiểm trong Excel.
1. Chuyển đến trang tính bạn cần để di chuyển hàng dựa trên hộp kiểm, nhấp vào Nhà phát triển > Chèn > Hộp kiểm (Điều khiển ActiveX) để chèn một hộp kiểm. Xem ảnh chụp màn hình:
2. Bấm chuột phải vào tab trang tính, sau đó bấm Mã Chế độ xem từ menu chuột phải. Xem ảnh chụp màn hình:
3. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào cửa sổ Mã.
Mã VBA: Di chuyển hàng vào một trang tính được chỉ định khi hộp kiểm được chọn
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
Chú thích: Trong mã, Shee3 và A1 chỉ ra rằng hàng được chỉ định sẽ được chuyển đến hàng đầu tiên trong Sheet3. Vui lòng thay đổi chúng dựa trên nhu cầu của bạn.
4. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
5. Tắt Chế độ thiết kế bằng cách nhấp vào Chế độ thiết kế nút trên Nhà phát triển tab.
6. Đánh dấu vào hộp kiểm, sau đó a Kutools cho Excel hộp thoại bật lên, vui lòng chọn ô đầu tiên của hàng (hoặc toàn bộ hàng) bạn cần di chuyển và nhấp vào OK cái nút. Sau đó, toàn bộ hàng được chỉ định sẽ được chuyển đến một trang tính nhất định ngay lập tức. Xem ảnh chụp màn hình:
Các bài liên quan:
- Làm cách nào để di chuyển toàn bộ hàng sang một trang tính khác dựa trên giá trị ô trong Excel?
- Làm cách nào để di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!