Code co dãn dòng chiều cao tối thiểu (1 người xem)

[vova2209]

Đoạn code ở GPE: khi dãn dòng sang 2 hoặc 3 dòng thì toàn bị thiếu mất chiều cao của chữ, em thấy mạc định code đang là 16.5, nếu 3 dòng thì bằng 49.5
1. giờ em muốn chiều cao tối thiểu của nó là 18 thì phải sửa như nào. Nhờ anh chị giúp đỡ em a. Em xin cảm ơn!

'FIX ROW CO DAN DÒNG
Sub MergeCellFit(ByVal MergeCells As Range)
    Dim Diff As Single
    Dim FirstCell As Range, MergeCellArea As Range
    Dim Col As Long, ColCount As Long, RowCount As Long
    Dim FirstCellWidth As Double, FirstCellHeight As Double, MergeCellWidth As Double
  
    If MergeCells.Count = 1 Then
        Set MergeCellArea = MergeCells.MergeArea
    Else
        Set MergeCellArea = MergeCells
    End If

    With MergeCellArea
        ColCount = .Columns.Count
        RowCount = .Rows.Count
        .WrapText = True
        If RowCount = 1 And ColCount = 1 Then
            .EntireRow.AutoFit
            GoTo ExitSub
        End If
        Set FirstCell = .Cells(1, 1)
        FirstCellWidth = FirstCell.ColumnWidth
        Diff = 0.75
        For Col = 1 To ColCount
            MergeCellWidth = MergeCellWidth + .Cells(1, Col).ColumnWidth + Diff
        Next
        .MergeCells = False
        FirstCell.ColumnWidth = MergeCellWidth - Diff
        .EntireRow.AutoFit
        FirstCellHeight = FirstCell.RowHeight
        .MergeCells = True
        FirstCell.ColumnWidth = FirstCellWidth
        FirstCellHeight = FirstCellHeight / RowCount
        .RowHeight = FirstCellHeight
    End With
ExitSub:
End Sub

+ Em xin nhờ thêm chút nữa
2. Tại những vị trí i5, i6, i7 nếu thay 14 = E14, 82=E82, 111=E111 thì phai khai báo biến như nào và đoạn code dưới phải sửa như nào ạ

Sub CoDanRowBB()
    Dim R1, R2, R3 As Long
        R1 = Range("AI5")
        R2 = Range("AI6")
        R3 = Range("AI7")
   
        MergeCellFit Sheets("BBan").Range("E" & R1) 'NT Noi Bo
        Range("E" & R2).RowHeight = Range("E" & R1).RowHeight 'Phieu Yeu Cau
        Range("E" & R3).RowHeight = Range("E" & R1).RowHeight 'NT CVXD
End Sub

 

[dangky47h]

Những cái Biên bản hay quyết định tại sao bạn không đánh tạo mẫu trong word, khi nào cần thì bạn chỉ chạy Code lấy dữ liệu từ Excel qua Word cho nó tiện, chứ canh văn bản trong Excel mệt lắm

Cho em hỏi " Code lấy dữ liệu từ Excel qua Word " là thế nào vậy ạ! Chị nói rõ hơn được k ạ!

 

[nlbx]

chịu hỏi bác Gúc tý là có mà.
https://www.giaiphapexcel.com/diend...-excel-sang-word-và-ngược-lại-bằng-vba.14703/

 

[dangky47h]

chịu hỏi bác Gúc tý là có mà.
https://www.giaiphapexcel.com/diend...-excel-sang-word-và-ngược-lại-bằng-vba.14703/

E cám ơn ạ!

 

[be_09]

Cho em hỏi " Code lấy dữ liệu từ Excel qua Word " là thế nào vậy ạ! Chị nói rõ hơn được k ạ!

Sao nhiều người thích cái vụ Word quá vậy, nếu cần gộp nhiều Cell vào 1 thì tính sao?
Xem cách làm trong File ở Link sau:
https://www.giaiphapexcel.com/diend...t-nhật-ký-thi-công-công-trình-tự-đông.131381/