mr.ghostvt
Thành viên mới
- Tham gia
- 31/8/16
- Bài viết
- 16
- Được thích
- 4
Chào anh chị em.
Mình có dòng code như sau.
Đoạn này là đoạn code để gán vào nút checkbox, khi nhấn vào dấu tick thì sẽ tự động fill xuống trong 1 cột. Và khi bỏ tick nó sẽ tự động xóa hết giá trị.
Nhưng vấn đề là nó chỉ tác dụng khi không short, còn sau khi short, ròi nhấn checkbox thì nó không tự fill hàm xuống nữa, anh chị em có cách nào viết lại giúp mình code này để khi mỗi lần short xong, tick vào nút checkbox thì nó vẫn tự động fill xuống được không ạ.
Mình xin chân thành cảm ơn mọi người.
Mình có dòng code như sau.
Mã:
Private Sub PANDID_Click()
If PANDID = True Then
Trang_tính2.Range("D8").Formula = "=VLOOKUP(G8,'[SVCPP HIDROTEST.xlsx]REGISTER'!$D$5:$F$13355,3,FALSE)"
Trang_tính2.Range("D8:D19330").FillDown
Else
Trang_tính2.Range("D8:D19330").ClearContents
End If
End Sub
Nhưng vấn đề là nó chỉ tác dụng khi không short, còn sau khi short, ròi nhấn checkbox thì nó không tự fill hàm xuống nữa, anh chị em có cách nào viết lại giúp mình code này để khi mỗi lần short xong, tick vào nút checkbox thì nó vẫn tự động fill xuống được không ạ.
Mình xin chân thành cảm ơn mọi người.