Giải thích code? (1 người xem)

[minhquand]

Mình thấy trên diễn đàn có 1 code tự động giãn cột:

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=#ff0000][B]Columns("a:k").AutoFit[/B][/COLOR]
End Sub

Ý nghĩa nó sẽ tự động giãn cột A:K,nay mình muốn giãn cột A:H bỏ qua cột L,M,N.Giãn cột O:AA thì sửa code như thế nào ngay trên dòng tô đỏ mà không phải copy xuống thêm rồi sửa thành Columns("O:AA").AutoFit.Thanks.

 

[hoangvuluan]

Bạn thư cái này xem sao:
Union(Columns("A:H"), Columns("O:AA")).Columns.EntireColumn.AutoFit

 

[790312]

Bạn thư cái này xem sao:
Union(Columns("A:H"), Columns("O:AA")).Columns.EntireColumn.AutoFit

Vậy là dài hơn như thế này rồi bạn:

Private Sub Worksheet_Change(ByVal Target As Range) [COLOR=#ff0000][B]
Columns("a:k").AutoFit[/B][/COLOR]
[COLOR=#ff0000][B]Columns("O:AA").AutoFit[/B][/COLOR]
 End Sub

Thanks.

 

[dhn46]

Vậy là dài hơn như thế này rồi bạn:

Câu lệnh Union hay hơn nhiều và rộng hơn so với lệnh riêng lẻ của bạn. Bạn cứ thử ví dụ nếu muốn autofit cho cột A:A,C:C,D,M:M,N:N.....khoảng 50 cột trở lên để thấy rõ hơn xem cách nào nhiều ký tự hơn.
Thân!