Làm sao để khi lập công thức tìm kiếm dữ liệu tìm thấy sẽ tự co dãn cho phù hợp (1 người xem)

[benthen]

Em có một bảng gia hạn hợp đồng có sườn sẵn và các thông tin sẽ thay đổi theo số thứ tự muốn in nhưng khi tìm kiếm số hợp đồng khác nhau sẽ dẫn đến là mình phải điều chỉnh tay rất mất thời gian
Ví dụ số Hợp đồng ngắn khoảng cách giữa số hợp đồng và ngày ký sẽ xa và ngược lại có Anh Chị nào có cách giải quyết để công thức sẽ tự điều chỉnh độ dãn giữa các chữ không ạ .Em up file cùng cả nhà xem giúp em với nhé Em cảm ơn. Khó quá

 

[sonktpm2]

Em có một bảng gia hạn hợp đồng có sườn sẵn và các thông tin sẽ thay đổi theo số thứ tự muốn in nhưng khi tìm kiếm số hợp đồng khác nhau sẽ dẫn đến là mình phải điều chỉnh tay rất mất thời gian
Ví dụ số Hợp đồng ngắn khoảng cách giữa số hợp đồng và ngày ký sẽ xa và ngược lại có Anh Chị nào có cách giải quyết để công thức sẽ tự điều chỉnh độ dãn giữa các chữ không ạ .Em up file cùng cả nhà xem giúp em với nhé Em cảm ơn. Khó quá

Mình làm bằng cách này nó sẽ tự động đẩy dòng cho mình theo dữ liệu. Bạn xem tham khảo xem nhé. Mình dùng add in atools
https://www.youtube.com/watch?v=x5VwTHaqsMQ&feature=youtu.be

 

[benthen]

Cảm ơn anh Sonktpm2 nhưng em xem xong ko hiểu gì nó như là lập trình ý hihi
khó quá

 

[phucbugis]

Em có một bảng gia hạn hợp đồng có sườn sẵn và các thông tin sẽ thay đổi theo số thứ tự muốn in nhưng khi tìm kiếm số hợp đồng khác nhau sẽ dẫn đến là mình phải điều chỉnh tay rất mất thời gian
Ví dụ số Hợp đồng ngắn khoảng cách giữa số hợp đồng và ngày ký sẽ xa và ngược lại có Anh Chị nào có cách giải quyết để công thức sẽ tự điều chỉnh độ dãn giữa các chữ không ạ .Em up file cùng cả nhà xem giúp em với nhé Em cảm ơn. Khó quá

mình cài thử cho 2 vị trí P18, K20 --> khi số HS (BQ3) thay đổi --> nội dung 2 ô đó sẽ tự động co giãn

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$BT$5" And [bt5] > [bt7] Then [bt7] = [bt5]
    If Target.Address = "$BT$7" And [bt5] > [bt7] Then [bt5] = [bt7]
    
    '-------
    Dim MyArray As Variant, i As Integer
    
    If Target.Address = Range("BQ3").Address Then
    If Target <> "" Then
        
        MyArray = Array("[COLOR=#b22222][B]P18[/B][/COLOR]", "[COLOR=#b22222][B]K20[/B][/COLOR]")
        
        For i = [B][COLOR=#b22222]0 To 1[/COLOR][/B]
            Call AutoFitMergedCellRowHeight(Range(MyArray(i)))
        Next i
        
    End If
    End If
End Sub