Excel ẩn cột có điều kiện/VBA
Trả lời:
Phần sau đây sẽ hoạt động nếu các ô E18 và F18 được nhập thủ công; nó sẽ không hoạt động nếu chúng chứa công thức.
Bấm chuột phải vào tab trang tính.
Chọn 'Xem mã' từ menu ngữ cảnh.
Sao chép đoạn mã sau vào mô-đun trang tính:
Bảng tính phụ riêng tư_Change (Mục tiêu ByVal dưới dạng phạm vi)
Nếu không giao nhau(Range("E18"), Target) thì không có gì
Phạm vi ("N1:O1"). Toàn bộColumn.Hidden = (Phạm vi ("E18"). Giá trị = "")
Kết thúc nếu
Nếu không giao nhau (Phạm vi ("F18"), Target) thì không có gì
Phạm vi ("P1:Q1"). Toàn bộColumn.Hidden = (Phạm vi ("F18"). Giá trị = "")
Kết thúc nếu
Kết thúc phụ
Chuyển trở lại Excel.
Lưu sổ làm việc dưới dạng sổ làm việc hỗ trợ macro (.xlsm).
Đảm bảo rằng bạn cho phép macro khi mở sổ làm việc.
Lưu ý: bạn sẽ phải thay đổi giá trị của E18 và F18 để thấy hiệu ứng.
Comments
Post a Comment