Hỏi về VBA (1 người xem)

[__Devil__]

Mình có cái file excel này. Bình thường khi mình lấy số tầng <20 thì nó kẻ hết khung còn >20 tầng thì nó không kẻ hết!
Minh mở Modul nhưng không biết sửa như thế nào! Các bạn tư vấn giúp mình giải pháp xử lý với!

 

[Ba Tê]

Mình có cái file excel này. Bình thường khi mình lấy số tầng <20 thì nó kẻ hết khung còn >20 tầng thì nó không kẻ hết!
Minh mở Modul nhưng không biết sửa như thế nào! Các bạn tư vấn giúp mình giải pháp xử lý với!

Trong code không liên quan việc kẻ khung. Nó được làm trong Conditional Formatting.
Bạn Ủnpotect Sheet rồi vào Conditional Formatting chỉnh lại.

 

[Let'GâuGâu]

Mình có cái file excel này. Bình thường khi mình lấy số tầng <20 thì nó kẻ hết khung còn >20 tầng thì nó không kẻ hết!
Minh mở Modul nhưng không biết sửa như thế nào! Các bạn tư vấn giúp mình giải pháp xử lý với!

góp ý nhỏ (ko liên quan tới câu hỏi)
nếu chưa viết code được bằng mảng, thì bạn bỏ bớt mấy cái select đi, (nó gây ra màn hình cứ ca giựt, làm chậm tốc độ
ví du

Sub GenerateSections_Click()

    Sheets("DATA").Range("E17:N46").Select  'Xoa du lieu
        Selection.ClearContents
    Sheets("DATA").Range("C12").Select
   
End Sub

có thể viết lại là
Sub GenerateSections_Click()
    Sheets("DATA").Range("E17:N46").ClearContents
End Sub