Bỏ qua nội dung chính

Làm thế nào để dễ dàng đảo ngược lựa chọn của các phạm vi đã chọn trong Excel?

Giả sử bạn đã chọn một số ô cụ thể của một dải ô, và bây giờ bạn cần đảo ngược lựa chọn: bỏ chọn các ô đã chọn và chọn các ô khác. Xem ảnh chụp màn hình sau:

Tất nhiên, bạn có thể đảo ngược lựa chọn theo cách thủ công. Nhưng bài viết này sẽ mang đến cho bạn một số thủ thuật dễ thương để đảo ngược các lựa chọn một cách nhanh chóng:

Đảo ngược lựa chọn trong Excel với VBA

Đảo ngược lựa chọn trong Excel với Kutools cho Excel


mũi tên màu xanh bong bóng bên phải Đảo ngược lựa chọn trong Excel với VBA

Sử dụng macro VBA sẽ giúp bạn dễ dàng đảo ngược các lựa chọn trong vùng làm việc của trang tính đang hoạt động.

Step1: Chọn các ô bạn muốn đảo ngược chúng.

Step2: Nhấn giữ Khác + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

Step3: Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

VBA để đảo các lựa chọn

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Nhấn phím F5 phím để chạy macro này. Sau đó, một hộp thoại hiển thị để bạn chọn một số ô mà bạn không cần chọn trong kết quả. Xem ảnh chụp màn hình:




Bước 5: Nhấp chuột OKvà chọn một dải ô mà bạn muốn đảo ngược lựa chọn trong một hộp thoại bật lên khác. Xem ảnh chụp màn hình:




Bước 6: Nhấp chuột OK. bạn có thể thấy lựa chọn đã được đảo ngược.


Ghi chú: VBA này cũng đang hoạt động trong trang tính trống.


mũi tên màu xanh bong bóng bên phải Đảo ngược lựa chọn trong Excel với Kutools cho Excel

Bạn có thể muốn nhanh chóng đảo ngược bất kỳ lựa chọn nào trong Excel, Chọn trình trợ giúp phạm vi công cụ của Kutools cho Excel có thể giúp bạn đảo ngược lựa chọn nhanh chóng trong Excel. Thủ thuật này giúp bạn dễ dàng đảo ngược bất kỳ lựa chọn nào trong toàn bộ sổ làm việc.

Kutools cho Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay.

Step1: Chọn các ô bạn muốn đảo ngược chúng.

Step2: Nhấn vào Kutools > Chọn công cụ > Chọn trình trợ giúp phạm vi….

Step3: Trong Chọn trình trợ giúp phạm vi hộp thoại, kiểm tra Lựa chọn nghịch đảo tùy chọn.

Step4: Sau đó kéo chuột để chọn phạm vi mà bạn muốn đảo ngược các lựa chọn. Khi bạn thả chuột, các ô đã chọn đã được bỏ chọn và các ô chưa được chọn đã được chọn trong phạm vi cùng một lúc.

Step5: Và sau đó đóng Chọn trình trợ giúp phạm vi hộp thoại.

Để biết thêm thông tin về Chọn trình trợ giúp phạm vi, Vui lòng truy cập Chọn mô tả tính năng của Trình trợ giúp phạm vi.


Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

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...

Mô 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!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations