LợiSeven

Giao lưu - học hỏi

Responsive Ads Here

Thứ Ba, 14 tháng 9, 2021

Tự Động Tô Màu Dòng Cột Theo Con Trỏ Chuột

 

Tự Động Tô Màu Dòng Cột Theo Con Trỏ Chuột

Đầu tiên bạn bôi đen vùng dữ liệu sau đó kích vào Home chọn Conditional Formating -> Chọn New Rule.

chọn điều kiện

Tiếp theo cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =Row()=Cell("Row") -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

chọn màu

Bây giờ màu đã được tô theo một dòng nhưng khi bạn kích vào dòng khác thì nó chưa nhảy theo bạn có thể bấm F9 để nó chuyển đến nhưng tốn nhiều thời gian để làm tự động nhảy theo con trỏ chuột ta tiếp tục.

Kích chuột phải vào phía dưới Sheet -> chọn view code cửa sổ hiện lên bạn copy phần code bên dưới bỏ vào. Như vậy bây giờ bạn kích đến hàng nào thì hàng ấy đã đổi màu.

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

code đổi màu

Tô màu chọn theo cột

Để tô màu theo cột bạn cũng làm như tô màu theo hàng chỉ cần thay công thức. Đầu tiên bạn cũng vào Home chọn Conditional Formating -> Chọn New Rule. Cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =Column()=Cell("col") -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

tô màu cột

Như vậy bây giờ bạn kích tới đau thì cột và dòng được tô màu đến đó.

Tô màu theo ô

Bây giờ mình tô màu ô nữa là hoàn thành Đầu tiên bạn cũng vào Home chọn Conditional Formating -> Chọn New Rule. Cửa sổ mới hiện ra bạn chọn dòng Use a formula to determine which cells to format trong ô Format bạn nhập =and(Row()=Cell("Row"),Column()=Cell("col")) -> chọn Format -> cửa sổ mới hiện ra bạn chọn Fill chọn màu -> ok.

tô màu ô

Như vậy bây giờ bạn kích vào ô nào thì màu của ô, hàng và cột để đổi màu rất trực quan cho bạn quản lý.

kết quả

Thứ Tư, 8 tháng 9, 2021

Xóa Các Ô dữ liệu Trong Excel

Áp Dụng Một Nút Để Xóa Nội Dung Ô Cụ Thể Bằng Mã VBA

1. Nhấp chuột Chèn > Hình dạng > Hình chữ nhật để chọn hình chữ nhật, sau đó kéo chuột để vẽ một nút hình chữ nhật ở bất kỳ vị trí nào của trang tính khi bạn cần, xem ảnh chụp màn hình:

nút doc xóa các ô 1

2. Sau đó nhập văn bản và định dạng nút hình dạng khi bạn cần, xem ảnh chụp màn hình:

nút doc xóa các ô 2

3. Và sau đó bạn nên chèn mã VBA, vui lòng nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Xóa nội dung ô khỏi các ô cụ thể:

1
2
3
4
5
6
Sub Clearcells()
'Updateby Extendoffice
Range("A2""A5").Clear
Range("C10""D18").Clear
Range("B8""B12").Clear
End Sub

Chú thích: Trong đoạn mã trên: A2, A5 cho biết nó sẽ xóa các ô trong phạm vi A2: A5, không chỉ hai ô riêng lẻ, bạn có thể thêm nhiều phạm vi, chẳng hạn như Phạm vi ("B8", "B12"). Xóa tập lệnh trong mã để xóa.

4. Sau đó, lưu và đóng cửa sổ mã, sau đó liên kết mã với nút hình dạng, bấm chuột phải vào nút và chọn Chỉ định Macro, Trong Chỉ định Macro hộp thoại, chọn Clearcells tên mã từ Tên macro hộp danh sách và nhấp vào OK để thoát khỏi hộp thoại này. Xem ảnh chụp màn hình:

nút doc xóa các ô 3

5. Và bây giờ, khi bạn nhấp vào Làm sạch tất cả , các ô cụ thể bạn đã xác định sẽ bị xóa ngay lập tức, xem ảnh chụp màn hình:

nút doc xóa các ô 4