Viết code theo 1 cách khác hoặc rút gọn code lại (1 người xem)

[thangteotdtt]

Chào các bạn trên diễn đàn mình có record lại được đoạn code như thế này và mình gán code này vào 1 cái nút nhưng do nó chạy cà giựt, cà giựt, các bạn giúp mình viết lại cho gọn nhé, cảm ơn các bạn nhiều.

Private Sub xoa_Click()
Range("B5:K130").Select Selection.ClearContents
Range("L5").Select
Selection.ClearContents
Range("M5:O130").Select
Selection.ClearContents
Range("P5").Select
Selection.ClearContents
Range("Q5").Select
Selection.ClearContents
Range("R5").Select
Selection.ClearContents
Range("S5").Select
Selection.ClearContents
end sub

 

[nghiaphuc]

Chào các bạn trên diễn đàn mình có record lại được đoạn code như thế này và mình gán code này vào 1 cái nút nhưng do nó chạy cà giựt, cà giựt, các bạn giúp mình viết lại cho gọn nhé, cảm ơn các bạn nhiều.

Bạn thử thay cả dãy lệnh đó bởi 1 câu lệnh sau, khỏi Select gì ráo:

Range("B5:K11,L5,M5:O130,P5:S5").ClearContents

 

[thangteotdtt]

Oh. cảm ơn bạn nhiều hé. mình có đọc 1 số bài thay range bằng Union này thì làm sao hé bạn. Vì mình muốn hiểu cái Union này

 

[nghiaphuc]

Oh. cảm ơn bạn nhiều hé. mình có đọc 1 số bài thay range bằng Union này thì làm sao hé bạn. Vì mình muốn hiểu cái Union này

Phương thức Union được dùng để kết hợp nhiều vùng (trong đa số trường hợp thì các vùng này rời rạc) thành một vùng. Nó tương tự như phép toán Hợp các tập hợp trong Toán học vậy.

Với cách sử dụng phương thức Union thì câu lệnh trên có thể thay bởi câu lệnh này:

[COLOR=#000000]Union([B5:K11],[L5:L5],[M5:O130],[P5:S5]).ClearContents[/COLOR]

 

[thangteotdtt]

Cảm ơn bạn nhiều mình đã hiểu.