addin format chiều rộng cột theo số liệu của một ô

[hientommy]

Nhờ các pro viết hộ một!

 

[Quang_Hải]

Nhờ các pro viết hộ một!

Copy code cho vào sheet

Private Sub Worksheet_Change(ByVal Target As Range)
Columns(Target.Column).AutoFit
End Sub

 

[hientommy]

Xin bác quanghai1969 hướng dẫn chi tiết giùm!
mình đang cần addin thay đổi tự động chiều rộng cột theo số liệu của một ô
Ví dụ: chiều rộng ô mặc định là 8.11 dpi, khi mình nhập vào ô là 10 thì chiều rộng ô tự động chuyển thành 10 dpi!
Ai biết xin chỉ giùm! Thank!!!

 

[Quang_Hải]

Xin bác quanghai1969 hướng dẫn chi tiết giùm!
mình đang cần addin thay đổi tự động chiều rộng cột theo số liệu của một ô
Ví dụ: chiều rộng ô mặc định là 8.11 dpi, khi mình nhập vào ô là 10 thì chiều rộng ô tự động chuyển thành 10 dpi!
Ai biết xin chỉ giùm! Thank!!!

Bạn muốn nhập vào ô nào???
Đoán thế này
Lấy C1 làm mốc. Nhập vào C1 giá trị là 10 thì cột giãn ra là 10, khi nhập vào là 5 thì co lại thành 5

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [C1].Address Then
   Columns(3).ColumnWidth = Target.Value
End If
End Sub

 

[hientommy]

Thank! bạn nhiều! nhưng mình ko biết cách tạo hàm!
Bác có thể tạo thành hàm có công thức giùm mình được ko? thank!

 

[hientommy]

Mình vẫn ko làm được!
Bác quanghai1969 có thể gửi file excell kèm code được ko! Thank!

 

[ndunghuong]

Không được rồi bạn ơi, báo lỗi đoạn này

 

[Hong.Van]

Không được rồi bạn ơi, báo lỗi đoạn nàyView attachment 134426

THử code này

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("a:k").AutoFit
End Sub

 

[hientommy]

Thank! các bạn
mình đã làm được rồi!