FitRowXL v1.8 - Giãn dòng tự động và bổ trợ in ấn Excel (*04/2026 mới) (3 người xem)

Bài viết không đủ trình độ chia sẻ trợ giúp trên diễn đàn, bài viết đã được xóa.

​

 

Cách viết code rất chỉnh chu và chuyên nghiệp

 

bác ơi em hỏi thêm chút. vì danh sách lọc em có thể thay đổi nên địa chỉ cần giãn dòng sẽ thay đổi, vậy làm sao để áp dụng hàm của bác được ạh

2. Cách viết hàm đơn lẻ cho từng vùng sẽ tiết kiệm, và code sẽ chạy nhanh hơn:
=S_FitRow(A1:Z1)
=S_FitRow(A2:Z2)
=S_FitRow(A3:Z4)

 

Cái này muốn áp dụng cho VBA đại khái như khi xuất kết quả sau khi làm gì đó mà áp dụng hàm của anh để cho AutoFit kết quả thì làm như thế nào ạ

 If K Then
        .Range("A9").Resize(K, 10) = Res
        .Range("A9").Resize(K, 10).Font.Name = "Calibri"
        .Range("A9").Resize(K, 10).Font.Size = 9
        .Range("A10").Resize(K, 10).Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Range("B9").Resize(K).WrapText = 1
        .Range("A9").Resize(K, 10).VerticalAlignment = xlCenter
        .Range("J9").Resize(K).NumberFormat = "0.0%"
        .Range("E9:F" & 9 + K).NumberFormat = "dd/mm"
        'Can chinh do rong cua hang
        If .rows("9:" & 9 + K & "").RowHeight < 20 Then
            .rows("9:" & 9 + K & "").RowHeight = 24
        Else
            .rows("9:" & 9 + K & "").EntireRow.AutoFit
        End If
        .PageSetup.PrintArea = "$A$1:$J" & i + 2 & ""
    End If

 

Cái này muốn áp dụng cho VBA đại khái như khi xuất kết quả sau khi làm gì đó mà áp dụng hàm của anh để cho AutoFit kết quả thì làm như thế nào ạ

 If K Then
        .Range("A9").Resize(K, 10) = Res
        .Range("A9").Resize(K, 10).Font.Name = "Calibri"
        .Range("A9").Resize(K, 10).Font.Size = 9
        .Range("A10").Resize(K, 10).Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Range("B9").Resize(K).WrapText = 1
        .Range("A9").Resize(K, 10).VerticalAlignment = xlCenter
        .Range("J9").Resize(K).NumberFormat = "0.0%"
        .Range("E9:F" & 9 + K).NumberFormat = "dd/mm"
        'Can chinh do rong cua hang
        If .rows("9:" & 9 + K & "").RowHeight < 20 Then
            .rows("9:" & 9 + K & "").RowHeight = 24
        Else
            .rows("9:" & 9 + K & "").EntireRow.AutoFit
        End If
        .PageSetup.PrintArea = "$A$1:$J" & i + 2 & ""
    End If

Nếu ô không có gộp thì bạn chỉ cần:
1. Tắt chế độ Page Break View: ActiveWindow.View = xlNormalView
2. Xóa PrintArea trước khi co giãn bằng phương thức AutoFit

Sau đó bạn chỉ cần mở lại chế độ In nếu bạn cần:
ActiveWindow.View = xlPageBreakView
Và đặt lại PrintArea

bác ơi em hỏi thêm chút. vì danh sách lọc em có thể thay đổi nên địa chỉ cần giãn dòng sẽ thay đổi, vậy làm sao để áp dụng hàm của bác được ạh

Nếu bạn lọc bằng phương thức Filter thì sau khi lọc, Vùng đã lọc nhập vào hàm: =S_FitRow(FilterCells, 5, 40)

 

Nếu ô không có gộp thì bạn chỉ cần:
1. Tắt chế độ Page Break View: ActiveWindow.View = xlNormalView
2. Xóa PrintArea trước khi co giãn bằng phương thức AutoFit

Sau đó bạn chỉ cần mở lại chế độ In:
ActiveWindow.View = xlNormalView
Và đặt lại PrintArea



Nếu bạn lọc bằng phương thức Filter thì sau khi lọc, Vùng đã lọc nhập vào hàm: =S_FitRow(FilterCells, 5, 40)

Cảm ơn bác. e sẽ thử xem sao

 

*** CẬP NHẬT MỚI NHẤT: 10:00 19/4/2021 ***
Hoàn thiện code, cải thiện tốc độ chạy code cho một số trường hợp như chế độ Xem In Ấn hoặc không.

Thêm 2 tham số:
1. Đặt chiều cao mặc định khi vùng cần co giãn tất cả giá trị rỗng
2. Lựa chọn co giãn kể cả ô không ở chế độ WrapText

 

To @HeSanbi
Sao Mạnh tải về thử nó ko có nhúc nhích gì hết vậy
Cái vùng kéo vào nó Hide đi thấy nó cũng IM RE vậy

Windows10_x64 + Office2016_x64

 

To @HeSanbi
Sao Mạnh tải về thử nó ko có nhúc nhích gì hết vậy
Cái vùng kéo vào nó Hide đi thấy nó cũng IM RE vậy

Windows10_x64 + Office2016_x64

Tôi sợ là bác chưa đọc hết bài viết của tôi ở trên thôi.
Chứ bài viết chỉ có đề cập đến gõ hàm và tự động. Hoàn toàn không có "kéo cái gì vào". Nên tôi không biết là bác có hỏi nhầm mục đích của hàm tôi viết không.

Và code có thể hoạt động ở nhiều nền tảng Window và Office.

 

*** CẬP NHẬT MỚI NHẤT: 18:30 19/4/2021 ***
Cập nhật thay đổi giải thuật co giãn dòng

 

*** CẬP NHẬT MỚI NHẤT: 13:30 20/4/2021 ***

+ Thêm tính năng co giãn chính ô viết Hàm
+ Thêm các tham số:

1. Đặt chiều cao mặc định khi vùng cần co giãn tất cả giá trị rỗng
2. Thêm lựa chọn co giãn kể cả ô không ở chế độ WrapText
3. Thêm tham số đặt chiều cao mặc định cho cả dòng có giá trị rỗng
4. Thêm lựa chọn hàm sẽ chỉ thực thi tại Trang tính hiện hành để tăng tốc, các hàm co giãn ở Trang tính khác sẽ ở trạng thái chờ nếu có lựa chọn này.

Bản cập nhật tiếp theo sẽ có những gì:

1. Thêm các yếu tố co giãn cho đẹp, và phù hợp hơn
2. Sẽ có tính năng giãn Trang, như các mục, chỉ mục, vừa khớp với Trang hoặc dịch chuyển mục, chỉ mục xuống Trang mới nếu nội dung mục, chỉ mục bị tách ra Trang mới.

 

*** CẬP NHẬT MỚI NHẤT: 13:30 20/4/2021 ***

+ Thêm tính năng co giãn chính ô viết Hàm
+ Thêm các tham số:

1. Đặt chiều cao mặc định khi vùng cần co giãn tất cả giá trị rỗng
2. Thêm lựa chọn co giãn kể cả ô không ở chế độ WrapText
3. Thêm tham số đặt chiều cao mặc định cho cả dòng có giá trị rỗng
4. Thêm lựa chọn hàm sẽ chỉ thực thi tại Trang tính hiện hành, các hàm co giãn ở Trang tính khác sẽ ở trạng thái chờ nếu có lựa chọn này.

Bản cập nhật tương lai:
+ Sẽ có bản cập nhật để sửa cho chính xác một số trường co giãn chưa đẹp
+ Sẽ có hỗ trợ điều chỉnh văn bản, như các mục, chỉ mục, vừa khớp với Trang hoặc dịch chuyển mục, chỉ mục xuống Trang mới nếu nội dung mục, chỉ mục bị tách ra Trang mới.

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM UDF TỰ ĐỘNG CO GIÃN DÒNG

với Hàm S_FitRow

Chức năng ưu việt của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô cùng dòng.
4. Hoạt động cả ở chế độ Xem In Ấn
5. Thêm một chiều cao nhất định sau khi giản dòng.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.

Hướng dẫn sử dụng hàm:

Vị trí	Tham số	Kiểu	Chức năng
1​	Target	Vùng cần giãn dòng	Nhận vùng cần co giãn
2​	Margin	Kiểu số	Tăng chiều cao thêm một số
3​	defaultHeight	Kiểu số	Chiều cao mặc định nếu giá trị rỗng
4​	HeightOfRowNull	Kiểu số	Đặt chiều cao cho cả dòng rỗng
5​	IncludeNoWrap	Có/Không	Co giãn kể cả ô không WapText
6​	OnlySheetVisible	Có/Không	Chỉ giãn dòng ở Trang hiện hành
7​	Title	Chuỗi	Chuỗi bất kì do người dùng đặt (Nếu không thì trả về giá trị là Fit:{vùng})

Cách viết hàm nhanh, gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A.

Viết hàm nhanh: =S_FitRow(A2)
Viết hàm có cài đặt đối số: =S_FitRow(A2,5,40,False)

Ví dụ: =S_FitRow(A1:E9, 5, 40, FALSE)
+ A1:E9 là vùng cần co giãn
+ 5 là tăng thêm chiều cao 5 đơn vị
+ 40 là chiều cao mặc định nếu tất cả giá trị rỗng
+ FALSE thì ô không WapText thì không co giãn
Cũng có thể gõ nhanh =S_FitRow(A1:E9) bỏ qua các cài đặt


Cách viết hàm như sau sẽ co giãn chính ô viết hàm:

1. Khi nhập chuỗi:​

=S_FitRow("Chuỗi",5)​

2. Khi tham chiếu giá trị thì đóng dấu ngoặc tròn ô tham chiếu:​

=S_FitRow((A2),5)​

Cách viết hàm như sau sẽ co giãn vùng tham chiếu:

=S_FitRow(B26: D35,5)​

Ví dụ: Cần co giãn các ô như sau: B28:C31, D28:E28, D29: D30, E29:E31, D31

Thì viết hàm: =S_FitRow(B28:E31,5)​

Để có thể co giãn các ô cùng dòng và đã gộp ô​

Các phương thức Bổ trợ:
1. Gõ hàm S_FitRow_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.
2. Gõ hàm S_FitRow_ON: Nếu đã tắt chế độ co giãn dòng tự động thì bật lên.
3. Thủ tục S_FitRow_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call S_FitRow_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

​

*** Nếu bạn viết quá nhiều công thức hàm S_FitRow thì không thể thiếu bước 3 này​

Cách nhập nhiều mảng:

Sử dụng hàm S_Cells hàm tự tạo: =S_FitRow(S_Cells(A1:C9,D2: D3,E5:E6), 5, 40)​

Hướng dẫn tận dụng hàm:
Với 2 ví dụ sau:
1. Cách viết hàm tổng quát như sau sẽ gây chậm và tiêu tốn CPU:
=S_FitRow(A1:Z500)

2. Cách viết hàm đơn lẻ cho từng vùng sẽ tiết kiệm, và code sẽ chạy nhanh hơn:
=S_FitRow(A1:Z1)
=S_FitRow(A2:Z2)
=S_FitRow(A3:Z4)

Tức là hãy nhập vùng cho hàm sao cho vùng đó tương ứng với số dòng ô được gộp lớn nhất của dòng tương ứng.
Nếu ta có các vùng được gộp là A1:C9, D2: D3, E5:E6, thì rõ ràng là A1:C9 có các dòng chứa hết các vùng còn lại,
nên ta viết: =S_FitRow(A1:E9)


Những lỗi có thể xảy ra:

1. Vì code sẽ mượn một ô trong trang tính làm ô để giãn dòng, vì vậy nếu hàm có vùng tham chiếu giao với ô được mượn thì xảy ra lỗi.
2. Nếu có hai hàm có tham chiếu là hai vùng giao nhau có thể xảy ra lỗi.
3. Nếu trang tính hoặc ô tham chiếu đang khóa, cũng có thể xảy ra lỗi.

*** Các bạn lưu ý code có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.

Option Explicit
Private Type PARAMIndex
  value As String
  Cell As Excel.Range
  Cells As Excel.Range
  Minimum As Single
  RowHeight As Single
  OneLine As Boolean
  More  As Boolean
End Type

Private Type TypeArguments
  Action As Long
  Target As Variant
  Caller As Range
  Formula As String
  Margin As Single
  defaultHeight As Single
  HeightOfRowNull As Single
  IncludeNoWrap As Boolean
  OnlySheetVisible As Boolean
  Cells As Excel.Range
End Type
#If VBA7 Then
  Public Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongPtr, ByVal lpTimerFunc As LongPtr) As Long
  Public Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
#Else
  Public Declare Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
  Public Declare Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
#End If
''///////////////////////////////////////////////////////
#If VBA7 And Win64 Then
  Private gTimerID As LongPtr
#Else
  Private gTimerID As Long
#End If
''///////////////////////////////////////////////////////
Private Works() As TypeArguments, FitUnable As Boolean

Private Const MaxH = 1450, MaxV = 409

Function S_Cells(ParamArray Cells())
  Dim c, R As Range
  For Each c In Cells
    If TypeName(c) = "Range" Then
      If R Is Nothing Then
        Set R = c
      Else
        If R.Parent Is c.Parent Then
          Set R = Union(c, R)
        End If
      End If
    End If
  Next
  Set S_Cells = R
End Function

Private Sub S_FitRow_Toggle()
  With ActiveSheet.CheckBoxes("chxAutoFitRow")
    FitUnable = .value <> 1
  End With
End Sub

Function S_FitRow_ON()
  FitUnable = False
End Function

Function S_FitRow_Off()
  FitUnable = True
End Function


Function S_FitRow(Optional ByVal Target, _
    Optional ByVal Margin!, _
    Optional ByVal defaultHeight!, _
    Optional ByVal HeightOfRowNull!, _
    Optional ByVal IncludeNoWrap As Boolean, _
    Optional ByVal OnlySheetVisible As Boolean, _
    Optional ByVal Title$ = vbNullChar) As String
  On Error Resume Next

  Dim R As Object, k&, i&, s$
  s = Target.Address(0, 0)
  Set R = Application.Caller

  Select Case True
  Case TypeName(Target) <> "Range"
    S_FitRow = Target
    Set Target = R
  Case LCase(R.Formula) Like "*s_fitrow((" & LCase(s) & ")*" And Target.Cells.Count = 1
    S_FitRow = Target(1, 1).value
    Set Target = R
  Case Title = vbNullChar
    S_FitRow = "Fit=" & s
  Case Else
    S_FitRow = Title
  End Select
  If FitUnable Then
    Exit Function
  End If

  k = UBound(Works)
  If k > 0 Then
    For i = 1 To k
      With Works(i)
        If Not .Target Is Nothing Then
          If .Formula = R.Formula _
          And .Target.Parent Is Target.Parent _
          And .Target.Address = Target.Address Then
            .Action = 0
            GoTo n
          End If
        End If
      End With
    Next
  End If

  k = k + 1
  ReDim Preserve Works(1 To k)

  With Works(k)
    .defaultHeight = defaultHeight
    .HeightOfRowNull = HeightOfRowNull
    Set .Caller = R
    Set .Target = Target
    .Margin = Margin
    .Formula = R.Formula
    .IncludeNoWrap = IncludeNoWrap
    .OnlySheetVisible = OnlySheetVisible
  End With
n:
  Set R = Nothing

  If gTimerID = 0 Then
    gTimerID = SetTimer(0&, 0&, 0, AddressOf S_FitRow_callback)
  End If
End Function

Private Sub S_FitRow_callback()
  On Error Resume Next
  Call KillTimer(0&, gTimerID)
  gTimerID = 0
  S_FitRow_working
  On Error GoTo 0
End Sub

Private Sub S_FitRow_test2()

  'Application.CutCopyMode = xlCopy
  'Application.CutCopyMode = xlCut
  [A7].Copy [A8]
  'Application.CutCopyMode = xlCut
  'Application.CutCopyMode = xlCopy
'   Dim R
'   Static s&
'   s = s + 1
'   Set R = [A4]
'   R.Resize(4, 1).value = s
End Sub
Private Sub S_FitRow_test()
   Dim R
   Set R = [A9]
   Application.Calculation = xlCalculationManual
   R(1, 1).Formula = "=S_FitRow($A$3:$H$3, 5,40,FALSE,TRUE)"
   R(2, 1).Formula = "=S_FitRow($A$4:$H$4, 5,40,FALSE,TRUE)"
   R(3, 1).Formula = "=S_FitRow($A$5:$H$5, 5,40,FALSE,TRUE)"
   R(4, 1).Formula = "=S_FitRow($A$6:$H$6, 5,40,FALSE,TRUE)"
   R(5, 1).Formula = "=S_FitRow($A$7:$H$7, 5,40,FALSE,TRUE)"
   Application.Calculation = xlCalculationAutomatic
End Sub
''///////////////////////////////////////////////////////
Private Sub S_FitRow_working()

  On Error Resume Next
  Dim UB As Integer, A As Object, B As TypeArguments, i&, k&, n&, su As Boolean
  Dim W As Object, Hl As Object, HlText As Variant
  Set Hl = VBA.CreateObject("htmlfile")
  HlText = Hl.parentWindow.clipboardData.GetData("Text")
  UB = UBound(Works)
  For i = 1 To UB
    B = Works(i)

    If B.Action = 0 Then
      If B.Caller.Formula = B.Formula Then
        If B.OnlySheetVisible Then
          Set W = Nothing
          Set W = B.Target.Parent.Parent.ActiveSheet
          If Not B.Target.Parent Is W Then
            GoTo n
          End If
        End If
        If A Is Nothing Then
          Set A = B.Target.Parent.Parent.Parent
          su = A.ScreenUpdating
          If su Then A.ScreenUpdating = False
        End If
        Works(i).Action = 1
        If B.Caller.Address = B.Target.Address Then
          B.Caller.WrapText = True
        End If
        Call S_FitRow_Final(B.Target, B.Margin, B.defaultHeight, B.HeightOfRowNull, B.IncludeNoWrap)
      End If
    End If
    k = k + 1
n:
  Next
  If k >= UB Then
    Erase Works
  End If
  If Not A Is Nothing Then
    If su And A.ScreenUpdating <> su Then
      A.ScreenUpdating = su
    End If
    Set A = Nothing
  End If
  If Len(HlText) Then
    Hl.parentWindow.clipboardData.setData "Text", HlText
  End If
  Set W = Nothing
  Set Hl = Nothing
  On Error GoTo 0
End Sub

Private Sub S_FitRow_Final_test()
  Call S_FitRow_Final(Array(Sheet1.[A3:F7], Sheet2.[A3:F7], Sheet1.[A10]), 5, 40, False)
End Sub

Private Sub S_FitRow_Final( _
                         ByVal Target, _
                Optional ByVal Margin!, _
                Optional ByVal defaultHeight!, _
                Optional ByVal HeightOfRowNull! = 15, _
                Optional ByVal IncludeNoWrap As Boolean)
  If Margin < 0 Then
    Margin = 0
  End If
  If defaultHeight < 0 Then
    defaultHeight = 0
  End If
  If HeightOfRowNull < 0 Then
    HeightOfRowNull = 0
  End If
  Dim WS As Excel.Worksheet
  Dim Tg2 As Excel.Range
  Dim NewCell As Excel.Range
  Dim CCell As Excel.Range
  Dim Contain As Excel.Range
  Dim CellMergeArea As Excel.Range
  Dim Ar As Excel.Range
  Dim Ars As Excel.Range
  Dim P1 As VBA.Collection
  Dim P2 As VBA.Collection
  Dim P_, A, Area, Areas, Cell
  Dim line&, su As Boolean
  Dim Z() As PARAMIndex, Arrs(), st(), nArr(1 To 4)
  Dim i&, R&, k&, n%, ni%, ii&, jj%, ij%, W As Boolean
  Dim FromLine&, ToLine&, RowCount&, RC2&
  Dim H As Single, H2 As Single, H3 As Single, H4 As Single, H5 As Single
  Dim WindowView As Integer
  Dim Surplus As Single, More As Boolean, mul As Boolean
  Dim LastRow&, LastCol%

  Set P1 = New VBA.Collection
  If Not IsArray(Target) Then
    Areas = Array(Target)
  Else
    Areas = Target
  End If
Rep:
  For Each Areas In Target
    If TypeName(Areas) = "Range" Then
      If WS Is Nothing Then
        Set WS = Areas.Parent
        Set A = WS.Parent.Parent
        su = A.ScreenUpdating
        If su Then A.ScreenUpdating = False
        WindowView = getWindowView(WS)
        GoSub A
      Else
        If Not WS Is Areas.Parent Then
          Set Contain = Nothing
          Set WS = Areas.Parent
          WindowView = getWindowView(WS)
          GoSub A
        End If
      End If
      For Each Area In Areas.Areas
        ij = 0
        For ii = 1 To Area.rows.Count
          For jj = 1 To Area.Columns.Count
            GoSub Area
          Next
        Next
        If ij = 0 And defaultHeight > 0 Then
          If Tg2 Is Nothing Then
            Set Tg2 = Area
          Else
            Set Tg2 = Union(Area, Tg2)
          End If
        End If
      Next
      Set st(1, ni) = Contain
    End If
  Next
  If Not mul Then
    mul = True: GoTo Rep
  End If
  If Not Tg2 Is Nothing Then
    For Each Area In Tg2.Areas
      GoSub r3
    Next
  End If
Ends:
  GoSub finish
Exit Sub
A:
  ni = 0
  If n > 0 Then
    For i = 1 To n
      If IsObject(st(1, n)) Then
        If st(1, n).Parent Is WS Then
          ni = n
          Set Contain = st(1, n)
          Set CCell = st(2, n)
          Exit For
        End If
      End If
    Next
  End If
  If ni = 0 Then
    n = n + 1: ni = n
    ReDim Preserve st(1 To 4, 1 To n)
    st(3, n) = 8.38
    st(4, n) = 15
    Set Contain = Nothing
    Set CCell = Nothing
  End If
Return
Area:
  Set Cell = Area(ii, jj)

  If Cell.value <> vbNullString Then
    If Cell.WrapText Or IncludeNoWrap Then
      Set CellMergeArea = Cell.MergeArea
      If Contain Is Nothing Then
        GoSub rows
      Else
        If Intersect(CellMergeArea, Contain) Is Nothing Then
          GoSub rows
        End If
      End If
    End If
  End If
Return


rows:
  ij = ij + 1
  If Not Cell.EntireRow.Hidden Then
    W = False: More = False
    RowCount = CellMergeArea.rows.Count
    FromLine = Cell.Row
    ToLine = FromLine + RowCount - 1
    If ToLine > line Then
      line = ToLine
      ReDim Preserve Z(1 To line)
    End If

    If WS.PageSetup.PrintArea <> vbNullString _
    Or WindowView = 2 Or CellMergeArea.Cells.Count > 1 Or More Then
      If mul Then
        GoSub Add
        GoSub CopyCell
        Set NewCell = CCell
      End If
    Else
      If Not mul Then
        GoSub Add
        With Z(FromLine)
          If .More Then
            More = True
          Else
            GoSub getMore
            .More = More
          End If
        End With
        If More Then
          GoSub CopyCell
          Set NewCell = CCell
        Else
          Set NewCell = Cell
          W = True
        End If
      End If
    End If
    If W Then
      NewCell.WrapText = False
      NewCell.WrapText = True
      NewCell.rows.AutoFit
      H = NewCell.Height + Margin
      ''
      With Z(FromLine)
        If .OneLine And Not More Then
          If Cell.MergeCells Then
            GoSub SameRow
          End If
        Else
          GoSub SameRow
          .OneLine = Not More And Not Cell.MergeCells
        End If
      End With
    End If
  End If
Return

SameRow:
  H5 = 0
  For i = FromLine To ToLine
    If Not Z(i).Cell Is Nothing Then
      H5 = H5 + Z(i).RowHeight
    End If
  Next
  If H - H5 <= 0 Then
    Return
  End If
  If H5 > 0 And H - H5 > 0 Then
    H2 = (H - H5) / RowCount
    For i = FromLine To ToLine
      Z(i).RowHeight = Z(i).RowHeight + H2
    Next
  Else
    H2 = H / RowCount
    For i = FromLine To ToLine
      On Error Resume Next
      If P1(CStr(i)) = 0 Then
        P1.Add i, CStr(i)
      End If
      On Error GoTo 0
      With Z(i)
        If .Cell Is Nothing Then
          Set .Cell = WS.Cells(i, 1)
          .RowHeight = H2
          If RowCount = 1 Then
            .Minimum = H2
          End If
          Set .Cells = CellMergeArea
        Else
          If .Minimum > 0 Then
            If H2 > .Minimum Then
              Surplus = H2 - .RowHeight
              GoSub R1
              If RowCount = 1 Then
                .RowHeight = H2
              End If
            End If
          Else
            If RowCount = 1 Then
              If H2 > .Minimum Then
                .RowHeight = H2
              End If
            End If
            If H2 > .RowHeight Then
              Surplus = -H2 + .RowHeight
              .RowHeight = H2
              GoSub R
            Else
              If .Minimum Then
                .RowHeight = H2
              End If
            End If
          End If
          Set .Cells = Union(.Cells, CellMergeArea)
        End If
      End With
    Next
  End If
Return
R:
  Set Ars = Nothing
  For Each Ar In Z(i).Cells.Areas
    RC2 = Ar.rows.Count - 1
    If RC2 > 0 Then
      Set P2 = New VBA.Collection
      H4 = 0
      For R = Ar.Row To Ar.Row + RC2
        H4 = H4 + Z(R).RowHeight
        If R < FromLine Or R > ToLine Then
          If Ars Is Nothing Then
            Set Ars = WS.Cells(R, 1)
            P2.Add R, CStr(R)
          Else
            If Intersect(Ars, WS.Cells(R, 1)) Is Nothing Then
              Set Ars = Union(Ars, WS.Cells(R, 1))
              P2.Add R, CStr(R)
            End If
          End If
        End If
      Next
      GoSub r2
    End If
  Next
Return
R1:
  Set Ars = Nothing
  For Each Ar In Z(i).Cells.Areas
    RC2 = Ar.rows.Count - 1
    If RC2 > 0 Then
      Set P2 = New VBA.Collection
      H4 = 0
      For R = Ar.Row To Ar.Row + RC2
        H4 = H4 + Z(R).RowHeight
        If R < FromLine Or R > ToLine Then
          If Ars Is Nothing Then
            Set Ars = WS.Cells(R, 1)
            P2.Add R, CStr(R)
          Else
            If Intersect(Ars, WS.Cells(R, 1)) Is Nothing Then
              Set Ars = Union(Ars, WS.Cells(R, 1))
              P2.Add R, CStr(R)
            End If
          End If
        End If
      Next
      GoSub r2
    End If
  Next
Return
r2:
  If P2.Count = 0 Then
    For R = Ar.Row To Ar.Row + RC2
      If R < FromLine Or R > ToLine Then
        With Z(R)
          If .Minimum > 0 Then
            H3 = .Minimum
          Else
            H3 = 15
          End If
          If H - (.RowHeight - H3) > H4 Then
             H = H - (.RowHeight - H3)
            .RowHeight = H3
          End If
        End With
      End If
    Next
    Return
  End If

  H3 = Surplus / P2.Count

  For Each P_ In P2
    With Z(P_)
      If Not .Cell Is Nothing Then
        If .RowHeight + H3 < .Minimum Then
          P2.Remove CStr(P_)
          GoTo r2
        End If
      End If
    End With
  Next

  If P2.Count Then
    For Each P_ In P2
      With Z(P_)
        If Not .Cell Is Nothing Then
          .RowHeight = .RowHeight + Surplus / P2.Count
        End If
      End With
    Next
  End If

Return
r3:
  RowCount = Area.rows.Count
  H2 = defaultHeight / RowCount
  For i = Area.Row To Area.Row + RowCount - 1
    If Not Z(i).Cell Is Nothing Then
      Return
    End If
  Next
  For i = Area.Row To Area.Row + RowCount - 1
    With Z(i)
      If .Cell Is Nothing Then
        Set .Cell = WS.Cells(i, 1)
        .RowHeight = H2
        Set .Cells = Area
      End If
    End With
  Next
Return
getMore:
  Set Ars = Area(ii, Area.Columns.Count + 1).Resize(1, 500) _
         .Find("*", After:=Area(ii, Area.Columns.Count + 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchOrder:=xlByColumns)
  If Not Ars Is Nothing Then
    More = Not Ars.MergeCells
  End If
  If Not More Then
    If Area.Column > 1 Then
      Set Ars = WS.Cells(Area.Row, 1).Resize(1, Area.Column - 1) _
         .Find("*", After:=WS.Cells(Area.Row, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchOrder:=xlByColumns)
      If Not Ars Is Nothing Then
        More = Not Ars.MergeCells
      End If
    End If
  End If
Return
ResetCell:
  If n > 0 Then
    For i = 1 To n
      If IsObject(st(2, i)) Then
        With st(2, i)
          .EntireColumn.ColumnWidth = st(3, i)
          .EntireRow.RowHeight = st(4, i)
          .Offset(50, 0).Resize(50, 50).Copy st(2, i)
        End With
      End If
    Next
    Erase st
  End If
Return

Add:
  If Contain Is Nothing Then
    Set Contain = CellMergeArea
  Else
    Set Contain = Union(CellMergeArea, Contain)
  End If
Return
CopyCell:
  '' TiÌm ô cuôìi ðêÒ thýòc hiêòn
  If CCell Is Nothing Then
    LastRow = WS.Cells.Find("*", After:=WS.Cells(1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    LastCol = WS.Cells.Find("*", After:=WS.Cells(1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Set CCell = WS.Cells(LastRow + 20, LastCol + 20)
    Do Until CCell.Formula = VBA.vbNullString And CCell.MergeArea.Cells.Count = 1
      Set CCell = CCell(2, 2)
    Loop
    st(3, ni) = CCell.EntireColumn.ColumnWidth
    st(4, ni) = CCell.EntireRow.RowHeight
    Set st(2, ni) = CCell
  End If
  CellMergeArea.Copy CCell
  CCell.value = Cell.value
  CCell.MergeArea.MergeCells = False
  W = SetNewWidthArea(CCell, CellMergeArea)
Return
finish:
  GoSub ResetCell
  '' Thýòc hiêòn giaÞn doÌng
  For Each P_ In P1
    With Z(P_)
      If .RowHeight > 0 Then
        .Cell.EntireRow.RowHeight = .RowHeight
      Else
        .Cell.EntireRow.RowHeight = HeightOfRowNull
      End If
    End With
  Next
  If A.ScreenUpdating <> su And su Then
    A.ScreenUpdating = su
  End If
  If P1.Count Then
    Erase Z
  End If
  Set P1 = Nothing
  Set P2 = Nothing
  Set A = Nothing
  Set Area = Nothing
  Set Cell = Nothing
  Set CellMergeArea = Nothing
  Set Tg2 = Nothing
  Set WS = Nothing
  Set Contain = Nothing
  Set CCell = Nothing
  Set Ar = Nothing
  Set Ars = Nothing
Return
End Sub



Private Function SetNewWidthArea(ByVal NewCell As Range, ByVal CellMerge As Range) As Boolean
  Dim W As Double, W2 As Double, i As Double
  W2 = CellMerge.Width
  If W2 > 1400 Then
    Exit Function
  End If
  W = W2 / 6.05
  NewCell.EntireColumn.ColumnWidth = W
  If NewCell.Width >= W2 Then
    Do
      W = W - 0.3
      NewCell.EntireColumn.ColumnWidth = W
    Loop Until NewCell.Width <= W2
  End If
  Do Until NewCell.Width >= W2
    W = W + 0.1
    NewCell.EntireColumn.ColumnWidth = W
  Loop
  SetNewWidthArea = True
End Function

Private Function getWindowView(ByVal WS As Excel.Worksheet) As Integer
  On Error Resume Next
  Dim W As Object, A As Object
  Set W = WS.Parent.ActiveSheet
  If Not W Is WS Then
    Dim su As Boolean
    Set A = WS.Parent.Parent.Parent
    su = A.ScreenUpdating
    If su Then
      A.ScreenUpdating = False
    End If
    WS.Activate
    getWindowView = WS.Parent.Windows(1).View
    If Not W Is Nothing Then
      W.Activate
    End If
    If A.ScreenUpdating <> su And su Then
      A.ScreenUpdating = su
    End If
    Set A = Nothing
  Else
    getWindowView = WS.Parent.Windows(1).View
  End If
  Set W = Nothing
  On Error GoTo 0
End Function

Em chào anh @HeSanbi .
Cảm ơn anh đã có chia sẻ tuyệt vời.
Em đã đọc bài viết của anh, có đôi chỗ chưa hiểu, mong anh giúp:
anh có viết:
Hướng dẫn sử dụng hàm:

Vị trí	Tham số	Kiểu	Chức năng
1	Target	Vùng cần giãn dòng	Nhận vùng cần co giãn
2	Margin	Kiểu số	Tăng chiều cao thêm một số
3	defaultHeight	Kiểu số	Chiều cao mặc định nếu giá trị rỗng
4	HeightOfRowNull	Kiểu số	Đặt chiều cao cho cả dòng rỗng
5	IncludeNoWrap	Có/Không	Co giãn kể cả ô không WapText
6	OnlySheetVisible	Có/Không	Chỉ giãn dòng ở Trang hiện hành
7	Title	Chuỗi	Chuỗi bất kì do người dùng đặt (Nếu không thì trả về giá trị là Fit:{vùng})

Cách viết hàm nhanh, gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A.
Em xin được hỏi bảng chứa thông số trên là trong code hay sao ạ? khi sử dụng hàm người sử dụng có cần quan tâm đến bảng trên không ạ?
Và khi gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A. thì em thấy nào báo lỗi. hay do em thao tác sai ạ?
Xin được anh chỉ dẫn.
Em xin cảm ơn anh!

 

Em xin được hỏi bảng chứa thông số trên là trong code hay sao ạ?

Bài viết mình có nói gì tới code đâu, ngay tiêu đề là Hàm.
Mà Hàm UDF tức là hàm được tạo từ VBA, gọi là hàm tự tạo.

Như Hàm VLookUP (lookup_value, table_array, col_index_num, [range_lookup])
Thì Hàm trên là S_FitRow(Target, [Margin], [defaultHeight], [HeightOfRowNull], [IncludeNoWrap], [OnlySheetVisible], [Title])

Tham số có dấu ngoặc vuông là đã có giá trị mặc định, có thể điền hoặc là không.
Ví dụ: =S_FitRow(A1), =S_FitRow(A1,,,,,TRUE), ....

khi sử dụng hàm người sử dụng có cần quan tâm đến bảng trên không ạ?

Bảng hướng dẫn hàm có bao nhiêu tham số, bạn mà không đọc thì sao biết cách dùng.

Và khi gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A

Cách Ctrl+Shift+A là phím tắt mặc định để chỉ gõ ra hàm chỉ dẫn nhanh. Vì có gợi ý nhập đối số để ta dễ dàng điền đối số.

Trên bài viết có tệp ví dụ, bạn nên vào xem cách viết hàm.

 

Bài viết mình có nói gì tới code đâu, ngay tiêu đề là Hàm.
Mà Hàm UDF tức là hàm được tạo từ VBA, gọi là hàm tự tạo.

Như Hàm VLookUP (lookup_value, table_array, col_index_num, [range_lookup])
Thì Hàm trên là S_FitRow(Target, [Margin], [defaultHeight], [HeightOfRowNull], [IncludeNoWrap], [OnlySheetVisible], [Title])

Tham số có dấu ngoặc vuông là đã có giá trị mặc định, có thể điền hoặc là không.
Ví dụ: =S_FitRow(A1), =S_FitRow(A1,,,,,TRUE), ....


Bảng hướng dẫn hàm có bao nhiêu tham số, bạn mà không đọc thì sao biết cách dùng.


Cách Ctrl+Shift+A là phím tắt mặc định để chỉ gõ ra hàm chỉ dẫn nhanh. Vì có gợi ý nhập đối số để ta dễ dàng điền đối số.

Trên bài viết có tệp ví dụ, bạn nên vào xem cách viết hàm.

Vâng, xin cảm ơn anh!

 

Chủ thớt hình như đã quên dự án này rồi thì phải?

 

Chủ thớt hình như đã quên dự án này rồi thì phải?

Bạn theo dõi chủ đề, nếu có cập nhật, bạn sẽ nhận được thông báo

 

Bạn theo dõi chủ đề, nếu có cập nhật, bạn sẽ nhận được thông báo

Bản mới "Rất Pro"

Code rất đẹp rồi có điều lúc chạy code hơi tốn thời gian. Mình nghĩ hàm UDF thì phải nhanh hơn nhiều chứ. Hóng sP mới của anh

 

Bạn theo dõi chủ đề, nếu có cập nhật, bạn sẽ nhận được thông báo

Bản mới "Rất Pro"

Khi soi kính lúp trang in xong hiện ra viền định dạng in làm code chậm đi nhiều.
em cho thêm đoạn code vào đầu chạy nuột luôn:
ActiveSheet.DisplayPageBreaks = False

Bài đã được tự động gộp: 21/8/21

Code rất đẹp rồi có điều lúc chạy code hơi tốn thời gian. Mình nghĩ hàm UDF thì phải nhanh hơn nhiều chứ. Hóng sP mới của anh

Chắc dính trường hợp giống bài #18

 

HeSanbi
Chào anh! cho em hỏi
muốn co dãn từng dòng lẻ trong 1 lệnh có được không? hay phải dùng nhiều lệnh
VD: dãn ô A2 và ô C5 và D7

 

anh ơi em dùng in tự động thì lại bị lỗi như này...sử lý sao ạ anh

Bài đã được tự động gộp: 8/9/21

file:///C:/Users/Kien/Desktop/Untitled.png

 

Giỏi quá trời. )))

 

Dự án này lâu rồi không thấy tác giả cập nhật gì thêm vậy nhỉ?

 

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM UDF TỰ ĐỘNG CO GIÃN DÒNG

với Hàm S_FitRow

Chức năng ưu việt của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô cùng dòng.
4. Hoạt động cả ở chế độ Xem In Ấn
5. Thêm một chiều cao nhất định sau khi giản dòng.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.

Hướng dẫn sử dụng hàm:

Hàm đầy đủ: S_FitRow(Target, [Margin], [defaultHeight], [HeightOfRowNull], [IncludeNoWrap], [OnlySheetVisible], [Title])

Vị trí	Tham số	Kiểu	Chức năng
1​	Target	Vùng cần giãn dòng	Nhận vùng cần co giãn
2​	Margin	Kiểu số	Tăng chiều cao thêm một số
3​	defaultHeight	Kiểu số	Chiều cao mặc định nếu giá trị rỗng
4​	HeightOfRowNull	Kiểu số	Đặt chiều cao cho cả dòng rỗng
5​	IncludeNoWrap	Có/Không	Co giãn kể cả ô không WapText
6​	OnlySheetVisible	Có/Không	Chỉ giãn dòng khi Vùng tham chiếu nằm tại Trang hiện hành
7​	Title	Chuỗi	Chuỗi bất kì do người dùng đặt (Nếu không thì trả về giá trị là Fit:{vùng})

Cách viết hàm nhanh, gõ vào ô chuỗi =S_FitRow và ấn tổ hợp phím Ctrl+Shift+A. Sẽ tự động nhập hàm và có gợi ý nhập đối số.

Viết hàm nhanh: =S_FitRow(A2)
Viết hàm có cài đặt đối số: =S_FitRow(A2,5,40,15,FALSE,TRUE)

Ví dụ: =S_FitRow(A1:E9,5, 40,15,FALSE,TRUE)

• A1:E9 là vùng cần co giãn
• 5 là tăng thêm chiều cao 5 đơn vị
• 40 là chiều cao mặc định nếu tất cả dòng giá trị rỗng
• 15 là chiều cao mặc định dòng giá trị rỗng
• FALSE thì ô không WapText thì không co giãn
• TRUE thì nếu vùng cần co giãn nằm khác Trang hiện hành thì sẽ chờ thực thi sau.

Cũng có thể gõ nhanh =S_FitRow(A1:E9) bỏ qua các cài đặt


Cách viết hàm như sau sẽ co giãn chính ô viết hàm:

1. Khi nhập chuỗi:​

=S_FitRow("Chuỗi",5)​

2. Khi tham chiếu giá trị thì đóng dấu ngoặc tròn ô tham chiếu:​

=S_FitRow((A2),5)​

Cách viết hàm như sau sẽ co giãn vùng tham chiếu:

=S_FitRow(B26: D35,5)​

Ví dụ: Cần co giãn các ô như sau: B28:C31, D28:E28, D29: D30, E29:E31, D31

Thì viết hàm: =S_FitRow(B28:E31,5)​

Để có thể co giãn các ô cùng dòng và đã gộp ô​

Các phương thức Bổ trợ:
1. Gõ hàm S_FitRow_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.
2. Gõ hàm S_FitRow_ON: Nếu đã tắt chế độ co giãn dòng tự động thì bật lên.
3. Thủ tục S_FitRow_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call S_FitRow_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

​

*** Nếu bạn viết quá nhiều công thức hàm S_FitRow thì không thể thiếu bước 3 này​

Cách nhập nhiều mảng:

Sử dụng hàm S_Cells hàm tự tạo: =S_FitRow(S_Cells(A1:C9,D2: D3,E5:E6), 5, 40)​

Hướng dẫn tận dụng hàm:
Với 2 ví dụ sau:
1. Cách viết hàm tổng quát như sau sẽ gây chậm và tiêu tốn CPU:
=S_FitRow(A1:Z500)

2. Cách viết hàm đơn lẻ cho từng vùng sẽ tiết kiệm, và code sẽ chạy nhanh hơn:
=S_FitRow(A1:Z1)
=S_FitRow(A2:Z2)
=S_FitRow(A3:Z4)

Tức là hãy nhập vùng cho hàm sao cho vùng đó tương ứng với số dòng ô được gộp lớn nhất của dòng tương ứng.
Nếu ta có các vùng được gộp là A1:C9, D2: D3, E5:E6, thì rõ ràng là A1:C9 có các dòng chứa hết các vùng còn lại,
nên ta viết: =S_FitRow(A1:E9)


Những lỗi có thể xảy ra:

1. Vì code sẽ mượn một ô trong trang tính làm ô để giãn dòng, vì vậy nếu hàm có vùng tham chiếu giao với ô được mượn thì xảy ra lỗi.
2. Nếu có hai hàm có tham chiếu là hai vùng giao nhau có thể xảy ra lỗi.
3. Nếu trang tính hoặc ô tham chiếu đang khóa, cũng có thể xảy ra lỗi.
4. Nếu trong trang tính có hàm giãn dòng có sử dụng hàm RandBetween.

*** Các bạn lưu ý code có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

 

cảm ơn bác rất nhiều, chúc bác mạnh khỏe <3

 

Khi soi kính lúp trang in xong hiện ra viền định dạng in làm code chậm đi nhiều.
em cho thêm đoạn code vào đầu chạy nuột luôn:
ActiveSheet.DisplayPageBreaks = False

Bài đã được tự động gộp: 21/8/21

Chắc dính trường hợp giống bài #18

bác ơi em hỏi chút. em cũng bị chạy chậm khi chọn vùng in. đoạn code bác chỉ cho thêm đặt vào đoạn nào vậy ạ

 

bác ơi em hỏi chút. em cũng bị chạy chậm khi chọn vùng in. đoạn code bác chỉ cho thêm đặt vào đoạn nào vậy ạ

đặt luôn sau mấy cái thủ tục khai báo là được bạn ạ

 

đặt luôn sau mấy cái thủ tục khai báo là được bạn ạ

em cũng không dành lắm. bác chỉ cụ thể giúp em được không ạ

 

em cũng không dành lắm. bác chỉ cụ thể giúp em được không ạ

không có cái gì chỉ làm sao được?
Ít nhất gửi ảnh, hoặc gửi file lên mới chỉ được bạn ạ

 

Quá chuyên nghiệp, để nghiên cứu coi sao, cám ơn chủ thớt nhiều nhé.

 

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

không phải không dùng được đâu mà n sẽ không tự động giãn khi thay đổi tham số bác chọn vd bác bấm nâng +1 số n sẽ không hiểu. nhưng bác ghi trực tiếp lên tham số tiếp theo hàm sẽ hiểu và tự động giãn dòng

 

Anh ơi em áp dụng nhưng hàm không hiệu quả với những ô chứa hàm VLookup, Hlookup có cách nào khắc phục không ạ. Em cảm ơn

không phải không dùng được đâu mà n sẽ không tự động giãn khi thay đổi tham số bác chọn vd bác bấm nâng +1 số n sẽ không hiểu. nhưng bác ghi trực tiếp lên tham số tiếp theo hàm sẽ hiểu và tự động giãn dòng

Không phải lỗi nha các bạn.
Các ô WrapText tắt, nếu các bạn đặt đối số IncludeNoWrap là true thì chạy bình thường.
Tôi đã xóa bỏ đối số này để thuận tiện, các bạn có thể tải lại tạm thời bản ở trên.

Bản sắp tới sẽ đổi giải thuật Giãn dòng và tận dụng Classes để tiết kiệm bộ nhớ.
Đồng thời thêm nút nhấn để thuận tiện hơn.

 

Không phải lỗi nha các bạn.
Các ô WrapText tắt, nếu các bạn đặt đối số IncludeNoWrap là true thì chạy bình thường.
Tôi đã xóa bỏ đối số này để thuận tiện, các bạn có thể tải lại tạm thời bản ở trên.

Bản sắp tới sẽ đổi giải thuật Giãn dòng và tận dụng Classes để tiết kiệm bộ nhớ.
Đồng thời thêm nút nhấn để thuận tiện hơn.

e dùng thì nó bị ntn e đã gộp B8:L11,B14:L17 nhưng khi giãn n lại chỉ giãn thằng 1 dòng đầu là thằng B8 và thằng B14 có cách nào để cho mấy thằng gộp kia n cũng giãn đều không ạ?? e cảm ơn trên là giải pháp tạm thời của e nhưng khi tới dòng rỗng thì nó sẽ thừa ra mấy đoạn rất chướng mắt

 

@jerryhg Bạn gộp đến dòng 12 hoặc chỉnh chiều cao dòng 12.
Chia đều chiều cao có ở phiên bản cũ, phiên bản mới tôi đã đổi giải thuật giãn dòng. Có thời gian tôi sẽ cập nhật lại

 

Thêm tính năng ẩn dòng tự động kèm giãn dòng khi in ấn quá tuyệt vời tác giả ah.

 

Nếu làm theo tất cả các ý kiến thì na ná câu chuyện đẽo cày giữa đường mất thôi.

 

***** SIÊU CẬP NHẬT - v2.2 *****

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.
Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu code hoạt động ổn định thì các bạn có thể sử dụng.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng ưu việt:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
6. Cách gõ hàm cài đặt đối số tùy chỉnh ưu việt:
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
   
   
7. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
8. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.

Hướng dẫn sử dụng hàm:

Hàm FITROW được viết theo phương pháp mới nên cách nhập đối số là gõ hàm như dưới đây:

Hàm cài đặt và bổ trợ	Kiểu	Chức năng
ff_Padding(Height)	Số	Tăng chiều cao thêm một số
ff_defaultHeight(Height)	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
ff_HeightOfRowNull(Height)	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
ff_AllSheets()	Có	Giãn dòng kể cả vùng ở trang tính không hiện hành.
ff_AutoFit()	Có	Bật tự động Fit khi ô tham chiếu thay đổi giá trị
ff_Indexes(cell1,cell2,...)	Vùng chứa nhóm văn bản	Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.
ff_Scale(scaleWidth,scaleHeight,indentWidth)		Đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn

​

Ví dụ: giãn dòng A1 và đối số, gõ =FITROW(A1,ff_Padding(5)) ​

Các hàm với các ký tự đầu là ff_... Chính là các hàm cài đặt và bổ trợ cho hàm chính FITROW​

Ví dụ: gõ =FITROW(A1,B4,C5), sẽ co giãn các ô A1, B4, C5, các cài đặt là mặc định​

CÁC HÀM LỆNH TẠO NÚT VÀ BIỂU THỨC NHANH:

HÀM	Chức năng
=FITROW_AddFX()​	Tạo nhanh biểu thức FITROW vào ô
=FITROW_AddFXPrintArea()​	Tạo nhanh biểu thức FITROW vùng in vào ô
=FITROW_AddButton()​	Tạo nút nhấn để giãn dòng
=FITROW_AddButtonPrintArea()​	Tạo nút nhấn để giãn dòng vùng in
=FitRow_Off()​	Tắt chế độ tự động giãn dòng
=FitRow_On()​	Bật chế độ tự động giãn dòng

Viết hàm nhanh: =FITROW(A2:F1000)
Viết hàm có cài đặt đối số: =FITROW(A2:F1000,ff_defaultHeight(40),ff_Padding(5))
Cách nhập nhiều vùng cần co giãn dòng:

=FITROW(A1:C9,D2:F3,E5:E6)​

​

Phím tắt giãn dòng: CTRL+SHIFT+ALT+R

Các hàm Bổ trợ:

1. Gõ hàm FITROW_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.​

2. Gõ hàm FITROW_ON: Bật chế độ co giãn dòng tự động.​

3. Thủ tục FITROW_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).​

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call FITROW_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

****Lưu ý:

1. Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
2. Khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ không hoạt động.
3. Nếu trong trang tính có hàm giãn dòng, không nên sử dụng hàm RandBetween, và các hàm random.

***Mã có thể chưa được tối ưu nhất, nên có thể cập nhật lại nhiều lần, nên nếu các bạn có sử dụng code thì nên thường xuyên xem lại bài viết, sẽ có thông báo cập nhật nếu có ở đầu bài viết.

e cảm ơn bác nhé

 

Bác cho e hỏi chút với, e đang dùng bản V1 của bác, có cách nào để khi mở file hàm S_FitRow không tự động chạy không vậy, mỗi lần mở file ngồi đợi hơi sốt ruột vì file của e có nhiều sheet

 

***** CẬP NHẬT - v2.31 *****
Sửa lỗi khi ô cần giản dòng được đặt cho Name

 

Các bạn đã biết bỗ trợ ff_Indexes cho hàm FitRow hoạt động như thế nào hay chưa?

ff_Indexes(cell1,cell2,...)

Vùng chứa nhóm văn bản

Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.

Hãy xem ảnh minh họa 1 bên dưới, các bạn sẽ thấy lề dưới canh trang mục 4.2 có vùng bảng dữ liệu được tự động chuyển xuống trang mới, lúc này in ra sẽ hoàn hảo. Nhưng nếu mục 4.2 bị dịch lên trên trang trên như hình ảnh thứ 2 thì làm cho trang in khó đọc và không tích hợp để xem.
Chính vì vậy sự bổ trợ của ff_Indexes sẽ giúp khắc phục điều này, mã sẽ chạy để dịch chuyển vùng đã đặt lên xuống sao cho trang in phù hợp.

Ví dụ nếu mục 4.2 bắt đầu từ A100 và hết bảng dữ liệu Z110 thì nhập ff_Indexes vào hàm FitRow là ff_Indexes(A100:Z110)​

Và nhập nhiều vùng ff_Indexes(A100:Z110,A115:Z120)​

​

Ảnh 1 và ảnh 2:

 

*** CẬP NHẬT 2.42: 14/10/2024 ***
Cập nhật mới này sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột
Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables()

Dự kiến bản cập nhật tiếp theo

Thêm hàm chức năng bổ trợ giãn dòng trước khi in.​

 

Chuyên gia này toàn viết hàm đỉnh cao. Nhưng cũng phải là người đỉnh cao mới dùng được hàm của chuyên gia này.

 

Bác cho cái video HDSD thì quá tuyệt vời, em mò mà chưa biết cách xài, em tải file mẫu về mỗi lần di chuyển giữa các sheet báo lỗi " Subscripts out of range" . Click vô Debug thì báo lỗi ở dòng này bác @HeSanbi ạ

 

@phansythao theo logic VBA thì trường hợp lỗi này không thể xảy ra, vì đã có lệnh bẫy lỗi

On Error Reume Next

Bạn thử sửa dòng đó thành:

UB = cltWorks.count

 

Cám ơn bác thớt đã chia sẻ 1 add-in rất hay nhưng hướng dẫn của bác khó hiểu kinh hoàng. Sau 1 giờ đánh vật với hướng dẫn, em đành dãn trang in bằng cách zoom 85% bấm Autofix Row Height (thỉnh thoảng vẫn có ô bị mất nôi dung nhưng tạm chấp nhận).
Phải chi bác làm đơn giản một chút cho mọi người dễ tiếp cận thì tốt quá. Ví dụ nhập thông số dãn vào sheet Config, chọn vùng cần dãn, bấm chạy Macro => Xong.

P/s: Không hiểu sao add-in nào của bác cũng phải Hàm, Hàm, Hàm mới dùng được )

 

@Decepticon Lý do dùng hàm là do mỗi kiểu giãn dòng mỗi kiểu dữ liệu, mỗi cách phân bổ dòng cho cái nhìn trực quan là khác nhau
Nên cần dùng hàm để tạo các thông số giãn dòng khác nhau cho mỗi kiểu như vậy.

Hàm có thể lưu thông số, add-in thì chỉ có thể tạo khung công tác để giãn dòng. Nếu bạn tạo dự án có hàng chục hoặc hàng trăm vị trí cần giãn. Thì buộc tận dụng hàm.
Mỗi tiêu đề hay định dạng phông chữ, cho hàng trăm kiểu định dạng to nhỏ lớn bé. Chính vì vậy việc giãn dòng rất phức tạp cho nhiều phương thức biễn diễn phông trên trang tính. Hàm là tối ưu nhất.

Bạn có thể sử dụng giãn dòng nhanh với phím tắt CTRL+SHIFT+ALT+R. Không cần đến Hàm.

Ví dụ điển hình trên chính hình ảnh bạn đính kèm:

Bạn nhìn vào hình bạn chụp sẽ thấy dòng 3, cột D, hiển thị dòng bị quá gần với dòng 4. Làm cho việc nhìn vào sẽ khó nhận biết chúng là hai ô dữ liệu khác nhau. Bây giờ thêm vào hàm FITROW hàm cài đặt fit_Pading(5), có nghĩa là giãn chèn thêm chiều cao là 5.​

​

Excel có những lỗi giãn dòng sai sót độ chính xác phông chữ do mã nguồn của họ. Điều đó bạn sẽ tìm thấy trên Google và cũng có trên diễn đàn.

 

@HeSanbi em đã thử nhưng không dc Bác ơi vẫn báo lỗi như trên video.
(Sau khi sửa bị lỗi em đã trả lại nguyên bản)

@phansythao theo logic VBA thì trường hợp lỗi này không thể xảy ra, vì đã có lệnh bẫy lỗi


Bạn thử sửa dòng đó thành:

 

@HeSanbi em đã thử nhưng không dc Bác ơi vẫn báo lỗi như trên video.
(Sau khi sửa bị lỗi em đã trả lại nguyên bản)

Mình biết tại sao lại báo lỗi tại dòng đó, là vì SheetBB nằm trong thủ tục test không tồn tại khi bạn chép mã sang ứng dụng của bạn, bạn xóa thủ tục đó đi, hoặc thêm dấu ngoặc vuông [SheetBB]. Khi chép mã, trên thanh Menu bạn chọn Debug và Nhấn Debug Compile ... xem còn lỗi không.

Hoặc bạn tải lại tệp trên bài viết chính.

 

Em tải file gốc của bác về báo lỗi ạ. Xin chia sẻ:
1. em xài office 2019 64 bit
2. Em gỡ ra cài lại office 2024 64bit vẫn báo lỗi
3. Em chuyển file của bác sang máy khác, bản office 2019 64 bit => không lỗi.
4. Chuyển sang 2 máy khác xài office bản quyền => lỗi
Em cũng không biết nguyên nhân. Video dưới là em test cả 2 phiên bản office

Liên kết: https://youtu.be/0anAub3XF-g?si=aBwYjFrF7gRMfk-o

 

Sau khi kiểm tra UltraView cho bạn thì đó không phải là lỗi. Do là bạn chỉnh cách VBA biên dịch bị sai.

Bạn đã đánh dấu Break on All Errors, tức là ngưng khi bất kì lỗi nào xảy ra trong mã VBA dù cho có bẫy lỗi.

Khi lập trình mã VBA hãy đánh dấu như hình dưới đây.

 

Toàn bị lỗi này, Bác à

 

Toàn bị lỗi này, Bác à

Toàn bộ tiếp đầu ngữ ff_... tôi đã đổi thành fit_..., nhưng chưa đổi trong các ví dụ, nên nhấn nút trong các ví dụ không thành công bạn nhé. Tệp mới đã được sửa lại.

 

Em sử dụng chưa được thạo lắm, nhờ bác xem giúp em

 

@minhminh040499 Bỏ unblock cho tệp nếu có. Khởi động tệp cho phép macro bạn nhé.

 

@minhminh040499 Bỏ unblock cho tệp nếu có. Khởi động tệp cho phép macro bạn nhé.

Em có gửi thắc mắc quá Facebook của anh ạ.
Facebook em: Nguyễn Thành Hưng
Nhờ bác giải đáp giúp e với

 

*** CẬP NHẬT 2.46: 19/02/2025 ***

RẤT XIN LỖI CÁC BẠN! PHIÊN BẢN 2.45 TRƯỚC ĐÓ ĐÃ BỊ LỖI
KHÔNG GIÃN DÒNG KHI CÁC Ô CÓ BIỂU THỨC

Nếu các bạn đang sử dụng bản 2.45 trong dự án, hãy sửa mã với bản 2.46 mới nhất

(Đã có phiên bản 3.0 hỗ trợ thực hiện in ấn sau khi giãn dòng, sẽ sớm cập nhật)

 

***** CẬP NHẬT - v2.46 *****

Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột
Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables()

Dự kiến bản cập nhật tiếp theo

Thêm hàm chức năng bổ trợ giãn dòng trước khi in.​

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
7. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.
8. Tự động dịch chuyển lề trên hoặc lề dưới của trang để chỉ mục nằm vị trí tốt nhất để in ấn.

Các cập nhật thêm

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

Hướng dẫn sử dụng hàm:

Hàm FITROW có 2 chế độ, là tạo nút nhấn để dùng tay và tự động chạy.
Nếu nhập hàm mà có nhập thêm bổ trợ fit_Auto() thì hàm nhập tự động chạy, khi giá trị tham chiếu thay đổi.
Nếu không sẽ tạo nút nhấn, để nhấn giãn dòng.

Hàm FITROW được viết theo phương pháp mới nên cách nhập đối số là gõ hàm như dưới đây:

Hàm cài đặt và bổ trợ	Kiểu	Chức năng
fit_Padding(Height)	Số	Tăng chiều cao thêm một số
fit_defaultHeight(Height)	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
fit_HeightOfRowNull(Height)	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
fit_AllSheets()	Có	Giãn dòng kể cả vùng ở trang tính không hiện hành.
fit_Auto()	Có	Bật tự động Fit khi ô tham chiếu thay đổi giá trị Vì hàm FITROW có thể chạy bất kỳ khi nào gây tốn kém, mất thời gian khi các hàm nhạy như ToDay, Now, Rand, RandBetween, ... nằm cùng trang tính. Nên cần hàm bổ trợ này.
fit_Tables(table, ....)	Vùng ô	Nhập một vùng dữ liệu kiểu bảng để tiết kiệm thời gian giãn dòng
fit_Indexes(cell1,cell2,...)	Vùng chứa nhóm văn bản	Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.
fit_Scale(scaleWidth,scaleHeight,indentWidth)	Đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn	Vì khi giãn dòng, sẽ có sai số độ lệch nhất định nên cần đặt thông số này. Thông số tỉ lệ chiều rộng và cao quyết định độ chính xác khi giãn dòng. Cho ô chiều cao vượt giới hạn. Và ô gộp có nhiều cột. Ví dụ: Đặt ScaleWidth = 0.0245 hiểu là tăng độ rộng ban đầu 1 * 0.0245 để thực hiện fit. Đặt ScaleHeight = 0.0145 hiểu là tăng thêm chiều cao sau khi fit là 1 * 0.0145 để đặt cho dòng.

​

Viết hàm nhanh: =FITROW(A2:F1000) ​

Viết hàm có cài đặt đối số: =FITROW(A2:F1000,fit_defaultHeight(40),fit_Padding(5)) ​

Cách nhập nhiều vùng cần co giãn dòng:​

=FITROW(A1:C9,D2:F3,E5:E6)​

​

Ví dụ: giãn dòng A1 và đối số, gõ =FITROW(A1,fit_Padding(5)) ​

Các hàm với các ký tự đầu là fit_... Chính là các hàm cài đặt và bổ trợ cho hàm chính FITROW​

Ví dụ: gõ =FITROW(A1,B4,C5), sẽ co giãn các ô A1, B4, C5, các cài đặt là mặc định​

Hàm bỗ trợ fit_Indexes cho hàm FitRow hoạt động như sau:

Hãy xem ảnh minh họa 1 bên dưới, các bạn sẽ thấy lề dưới canh trang mục 4.2 có vùng bảng dữ liệu được tự động chuyển xuống trang mới, lúc này in ra sẽ hoàn hảo. Nhưng nếu mục 4.2 bị dịch lên trên trang trên như hình ảnh thứ 2 thì làm cho trang in khó đọc và không tích hợp để xem.​

Chính vì vậy sự bổ trợ của fit_Indexes sẽ giúp khắc phục điều này, mã sẽ chạy để dịch chuyển vùng đã đặt lên xuống sao cho trang in phù hợp.​

Ví dụ nếu mục 4.2 bắt đầu từ A100 và hết bảng dữ liệu Z110 thì nhập fit_Indexes vào hàm FitRow là fit_Indexes(A100:Z110)​

Và nhập nhiều vùng fit_Indexes(A100:Z110,A115:Z120)​

Ảnh 1 và ảnh 2:

CÁC HÀM LỆNH TẠO NÚT VÀ BIỂU THỨC NHANH:

HÀM	Chức năng
=FITROW_AddFX()​	Tạo nhanh biểu thức FITROW vào ô
=FITROW_AddFXPrintArea()​	Tạo nhanh biểu thức FITROW vùng in vào ô, nếu đang ở trang tính đã đặt vùng in
=FITROW_AddButton()​	Tạo nút nhấn để giãn dòng
=FITROW_AddButtonPrintArea()​	Tạo nút nhấn để giãn dòng vùng in, nếu đang ở trang tính đã đặt vùng in
=FitRow_Off()​	Tắt chế độ tự động giãn dòng
=FitRow_On()​	Bật chế độ tự động giãn dòng

​

Phím tắt giãn dòng: CTRL+SHIFT+ALT+R

Các hàm Bổ trợ:

1. Gõ hàm FITROW_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.​

2. Gõ hàm FITROW_ON: Bật chế độ co giãn dòng tự động.​

3. Thủ tục FITROW_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).​

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call FITROW_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

****Lưu ý:

1. Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
2. Khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ không hoạt động.
3. Nếu trong trang tính có hàm giãn dòng, khi sử dụng hàm nhạy như RandBetween, ToDay, Now,... và các hàm random, thì không thêm hàm bổ trợ tự động chạy fit_Auto().

***Sao chép mã vào dự án của bạn phải bao gồm 1 module + mã trong ThisWorkbook
*Nếu không chép mã từ ThisWorkbook thì hàm bổ trợ FIT_AUTO() sẽ bị vô hiệu hóa, phím tắt cũng sẽ bị vô hiệu hóa

--------------------------------------------------------------------------------------

Liên hệ Facebook Messenger: Vo Truong Anh Tuan
Liên hệ Zalo: 0384170514
Quét QRCode Zalo:

Chào anh, anh cho em hỏi nếu lưu dưới dạng Add in đuôi ".xlam" thì có cách nào sử dụng được không ạ? hay phải bắt buộc phải "Sao chép mã vào dự án của bạn phải bao gồm 1 module + mã trong ThisWorkbook" như anh nói ạ!

 

Chào anh, anh cho em hỏi nếu lưu dưới dạng Add in đuôi ".xlam" thì có cách nào sử dụng được không ạ? hay phải bắt buộc phải "Sao chép mã vào dự án của bạn phải bao gồm 1 module + mã trong ThisWorkbook" như anh nói ạ!

Để mình viết lại bản Add-in dễ sử dụng hơn. Bản dùng Hàm có vẻ hơi rối.

 

Để mình viết lại bản Add-in dễ sử dụng hơn. Bản dùng Hàm có vẻ hơi rối.

dạ vâng, em cảm ơn anh!

 

Dùng hàm cũng ổn nhưng đúng hơi rối, bác sơm phát triển dạng ad in cho anh em dùng với nhé!

Để mình viết lại bản Add-in dễ sử dụng hơn. Bản dùng Hàm có vẻ hơi rối

 

Để mình viết lại bản Add-in dễ sử dụng hơn. Bản dùng Hàm có vẻ hơi rối.

Chào Bác, bác xem giúp em chút, em có fit vùng D4:H6 nhưng ô H6 không thể fit được, em có đính kèm file, cảm ơn bác ạ!

 

Bạn không cần dùng hàm như thế nữa, mình đã viết bản Add-in thay thế.
Vì hàm tạo nút nhấn không thể gọi được macro trong Excel 365, do cần phải nhất quán trong tất cả phiên bản Excel, nên mình đã chuyển sang Add-in cho tiện dụng. Bạn có thể đợi bản add-in.

 

Bạn không cần dùng hàm như thế nữa, mình đã viết bản Add-in thay thế.
Vì hàm tạo nút nhấn không thể gọi được macro trong Excel 365, do cần phải nhất quán trong tất cả phiên bản Excel, nên mình đã chuyển sang Add-in cho tiện dụng. Bạn có thể đợi bản add-in.

View attachment 311019

Vâng em cảm ơn Anh nhiều ạ! rất mong Add-in sớm hoàn thiện.

 

***** FitRowXL - v1.0 Bản mới 2026 *****
Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng

@chothadiem

 

***** FitRowXL - v1.0 Bản mới 2026 *****
Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng

@chothadiem

Em cảm ơn anh ạ!

 

Em cảm ơn anh ạ!

Em test qua thấy:
- Ở mục "Giãn dòng nhanh" nếu nhẫn mũi tên để hoàn tác "Nhấn để phục hồi lại chiều cao ban đầu vùng đã giãn dòng" thì chưa thấy tác động
- Mục "Giãn nhiều vùng ô" nếu thiết lập giãn nhiều vùng ô và sau đó chọn biêu tượng giãn dòng thì chưa thấy tác động
Em có khoanh biểu tượng bằng nét đứt vùng xanh dưới hình vẽ.
Em cảm ơn Anh!

 

Em cảm ơn anh ạ!

Quá tuyệt vời Bác!

 

***** FitRowXL - v1.0 Bản mới 2026 *****
Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng

@chothadiem

Bác cho em hỏi nếu chạy add in khi xem ở chế độ Normal thì ổn nhưng ở chế độ Page layout thì code rất chậm chờ tầm vài phút với xử lý được 200 dòng, vậy nhờ bác giúp em để code chạy nhanh hơn khi sử dụng ở chế độ Page layout được không ạ! em dùng phiên bản add-in

 

Đó là bản đầu tiên, còn cập nhật nữa bạn nhé. Mình không thể viết một lần duy nhất để hoàn thiện. Phiên bản mới sẽ bỏ qua bước copy định dạng từng ô, từng vùng ô, giúp tăng tốc xử lý.

 

Vâng, em cảm ơn bác.

Đó là bản đầu tiên, còn cập nhật nữa bạn nhé. Mình không thể viết một lần duy nhất để hoàn thiện. Phiên bản mới sẽ bỏ qua bước copy định dạng từng ô, từng vùng ô, giúp tăng tốc xử lý.

 

***** FitRowXL - v1.1 Bản mới 2026 *****
Hoàn chỉnh add-in và thêm tính năng thiết lập tự động giãn dòng và cột tức thời khi giá trị ô thay đổi (không làm mất chế độ Undo).
Thêm chế độ tự động cập nhật ứng dụng lên phiên bản mới, hoặc phục hồi phiên bản.

Tệp Add-in đã được đăng tải trên bài viết chính.

@chothadiem

 

***** FitRowXL - v1.1 Bản mới 2026 *****
Hoàn chỉnh add-in và thêm tính năng thiết lập tự động giãn dòng và cột tức thời khi giá trị ô thay đổi (không làm mất chế độ Undo).
Thêm chế độ tự động cập nhật ứng dụng lên phiên bản mới, hoặc phục hồi phiên bản.

Tệp Add-in đã được đăng tải trên bài viết chính.

@chothadiem

Em cảm ơn anh ạ!

 

***** FitRowXL - v1.1 Bản mới 2026 *****
Hoàn chỉnh add-in và thêm tính năng thiết lập tự động giãn dòng và cột tức thời khi giá trị ô thay đổi (không làm mất chế độ Undo).
Thêm chế độ tự động cập nhật ứng dụng lên phiên bản mới, hoặc phục hồi phiên bản.

Tệp Add-in đã được đăng tải trên bài viết chính.

@chothadiem

Anh cho em hỏi chút, sau khi Fit thì nhìn trên excel qua chế độ Normal thì không thấy nội dung ô B91 tương ứng với số thứ tự 75 thì nội dung trong ô vẫn hiển thị bình thương (hình 1), nhưng khi xem chế độ in thì thấy nội dung trong ô đó bị che lấp (hình 2), cho em hỏi nguyên nhân và cách khắc phục với ạ!
- Nếu chạy Add-in ở chế độ View -> Page layout thì sẽ khắc phục được tình trạng trên nhưng chạy ở chế độ này sẽ phải đợi vài phút cho dữ liệu ô đơn cỡ vài trăm dòng
- Khi chạy add-in ở chế độ View -> Normal thì vẫn bị tình trạng che lấp ô B91 tương ứng với số thứ tự 75 như em nêu trên.
Hiện tại em đang dùng cách: vào chế độ View -> Page layout và dùng Autofit Row Height cách này sẽ khắc phục được tình trạng khi in ra nội dung trong ô excel bị che lấp, nhưng nội dung trong ô sẽ bị sát lề ô trong excel mà không điều chỉnh được "đệm chiều cao" như ý muốn.
Rất mong được Anh cho ý kiến.
Xin cảm ơn Anh!

Hình 1:



Hình 2:

 

@chothadiem cái này chắc cần phải thêm tính toán chính xác cho riêng page layout

 

@chothadiem cái này chắc cần phải thêm tính toán chính xác cho riêng page layout

Vâng, cảm ơn anh! Rất mong phiên bản tiếp theo anh phát triển vấn đề đó với ạ!

 

@chothadiem bạn nhấn cập nhật lên bản v1.3, và thiết lập trong Giãn nhiều vùng ô, khi tạo danh sách giãn dòng, chọn đối tượng giãn dòng là table, rồi chọn vùng ô cần giãn.

 

@chothadiem bạn nhấn cập nhật lên bản v1.3, và thiết lập trong Giãn nhiều vùng ô, khi tạo danh sách giãn dòng, chọn đối tượng giãn dòng là table, rồi chọn vùng ô cần giãn.

Em cảm ơn anh! khi xem chế độ in vẫn bị chê lấp nội dung ô anh ạ!

 

@chothadiem Chắc là phải thêm lệnh tắt Page Layout để lấy tỉ lệ Scale chiều rộng, sau đó bật lại bạn nhé, mình sẽ cập nhật vào bản sau, bạn chỉ cần nhấn cập nhật là Add-in tự động tải bản mới cài đặt

 

@chothadiem Chắc là phải thêm lệnh tắt Page Layout để lấy tỉ lệ Scale chiều rộng, sau đó bật lại bạn nhé, mình sẽ cập nhật vào bản sau, bạn chỉ cần nhấn cập nhật là Add-in tự động tải bản mới cài đ

Vâng, rất cảm ơn anh đã phản hồi.

 

***** FitRowXL - v1.0 Bản mới 2026 *****

---

Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng, add-in chỉ cần cài một lần duy nhất, có trình tự động cập nhật lên phiên bản mới.

View attachment 311055

Tính năng mới​

1. Hỗ trợ giãn dòng trước khi in ấn tại mục thiết lập Giãn nhiều vùng ô:

Khi tạo mới sẽ có nhập Macro gọi trước và sau khi giãn.​

Cũng có thể gọi Macro trong mã VBA của bạn với Application.Run "FitRowAreas", "TenDaThietLap"​

Để giãn dòng nhanh cho vùng ô không có ô Gộp trong Danh sách giãn dòng hãy chọn đối tượng là Table​

​

2. Thêm thiết lập tự động giãn dòng và cột tức thời khi giá trị ô thay đổi chỉ dành cho ô không gộp (không làm mất chế độ Undo).

View attachment 311056​

***** CẬP NHẬT - v2.46 *****

---

Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột
Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables()

Dự kiến bản cập nhật tiếp theo

Thêm hàm chức năng bổ trợ giãn dòng trước khi in.​

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
7. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.
8. Tự động dịch chuyển lề trên hoặc lề dưới của trang để chỉ mục nằm vị trí tốt nhất để in ấn.

Các cập nhật thêm

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

Hướng dẫn sử dụng hàm:

Hàm FITROW có 2 chế độ, là tạo nút nhấn để dùng tay và tự động chạy.
Nếu nhập hàm mà có nhập thêm bổ trợ fit_Auto() thì hàm nhập tự động chạy, khi giá trị tham chiếu thay đổi.
Nếu không sẽ tạo nút nhấn, để nhấn giãn dòng.

Hàm FITROW được viết theo phương pháp mới nên cách nhập đối số là gõ hàm như dưới đây:

Hàm cài đặt và bổ trợ	Kiểu	Chức năng
fit_Padding(Height)	Số	Tăng chiều cao thêm một số
fit_defaultHeight(Height)	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
fit_HeightOfRowNull(Height)	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
fit_AllSheets()	Có	Giãn dòng kể cả vùng ở trang tính không hiện hành.
fit_Auto()	Có	Bật tự động Fit khi ô tham chiếu thay đổi giá trị Vì hàm FITROW có thể chạy bất kỳ khi nào gây tốn kém, mất thời gian khi các hàm nhạy như ToDay, Now, Rand, RandBetween, ... nằm cùng trang tính. Nên cần hàm bổ trợ này.
fit_Tables(table, ....)	Vùng ô	Nhập một vùng dữ liệu kiểu bảng để tiết kiệm thời gian giãn dòng
fit_Indexes(cell1,cell2,...)	Vùng chứa nhóm văn bản	Căn chỉnh biên bản ở chế độ PrintView, khi giãn dòng, chiều cao trang in có thể cao hơn hoặc thấp hơn, làm cho trang in bị xê dịch, nên cần điều chỉnh để phù hợp.
fit_Scale(scaleWidth,scaleHeight,indentWidth)	Đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn	Vì khi giãn dòng, sẽ có sai số độ lệch nhất định nên cần đặt thông số này. Thông số tỉ lệ chiều rộng và cao quyết định độ chính xác khi giãn dòng. Cho ô chiều cao vượt giới hạn. Và ô gộp có nhiều cột. Ví dụ: Đặt ScaleWidth = 0.0245 hiểu là tăng độ rộng ban đầu 1 * 0.0245 để thực hiện fit. Đặt ScaleHeight = 0.0145 hiểu là tăng thêm chiều cao sau khi fit là 1 * 0.0145 để đặt cho dòng.

​

Viết hàm nhanh: =FITROW(A2:F1000) ​

Viết hàm có cài đặt đối số: =FITROW(A2:F1000,fit_defaultHeight(40),fit_Padding(5)) ​

Cách nhập nhiều vùng cần co giãn dòng:​

=FITROW(A1:C9,D2:F3,E5:E6)​

​

Ví dụ: giãn dòng A1 và đối số, gõ =FITROW(A1,fit_Padding(5)) ​

Các hàm với các ký tự đầu là fit_... Chính là các hàm cài đặt và bổ trợ cho hàm chính FITROW​

Ví dụ: gõ =FITROW(A1,B4,C5), sẽ co giãn các ô A1, B4, C5, các cài đặt là mặc định​

Hàm bỗ trợ fit_Indexes cho hàm FitRow hoạt động như sau:

Hãy xem ảnh minh họa 1 bên dưới, các bạn sẽ thấy lề dưới canh trang mục 4.2 có vùng bảng dữ liệu được tự động chuyển xuống trang mới, lúc này in ra sẽ hoàn hảo. Nhưng nếu mục 4.2 bị dịch lên trên trang trên như hình ảnh thứ 2 thì làm cho trang in khó đọc và không tích hợp để xem.​

Chính vì vậy sự bổ trợ của fit_Indexes sẽ giúp khắc phục điều này, mã sẽ chạy để dịch chuyển vùng đã đặt lên xuống sao cho trang in phù hợp.​

Ví dụ nếu mục 4.2 bắt đầu từ A100 và hết bảng dữ liệu Z110 thì nhập fit_Indexes vào hàm FitRow là fit_Indexes(A100:Z110)​

Và nhập nhiều vùng fit_Indexes(A100:Z110,A115:Z120)​

Ảnh 1 và ảnh 2:

CÁC HÀM LỆNH TẠO NÚT VÀ BIỂU THỨC NHANH:

HÀM	Chức năng
=FITROW_AddFX()​	Tạo nhanh biểu thức FITROW vào ô
=FITROW_AddFXPrintArea()​	Tạo nhanh biểu thức FITROW vùng in vào ô, nếu đang ở trang tính đã đặt vùng in
=FITROW_AddButton()​	Tạo nút nhấn để giãn dòng
=FITROW_AddButtonPrintArea()​	Tạo nút nhấn để giãn dòng vùng in, nếu đang ở trang tính đã đặt vùng in
=FitRow_Off()​	Tắt chế độ tự động giãn dòng
=FitRow_On()​	Bật chế độ tự động giãn dòng

​

Phím tắt giãn dòng: CTRL+SHIFT+ALT+R

Các hàm Bổ trợ:

1. Gõ hàm FITROW_OFF: nếu đang chỉnh sửa trang tính hãy tắt chế độ co giãn dòng hoặc bật chế độ Design Mode trong Tab Developer.​

2. Gõ hàm FITROW_ON: Bật chế độ co giãn dòng tự động.​

3. Thủ tục FITROW_Toggle + Check box có tên là chxAutoFitRow dùng để bật tắt chế độ co giãn dòng nếu muốn (Ví dụ nằm ở Sheet1 trong tập tin đính kèm bên dưới).​

Bước 3 này là một thủ thuật để ngăn chặn code tính toán lúc ứng dụng vừa khởi động, vì có thể sẽ gặp phải tình trạng code sẽ làm chậm quá trình khởi động.​

​

Hãy để dòng code sau vào sự kiện Workbook_Open: Call FITROW_Off​

Hãy mở lại bằng bước 2 hoặc bước 3.​

****Lưu ý:

1. Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
2. Khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ không hoạt động.
3. Nếu trong trang tính có hàm giãn dòng, khi sử dụng hàm nhạy như RandBetween, ToDay, Now,... và các hàm random, thì không thêm hàm bổ trợ tự động chạy fit_Auto().

***Sao chép mã vào dự án của bạn phải bao gồm 1 module + mã trong ThisWorkbook
*Nếu không chép mã từ ThisWorkbook thì hàm bổ trợ FIT_AUTO() sẽ bị vô hiệu hóa, phím tắt cũng sẽ bị vô hiệu hóa

--------------------------------------------------------------------------------------

Liên hệ Facebook Messenger: Vo Truong Anh Tuan
Liên hệ Zalo: 0384170514
Quét QRCode Zalo:

Khi in ra vẫn chưa co giãn được Admin ơi, nhìn trên excel thì co giãn ổn.

 

Mình đã viết bản mới, tăng tốc độ giãn dòng cho dữ liệu lớn, giãn dòng cho vùng thiết lập in bị scale, sẽ có cập nhật

 

***** FitRowXL - v1.4 Bản hoàn thiện *****
add-in đã hoàn thiện các nút chức năng có trên Ribbon
Tăng tốc độ giãn dòng

Các bạn có thể nhấn nút cập nhật trong Add-in hoặc tải về cài đặt mới

@vc_đi chơi @chothadiem

 

***** FitRowXL - v1.4 Bản hoàn thiện *****
add-in đã hoàn thiện các nút chức năng có trên Ribbon
Tăng tốc độ giãn dòng

Các bạn có thể nhấn nút cập nhật trong Add-in hoặc tải về cài đặt mới

@vc_đi chơi @chothadiem

Xin cảm ơn anh ạ!

 

***** FitRowXL - v1.4 Bản hoàn thiện *****
add-in đã hoàn thiện các nút chức năng có trên Ribbon
Tăng tốc độ giãn dòng

Các bạn có thể nhấn nút cập nhật trong Add-in hoặc tải về cài đặt mới

@vc_đi chơi @chothadiem

Bác xem giúp với ạ!
Sau khi chạy code để giãn vùng chọn trong môi trường Page layout nhưng vẫn không được ạ, kết quả như hình dưới ạ!

Liên kết: https://youtu.be/oPNksdsmdHE

 

@chothadiem Là do một sai sót trong mã. Bạn có thể nhấn nút cập nhật lên bản v1.5

 

@chothadiem Là do một sai sót trong mã. Bạn có thể nhấn nút cập nhật lên bản v1.5

Dạ vâng, em cảm ơn anh.

 

@chothadiem Là do một sai sót trong mã. Bạn có thể nhấn nút cập nhật lên bản v1.5

Bác cho em hỏi thêm chút: Về độ rộng của cột trong ô excel:
Nội dung trong ô excel được định dạng số trong môi trường Normal thì nhìn thể hiện rõ số, nhưng trong Page layout thì do cột bị hẹp nên nội dung trong ô được hiển thị là #######. Cách xử lý là kéo thủ công căn độ rộng cột đến khi không còn dấu hiệu của #######, nhưng với nhiều dữ liệu thì cách này không hiệu quả cho lắm, vậy có cách nào không bác?

 

***** FitRowXL - v1.0 Bản mới 2026 *****

---

Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng, add-in chỉ cần cài một lần duy nhất, có trình tự động cập nhật lên phiên bản mới.

View attachment 311055

Tính năng mới​

1. Hỗ trợ giãn dòng trước khi in ấn tại mục thiết lập Giãn nhiều vùng ô:

Khi tạo mới sẽ có nhập Macro gọi trước và sau khi giãn.​

Cũng có thể gọi Macro trong mã VBA của bạn với Application.Run "FitRowAreas", "TenDaThietLap"​

Để giãn dòng nhanh cho vùng ô không có ô Gộp trong Danh sách giãn dòng hãy chọn đối tượng là Table​

​

2. Thêm thiết lập tự động giãn dòng và cột tức thời khi giá trị ô thay đổi chỉ dành cho ô không gộp (không làm mất chế độ Undo).

View attachment 311056​

***** CẬP NHẬT - v2.46 *****

---

Cập nhật 2.42 sửa một số lỗi trong mã và tăng tốc giãn dòng bằng cách giãn đồng thời các ô giá trị cùng cột
Và thêm các hàm bổ trợ giãn dòng cho Bảng để tiết kiệm hơn trong quá trình giãn dòng, với hàm bổ trợ fit_Tables()

Dự kiến bản cập nhật tiếp theo

Thêm hàm chức năng bổ trợ giãn dòng trước khi in.​

-------------------------------------------------------------------

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo.

Tôi quyết định viết code này bỡi vì trên diễn đàn có nhiều bài viết hỏi về co giãn dòng tự động, và khi tôi đọc qua các bài viết đó thì không thấy ai có thể xử lý vấn đề triệt để, hoặc là code chưa tối ưu, hoặc code chưa xử lý được nhiều vùng đã gộp cùng dòng.

Và hàm UDF là một cách tối ưu nhất giúp các bạn không phải code lại, mà chỉ cần viết Hàm như một hàm Excel bình thường để thực hiện tác vụ co giãn dòng.


HÀM FITROW - TỰ ĐỘNG GIÃN DÒNG

Chức năng của hàm:

1. Co giãn dòng hoàn toàn tự động.
2. Co giãn dòng kể cả các ô đã được gộp.
3. Co giãn dòng với các giá trị nhiều ô gộp cùng dòng.
4. Co giãn dòng kể cả chiều cao vượt giới hạn của Excel là 409.5
5. Hoạt động cả ở chế độ Xem In Ấn.
   • Thêm chiều cao nhất định cho dòng đã giãn.
   • Đặt chiều cao mặc định cho vùng trống.
   • Đặt chiều cao mặc định cho dòng trống.
   • Tự đặt tỉ lệ giãn chiều rộng, chiều cao và thụt đầu dòng, khi chiều cao dòng vượt giới hạn.
6. Vì dùng hàm UDF nên rất tối ưu, tiết kiệm CPU.
7. Chỉ cần gõ một biểu thức FITROW cho cả vùng cần co giãn.
8. Tự động dịch chuyển lề trên hoặc lề dưới của trang để chỉ mục nằm vị trí tốt nhất để in ấn.

Các cập nhật thêm

1. Đã tạo Add-in cho hàm giãn dòng, thêm phím tắt giãn dòng CTRL+SHIFT+ALT+R.
2. Thay đổi giải thuật giãn dòng chính xác hơn.
3. Cách viết hàm khác hoàn toàn so với trước, đối số nhập vào phải là một hàm.
4. Giãn dòng kể cả ô vượt giới hạn 409.5 đơn vị chiều cao ô Excel.
5. Giãn dòng biên bản tự động dịch chuyển và canh trang để chỉ mục không bị trồi lên hoặc thụt xuống trang khác.
6. Chỉ cần gõ 1 biểu thức FITROW duy nhất cho cả vùng ô cần giãn dòng.
7. Có hai phiên bản ứng dụng của hàm FITROW:

• Mã viết trong 1 module duy nhất (tốn kém bộ nhớ khi ứng dụng hoạt động).
• Sử dụng mã trong Classes (tiết kiệm bộ nhớ).

Hướng dẫn sử dụng hàm:

Phiên bảng mới 2026​

• Sử dụng Ribbon để thiết lập và giãn dòng nhanh chóng

DANH MỤC​

• Tính năng mới
• TẢI XUỐNG
• Chức năng
• Thiết lập giãn dòng nhanh
• Thiết lập giãn dòng nhiều vùng ô
• Lưu ý

Tính năng mới​

• Thêm chế độ tự động cập nhật ứng dụng lên phiên bản mới, hoặc phục hồi phiên bản.
• Hỗ trợ giãn dòng trước khi in ấn tại mục thiết lập Giãn nhiều vùng ô:

• Thêm thiết lập tự động giãn dòng và cột tức thời khi giá trị ô không gộp thay đổi (không làm mất chế độ Undo).

TẢI XUỐNG​

Thông tin	Tải xuống	Ghi chú
FixRowXL Add-in	FitRowXL_v1.5.zip	Bản mới 2026 sử dụng Add-in Ribbon thiết lập giãn dòng nhanh chóng
FixRowXL gọi hàm	FitRowXL_v2.46.xlsm	Bản dùng cho nhúng code trực tiếp vào tệp để gọi hàm

***Mật khẩu VBA là 1

HƯỚNG DẪN CÀI ĐẶT​

Tệp Add-in xlam để cài đặt vào Excel, sau khi cài đặt thì giao diện sử dụng hiển thị trên thanh Ribbon với tên TaxTCT. Ứng dụng chỉ cần cài đặt một lần duy nhất, còn lại tự động kiểm tra và tải cài đặt phiên bản mới.
Giải nén vào một thư mục được đặt tên phù hợp, sau khi giải nén, vào thông tin tệp ngoài thư mục bỏ unblock tệp trước khi cài đặt nếu có.


Cách 1:

• Mở trực tiếp Add-in hoặc nhấn chuột vào tệp để mở, trong Excel cần Enabled Macro để chương trình hoạt động.
• Nếu chương trình chưa cài đặt khởi động cùng Excel, khi nhấn BẮT ĐẦU chương trình sẽ hỏi có cài đặt khởi động vào Excel không?

Cách 2: Thực hiện cài đặt Add-in bằng tay:

• Nếu chưa có tab Deverloper hiển thị trên thanh Ribbon (Thanh công cụ): nhấn chuột phải vào thanh Ribbon, chọn Customize the Ribbon.
• Trong thẻ Deverloper chọn Excel Add-ins, sau đó chọn nút Browse... vào thư mục chứa tệp Add-in, đánh dấu Add-in vừa thêm và chọn nút OK
• Nếu đã cài đặt vào Excel, nhưng mỗi khi mở ứng dụng không thấy trên thanh Ribbon, thì vào Task Manager cần End Task ứng dụng Excel chạy ngầm.

Nếu ứng dụng bị chặn không cho chạy macro thì hãy vào Cài đặt Excel, vào Trust Center, vào tạo đường dẫn thư mục an toàn cho thư mục chứa add-in tải về.

Thiết lập giãn dòng nhanh​

Thiết lập một tên mới để lưu thiết lập để tái sử dụng về sau. Thiết lập các chỉ số giãn dòng như sau:

Giá trị	Kiểu giá trị	Chức năng
Đệm chiều cao	Số	Tăng chiều cao thêm một số
Chiều cao mặc định	Số	Chiều cao mặc định nếu giá trị rỗng, dễ hiểu, nếu co giãn vùng ô A1:C20, mà cả vùng đó rỗng, thì chỉnh về chiều cao mặc định.
Chiều cao dòng trống	Số	Đặt chiều cao mặc định cho cả dòng rỗng (giãn vùng A1:Z20, dòng A2:Z2 rỗng)
Tỉ lệ chiều rộng	Số	Đặt tỉ lệ giãn chiều rộng, Tăng giảm chiều rộng trước khi tính toán giãn dòng
Chiều cao vùng trống	Số	Nếu vùng dữ liệu là Table hãy nhập vào hàm này, để tăng tốc giãn dòng
Kiểu giãn dòng	Tên	Đặt kiểu giãn dòng cho các cột gộp ô

Thiết lập giãn dòng nhiều vùng ô​

Tính năng giãn nhiều vòng ô cho phép thiết lập nhiều vùng ô với các tùy chọn chỉ sổ riêng biệt, đồng thời hỗ trợ in ấn. Cho phép tạo và lưu thiết lập để tái sử dụng, cho phép gọi trong dự án chứa mã VBA của bạn để thực hiện giãn dòng trước khi in ấn hoặc công việc khác.

Các nút chức năng​

• Tạo mới: Mở form tạo thiết lập và lưu thiết lập để tái sử dụng, cho phép gọi trong dự án chứa mã VBA của bạn để thực hiện giãn dòng trước khi in ấn hoặc công việc khác. Các thiết lập sẽ được lưu vào trong chính dự án Excel, dựa vào Name. Form gồm có các thiết lập:
  
  • Đặt thủ tục gọi trước và sau khi gian dòng
  • Đặt các vùng ô cần dịch chuyển vừa khít nằm trong trang sau khi giãn dòng cho vùng in.
  • Danh sách tạo các vùng ô và chỉ số.
  • Các nút nhấn giãn thử, xóa mục, tích chọn.
• Sửa thiết lập: Sửa thiết lập từ tên trong hộp chọn
• Xóa thiết lập: Xóa nếu không còn sử dụng lại thiết lập.
• Xóa thiết lập: Xóa nếu không còn sử dụng lại thiết lập.
• Hộp tên thiết lập: Để chọn mục đã thiết lập.
• Giãn dòng: Giãn dòng dựa vào tên thiết lập.

Các chỉ số thiết lập
Đệm chiều cao
Chiều cao mặc định
Chiều cao dòng trống
Tỉ lệ chiều rộng
Chiều cao vùng trống
Kiểu giãn dòng

Tự động hóa giãn dòng​

Mục đặt tự động hóa giãn cột và dòng tự động ngay tức thời, hành vi giãn dòng này không làm mất trạng thái chế độ Undo và Redo. (Sử dụng lệnh gửi nhấn chuột vào tiêu đề để giãn dòng như thao tác tay)

Các nút chức năng​

• Đặt cho vùng ô: Kiểm tra và cập nhật add-in
• Đặt cho cả trang tính
• Đặt từ hợp chọn
• Bật/tắt tự động hóa

Các nút chức năng của add-in​

• Cập nhật: Kiểm tra và cập nhật add-in
• Đặt lại cài đặt
• Thoát và gỡ cài đặt
• Hướng dẫn và nguồn
• Liên hệ Zalo

Lưu ý​

Code sẽ tạo trang tính ẩn có tên __CELLFIXING__ để giãn dòng.
Sau khi giãn dòng tự động chế độ Undo và Redo của trang tính sẽ bị mất trạng thái.
--------------------------------------------------------------------------------------

Liên hệ Facebook Messenger: Vo Truong Anh Tuan
Liên hệ Zalo: 0384170514

​

Bạn cho hỏi add-ins này có cách nào tự ngắt đoạn không phải bấm tổ hợp phím Alt+Enter không à (ví dụ chiều rộng của cột là 15, mình nhập tới đó không đủ khoảng trắng là tự nhảy xuống cùng chung 1 dòng)

 

add in này dùng ko undo đc nhiều trường hợp khá bất tiện, có cách nào khắc phục ko ạ

 

add in này dùng ko undo đc nhiều trường hợp khá bất tiện, có cách nào khắc phục ko ạ

Trường hợp nào không Undo được bạn. Có nút nhấn hoàn tác Excel hoặc hoàn tác trong Ribbon.

 

@chothadiem nếu muốn có thể thêm tự động Fit Cột cho tất cả các ô không có WrapText, tính toán trước khi in

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

@Gà Công Nghệ được nhưng phức tạp, tính toán trong khi ô đang chỉnh sửa, dùng Win32 API để tính chiều rộng chuỗi đang nhập
Ví dụ tệp bên bài viết này, có hướng dẫn sửa chuỗi trong ô đang nhập (Bài viết này)

 

undo với hoàn tác khác nhau hả a, e bấm mũi tên quay lại trên excel hoặc ctrl Z đều ko quay lại đc ạ

Trường hợp nào không Undo được bạn. Có nút nhấn hoàn tác Excel hoặc hoàn tác trong Ribbon.

 

undo với hoàn tác khác nhau hả a, e bấm mũi tên quay lại trên excel hoặc ctrl Z đều ko quay lại đc ạ

Bạn chờ bản cập nhật, mình đã phát hiện lỗi, có nút cập nhật sẵn trong add-in
2 nút chức năng như nhau nhưng cách gọi khác nhau

 

***** FitRowXL v1.6 - Cập nhật mới *****
Sửa lỗi không Undo được sau khi giãn dòng
Các bạn có thể nhấn nút cập nhật trong Add-in hoặc tải về cài đặt mới

 

***** FitRowXL v1.6 - Cập nhật mới *****
Sửa lỗi không Undo được sau khi giãn dòng
Các bạn có thể nhấn nút cập nhật trong Add-in hoặc tải về cài đặt mới

Nút undo đã hiện và bấm vào được nhưng dữ liệu lại không thể hoàn tác hoặc quay về trước khi giãn dòng. E ko biết trình bày sao cho dễ hiểu nhưng tóm lại là muốn quay lại các chỉnh sửa trước khi giãn dòng ko đc ạ. A check lại thử xem nha

 

Việc này đã nói trong Lưu ý trên bài viết đó bạn. Giãn dòng là dùng VBA, khi chạy VBA thao tác với trang tính thì mất trạng thái Undo và Redo. Chỉ có thể đặt lại chiều cao dòng trước khi giãn.