Hỏi cách tự động co dãn chiều cao của dòng?

[hntuytbng]

Mọi người cho mình hỏi chút ạ: Mình có 1 dòng công thức mà nó lấy dữ liệu ra có lúc ngắn lúc dài, mình muốn khi nó dài thì nó tự động dãn ra, và khi ngắn thì nó tự động co lại. Mình có gửi file mẫu đính kèm. Mọi người giúp mình với nhé. Xin cảm ơn.

 

[phulien1902]

Mọi người cho mình hỏi chút ạ: Mình có 1 dòng công thức mà nó lấy dữ liệu ra có lúc ngắn lúc dài, mình muốn khi nó dài thì nó tự động dãn ra, và khi ngắn thì nó tự động co lại. Mình có gửi file mẫu đính kèm. Mọi người giúp mình với nhé. Xin cảm ơn.

Bạn muốn tự động co dãn cột G, bạn có thể dùng sự kiện:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g8:G100")) Is Nothing Then
        Range("G:G").EntireColumn.AutoFit
    End If
End Sub

 

[CHAOQUAY]

Mọi người cho mình hỏi chút ạ: Mình có 1 dòng công thức mà nó lấy dữ liệu ra có lúc ngắn lúc dài, mình muốn khi nó dài thì nó tự động dãn ra, và khi ngắn thì nó tự động co lại. Mình có gửi file mẫu đính kèm. Mọi người giúp mình với nhé. Xin cảm ơn.

Di chuột về sheet tab, nhấn chuột phải, chon view code, dán đoạn code dưới dây, nhấn alt+q.
Thay đổi g8 xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$8" Then
    Dim i, j, k
    i = Range("f9")
    j = Range("f9").ColumnWidth
    Range("f9") = Range("g9").Value
    Range("f9").Font.Bold = 1
    Range("f9").Columns.AutoFit
    k = Range("f9").ColumnWidth
    Range("f9") = i
    Range("f9").ColumnWidth = j
    Range("f9").Font.Bold = 0
    Range("g1:k1").ColumnWidth = k \ 5
End If
End Sub

 

[lameco411]

Mọi người cho mình hỏi chút ạ: Mình có 1 dòng công thức mà nó lấy dữ liệu ra có lúc ngắn lúc dài, mình muốn khi nó dài thì nó tự động dãn ra, và khi ngắn thì nó tự động co lại. Mình có gửi file mẫu đính kèm. Mọi người giúp mình với nhé. Xin cảm ơn.

Tiêu đề và nội dung chẳng liên quan gì nhau!!!
Thêm nữa:
Nếu bạn muốn chữ tự động co dãn theo kích thước ô có sẵn thì có thể :
chọn cái Shrink to fit trong phần định dạng

 

[hntuytbng]

Bạn muốn tự động co dãn cột G, bạn có thể dùng sự kiện:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g8:G100")) Is Nothing Then
        Range("G:G").EntireColumn.AutoFit
    End If
End Sub

Hông, nhầm rồi bạn à, không phải co dãn cột G, mà chỉ co dãn cái đoạn mà mình trộn từ G9:K9 thôi, và dãn dòng chứ k phải dãn cột nha bạn.

 

[saobekhonglac]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g8:G100")) Is Nothing Then
        Range("G:G").EntireColumn.AutoFit
    End If
End Sub

[/QUOTE]

Nếu muốn làm cho dòng thì code như thế nào vậy anh, nếu dài qua thì tự xuống dòng và wrap text.

 

[hntuytbng]

Di chuột về sheet tab, nhấn chuột phải, chon view code, dán đoạn code dưới dây, nhấn alt+q.
Thay đổi g8 xem sao

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$8" Then
    Dim i, j, k
    i = Range("f9")
    j = Range("f9").ColumnWidth
    Range("f9") = Range("g9").Value
    Range("f9").Font.Bold = 1
    Range("f9").Columns.AutoFit
    k = Range("f9").ColumnWidth
    Range("f9") = i
    Range("f9").ColumnWidth = j
    Range("f9").Font.Bold = 0
    Range("g1:k1").ColumnWidth = k \ 5
End If
End Sub

Cách này thì nó dãn cột đều ra hết, nên cũng không được, vì mình muốn nó xuống dòng, chứ k thì in ra nó nằm ở trang 2 mất.

 

[be_09]

Bạn muốn tự động co dãn cột G, bạn có thể dùng sự kiện:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g8:G100")) Is Nothing Then
        Range("G:G").EntireColumn.AutoFit
    End If
End Sub

Đối với trường hợp Merge and Center thì sử dụng AutoFit chắc là không được.

Bài đã được tự động gộp: 3/10/18

Mọi người cho mình hỏi chút ạ: Mình có 1 dòng công thức mà nó lấy dữ liệu ra có lúc ngắn lúc dài, mình muốn khi nó dài thì nó tự động dãn ra, và khi ngắn thì nó tự động co lại. Mình có gửi file mẫu đính kèm. Mọi người giúp mình với nhé. Xin cảm ơn.

Góp ý cho bạn:
Nên cụ thể vùng bạn muốn áp dụng cho sheet nào, chứ không nên ví dụ nữa chừng có 1 vùng G9: K9 khi áp dụng vào File thực tế sẽ khó.

 

[hntuytbng]

Đối với trường hợp Merge and Center thì sử dụng AutoFit chắc là không được.

Bạn xem thử có cách nào k giúp mình với ạ. Mình thấy bạn ở trên cho mình đoạn code thì nó tự động giãn cột ra được đó, nhưng mình muốn nó xuống dòng, chứ k phải dài ra ạ. Xin cảm ơn.

 

[be_09]

Bạn xem thử có cách nào k giúp mình với ạ. Mình thấy bạn ở trên cho mình đoạn code thì nó tự động giãn cột ra được đó, nhưng mình muốn nó xuống dòng, chứ k phải dài ra ạ. Xin cảm ơn.

Bạn kiểm tra File nhé.

 

[hntuytbng]

Bạn kiểm tra File nhé.

Bạn ơi, cách này mình thấy đúng ý mình rồi đó, nhưng mà sao khi dữ liệu nhiều dòng nó dãn ra đúng, mà khi dữ liệu còn 1 dòng nó k co lại thành 1 dòng được vậy bạn? Giúp mình tí nữa nhé. Cảm ơn bạn nhiều.

 

[be_09]

Bạn ơi, cách này mình thấy đúng ý mình rồi đó, nhưng mà sao khi dữ liệu nhiều dòng nó dãn ra đúng, mà khi dữ liệu còn 1 dòng nó k co lại thành 1 dòng được vậy bạn? Giúp mình tí nữa nhé. Cảm ơn bạn nhiều.

Phải định dạng thêm như hình.