Xin giúp code VBA thay đổi độ rộng cột (1 người xem)

[hoang0569]

Giúp tôi code trong trường hợp sau: khi A1=1, Cột C sẽ rộng ra =15, khi A1=2, cột E,H rộng ra=15,khi A1=3, cột K,L rộng ra=15....xin cảm ơn nhiều

 

[chuot0106]

Giúp tôi code trong trường hợp sau: khi A1=1, Cột C sẽ rộng ra =15, khi A1=2, cột E,H rộng ra=15,khi A1=3, cột K,L rộng ra=15....xin cảm ơn nhiều

Bạn tùy biến thêm nhé!

Public Sub a()
If Sheet1.Range("A1").Value = 1 Then
Columns("C:C").ColumnWidth = 15
ElseIf Sheet1.Range("A1").Value = 2 Then
Columns("E:E").ColumnWidth = 15
Columns("H:H").ColumnWidth = 15
ElseIf Sheet1.Range("A1").Value = 3 Then
Columns("K:K").ColumnWidth = 15
Columns("L:L").ColumnWidth = 15
End If
End Sub

 

[hoang0569]

Cảm ơn bạn chuot0106, mình muốn hỏi thêm code trên có thể thay đổi để khi mỗi lệnh mới thực thi thi các cột của lệnh trước trở về kích thước cũ được không? và có hàm để thay đổi độ rộng cột đc không bạn? cảm ơn nhiều.

 

[tamthat]

Tôi nghĩ việc đơn giản thế chẳng cần code đâu bạn

 

[hoang0569]

Không cần code thì kéo cột hả bạn?

 

[traicauhd]

Do mình nhập du liệu bắng barcode nên khi nhập xong. Ban barcode ok là chạy lệnh

 

[chuot0106]

Cảm ơn bạn chuot0106, mình muốn hỏi thêm code trên có thể thay đổi để khi mỗi lệnh mới thực thi thi các cột của lệnh trước trở về kích thước cũ được không?

Cái này có thể được bạn ạ!

 

[chuot0106]

Bạn test thử File này nhé!

 

[hoang0569]

Mình dùng office 2003 bạn ơi, giúp mình nhé. Cảm ơn bạn nhiều.

 

[hoang0569]

Giúp mình bên Excel 2003 với.