Tặng các bạn code AutoFit Row với Merge Cells (nhiều hàng, nhiều cột).

Liên hệ QC
Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT
Moderator
Tham gia
17/8/08
Bài viết
8,662
Được thích
16,718
Giới tính
Nam
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
 

File đính kèm

  • AutoFitMerge.xls
    46 KB · Đọc: 915
Sắp xếp theo thời gian sắp xếp theo bầu chọn
không biết mình có hiểu sai ý bạn không, bạn thử code này
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A:B").EntireColumn.AutoFit
End Sub
với A:B là cột cần fit
 
Upvote 0
khongnhienttt đã viết:
không biết mình có hiểu sai ý bạn không, bạn thử code này
Mã: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Range("A:B").EntireColumn.AutoFit
End Sub
với A:B là cột cần fit
Nhấp chuột vào đây để mở rộng...
Thật ra dùng AutoFit vẫn chưa ăn thua đâu, thấy vậy chứ không vậy đâu! Và tôi cũng có một giải pháp, tuy không nói là tuyệt đối, nhưng đỡ hơn 90%.

Ý của tôi là ta vẫn AutoFit các cột, nhưng ta cho thêm 1 gia tăng độ rộng của cột, như thế sẽ có thể tránh được tình trạng này.

Code chính:

Mã: 
Sub AutoFitColumn(ByVal Column As Range, ByVal ExtraWidth As Single)
    Column.EntireColumn.AutoFit
    Dim c As Integer
    For c = 1 To Column.Columns.Count
        Column(c).ColumnWidth = Column(c).ColumnWidth + ExtraWidth
    Next
End Sub

Và cách thực hiện:

Mã: 
Sub Test()
    AutoFitColumn Range("A:D"), 1.5
End Sub

Sau khi thực hiện code, các bạn cũng nên Print Preview để kiểm tra xem giản nở độ rộng có ảnh hưởng đến bản in của mình hay không rồi mới in nhé.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
Nhấp chuột vào đây để mở rộng...

Vậy khi em chọn nhiều range ở nhiều sheet khác nhau (cố định trước) thì như thế nào bác nhỉ
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
Nhấp chuột vào đây để mở rộng...
anh giúp em code chỉnh file này với
áp dụng code của anh chỉnh mà nó không chính xác
 

File đính kèm

  • hoi.xlsx
    12.8 KB · Đọc: 18
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
Nhấp chuột vào đây để mở rộng...
Chào anh chị! em đang dùng tác phẩm code của anh bị lỗi như nhau

Chào anh chị! nhờ anh chị xem hộ em code file này: dòng muốn dãn đánh số ở AC, AE
+ Các dòng khác chạy bình thường, chỉ riêng dòng 19 bôi đỏ như dưới hình là chạy lỗi, nhờ anh chị xem giúp em.
++ Lỗi em phát hiện
a. Đại diện đơn vị...
cho số 1 số kí tự nữa thì được
VD: 1a. Đại diện đơn vị
Nhờ anh chị xem lại code để loại bỏ lỗi đó ạ. em xin cảm ơn

Untitled.png
 

File đính kèm

  • BB Dan dong.xlsm
    106.5 KB · Đọc: 37
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
Nhấp chuột vào đây để mở rộng...

Lào sao để gắn nút được ạ, với có lệnh tự động không Bác :3
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Thật ra dùng AutoFit vẫn chưa ăn thua đâu, thấy vậy chứ không vậy đâu! Và tôi cũng có một giải pháp, tuy không nói là tuyệt đối, nhưng đỡ hơn 90%.

Ý của tôi là ta vẫn AutoFit các cột, nhưng ta cho thêm 1 gia tăng độ rộng của cột, như thế sẽ có thể tránh được tình trạng này.

Code chính:

Mã: 
Sub AutoFitColumn(ByVal Column As Range, ByVal ExtraWidth As Single)
    Column.EntireColumn.AutoFit
    Dim c As Integer
    For c = 1 To Column.Columns.Count
        Column(c).ColumnWidth = Column(c).ColumnWidth + ExtraWidth
    Next
End Sub

Và cách thực hiện:

Mã: 
Sub Test()
    AutoFitColumn Range("A:D"), 1.5
End Sub

Sau khi thực hiện code, các bạn cũng nên Print Preview để kiểm tra xem giản nở độ rộng có ảnh hưởng đến bản in của mình hay không rồi mới in nhé.
Nhấp chuột vào đây để mở rộng...
Sao mình thử ko đc nhỉ.
 
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều.

Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các vùng merge cells nhiều hàng, nhiều cột.

Thủ tục:

Mã: 
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
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    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:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub


Cách thực hiện:

Ví dụ khối ô MergeCell cần AutoFit là: C6:L9

Ta chỉ cần lấy tham chiếu ô đầu tiên là C6 (dùng cả C6:L9 cũng OK)

Và thủ tục chạy chỉ như sau:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]C6[/COLOR][/B]")

Hoặc:

Mã: 
MergeCellFit Range("[B]C6:L9[/B]")

Hoặc thậm chí chỉ là một cell nào đó trong khối mergecell:

Mã: 
MergeCellFit Range("[B][COLOR=#FF0000]E6[/COLOR][/B]")
Nhấp chuột vào đây để mở rộng...
Anh cho em hỏi. giờ em muốn chỉnh thêm ô và khối ô ở sheet2 thì chỉnh lại code thế nào ạ
 

File đính kèm

  • AutoFitMerge2.xls
    46 KB · Đọc: 15
Upvote 0
Nhờ anh chị làm giúp em file này với
 

File đính kèm

  • AutoFitMerge (cần tạo code giúp).xls
    238 KB · Đọc: 17
Upvote 0
Hoàng Trọng Nghĩa đã viết:
Giả sử trong khối ô từ C1:C14 có chứa Merge thì dùng thủ tục này:

Mã: 
Sub FitAll()
    Dim Cls As Range
    For Each Cls In Range("C1:C14")
        MergeCellFit Cls
    Next
End Sub

Tức nó chỉ nhận các ô đầu chứa Merge mà thực hiện theo hàng đó thôi.
Nhấp chuột vào đây để mở rộng...
Anh ơi đoạn code này copy vào sheet hay vào module đó ạ?
Em chạy code thấy báo lỗi như hình sau là do đâu vậy anh?1111.png
Nhờ anh hướng dẫn chi tiết giúp em mới ạ!
 
Lần chỉnh sửa cuối:
Upvote 0
Chào tất cả ae, tôi cũng đang quan tâm việc này và thấy vấn đề chưa được giải quyết triệt để, ví dụ tôi muốn autofit nhiều dòng (đã trộn nhiều cột " Merge") thì làm thế nào?
 
Upvote 0
Chào anh,

Anh cho em hỏi, Excel có làm được giãn các dòng như trong word không?

Untitled.png
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

F
  • Question
Nhờ tư vấn cách tạo QR trong Excel
Trả lời
6
Đọc
481
anhtuanle123
A
Tienvinh191
  • Question
Nhờ viết Code lấy dữ liệu tờ khai hải quan vào bảng tổng hợp
2
Trả lời
25
Đọc
2K
haott
H
H
Hỗ trợ lấy danh sách dữ liệu thỏa mãn điều kiện
Trả lời
2
Đọc
86
NT Ngoc Yen
N
hoaithanh9480
KIỂM PHIẾU BẦU ĐẠI HỘI ĐẢNG
    • Thích
    • Cười
Trả lời
0
Đọc
5
hoaithanh9480
hoaithanh9480
CodyPham97
tạo biểu tượng thay thế nhấn đúp chuột
Trả lời
4
Đọc
77
phansythao
phansythao
dovanha1994
Giúp e tìm nguyên nhân sai và hướng dẫn e đọc file này với ạ
    • Phẫn nộ
Trả lời
4
Đọc
114
SA_DQ
SA_DQ
20050911
File Excel lỗi ''The file could not be accessed. Try one of the following:.."
Trả lời
10
Đọc
508
20050911
20050911
N
Giúp sửa mã code
2
Trả lời
20
Đọc
439
Nguyễn Diêu Hiền
N
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11/2024
    • Thích
    • Yêu thích
Trả lời
1
Đọc
82
SA_DQ
SA_DQ
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
32
Đọc
856
VetMini
V
K
Nhờ mọi người hoàn thiện giúp công thức
Trả lời
4
Đọc
103
kiendt1973
K
P
Nhờ giúp đỡ hàm lọc dữ liệu theo tỉnh
Trả lời
10
Đọc
169
Parabol
P
H
Chúc mừng 20/11- ngày tôn vinh nhà giáo Việt Nam.
    • Thích
    • Yêu thích
Trả lời
0
Đọc
62
HUONGHCKT
H
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
7
Đọc
196
Ny Ny 2024
N
Nhật Anh 9x
  • Question
Tính tồn cuối kỳ luỹ kế cho nhiều mã
Trả lời
2
Đọc
100
Nhật Anh 9x
Nhật Anh 9x
C
Chia sẻ: Kết quả xổ số Keno
    • Cười
    • Thích
2
Trả lời
20
Đọc
581
ptm0412
ptm0412
nguyen trung cuong
File chứa marco không mở được.
Trả lời
2
Đọc
78
nguyen trung cuong
nguyen trung cuong
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
1
Đọc
115
hvnhpro
H
nobita994
Trừ số lượng dần theo dòng khi quét Sumif tổng có tên sản phẩm bị trùng.
Trả lời
2
Đọc
86
bebo021999
B
PhanTuHuong
Bàn về môn thể thao bóng bàn nào!
    • Thích
    • Yêu thích
    • Cười
2
Trả lời
37
Đọc
2K
cantl
C
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom