MERGE các hàng lại với nhau (1 người xem)

  • Thread starter Thread starter LOIKS
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
L

LOIKS

Thành viên chính thức
Tham gia
10/8/18
Bài viết
97
Được thích
7
chào mọi người
cho mình hỏi là làm sao có thể merge một hàng tổng khi biết được số hàng con nhỉ, số hàng con có thể thay đổi ít đi hoặc tăng lên
mọi người có thể xem sheet" KET QUA" ở file đinh kèm nhé
 

File đính kèm

tạm vậy đi
Mã: 
Sub merge()
Dim LR As Long, i As Long, Arr As Range, Rng As Range
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        If Rng = .Range("M2") Or Rng = .Range("N2") Or Rng = .Range("O2") Then
            Rng.Offset(0, -1).Value = "A11"
        End If
        If Rng = .Range("M3") Or Rng = .Range("N3") Or Rng = .Range("O3") Then
            Rng.Offset(0, -1).Value = "A12"
        End If
    End With
Next Rng
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If Cells(i, "A") = Cells(i + 1, "A") Then
            Range(Cells(i, "A"), Cells(i + 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
 
nguyenthuy13388 đã viết:
tạm vậy đi
Mã: 
Sub merge()
Dim LR As Long, i As Long, Arr As Range, Rng As Range
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        If Rng = .Range("M2") Or Rng = .Range("N2") Or Rng = .Range("O2") Then
            Rng.Offset(0, -1).Value = "A11"
        End If
        If Rng = .Range("M3") Or Rng = .Range("N3") Or Rng = .Range("O3") Then
            Rng.Offset(0, -1).Value = "A12"
        End If
    End With
Next Rng
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If Cells(i, "A") = Cells(i + 1, "A") Then
            Range(Cells(i, "A"), Cells(i + 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn nhé,cho mình hỏi là 2 code này ý nghĩa là gì hả bạn ?
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
 
LOIKS đã viết:
cảm ơn bạn nhé,cho mình hỏi là 2 code này ý nghĩa là gì hả bạn ?
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
Nhấp chuột vào đây để mở rộng...
Mã: 
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row '==> Dòng cuối cùng có dữ liệu của cột B
Set Arr = Sheets("du lieu").Range("B2:B" & LR) ' ==> đặt biến mảng thôi
 
nguyenthuy13388 đã viết:
tạm vậy đi
Mã: 
Sub merge()
Dim LR As Long, i As Long, Arr As Range, Rng As Range
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        If Rng = .Range("M2") Or Rng = .Range("N2") Or Rng = .Range("O2") Then
            Rng.Offset(0, -1).Value = "A11"
        End If
        If Rng = .Range("M3") Or Rng = .Range("N3") Or Rng = .Range("O3") Then
            Rng.Offset(0, -1).Value = "A12"
        End If
    End With
Next Rng
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If Cells(i, "A") = Cells(i + 1, "A") Then
            Range(Cells(i, "A"), Cells(i + 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
trongbaif chỉ có 2 "STT" nếu có tới 10 "STT" thì đoạn code này phải làm 10 lần hả bạn?
If Rng = .Range("M2") Or Rng = .Range("N2") Or Rng = .Range("O2") Then
Rng.Offset(0, -1).Value = "A11"
End If
If Rng = .Range("M3") Or Rng = .Range("N3") Or Rng = .Range("O3") Then
Rng.Offset(0, -1).Value = "A12"
 
LOIKS đã viết:
trongbaif chỉ có 2 "STT" nếu có tới 10 "STT" thì đoạn code này phải làm 10 lần hả bạn?
If Rng = .Range("M2") Or Rng = .Range("N2") Or Rng = .Range("O2") Then
Rng.Offset(0, -1).Value = "A11"
End If
If Rng = .Range("M3") Or Rng = .Range("N3") Or Rng = .Range("O3") Then
Rng.Offset(0, -1).Value = "A12"
Nhấp chuột vào đây để mở rộng...
sửa lại thành
Mã: 
Sub merge()
Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng = .Range("M" & k) Or Rng = .Range("N" & k) Or Rng = .Range("O" & k) Then
                Rng.Offset(0, -1).Value = .Range("L" & k)
            End If
        Next k
    End With
Next Rng
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
 
Lần chỉnh sửa cuối:
nguyenthuy13388 đã viết:
sửa lại thành
Mã: 
Sub merge()
Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng = .Range("M" & k) Or Rng = .Range("N" & k) Or Rng = .Range("O" & k) Then
                Rng.Offset(0, -1).Value = .Range("L" & k)
            End If
        Next k
    End With
Next Rng
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
cảm ơn nha
mà code này nó có ý nghĩa gì vậy bạn ?
Rng.Offset(0, -1).Value = .Range("L" & k)
 
nguyenthuy13388 đã viết:
Srr là Range
Nhấp chuột vào đây để mở rộng...
bạn ơi hiện tại code mà bạn viết nó chỉ Merge theo số lượng cấu kiện ví dụ số lượng cấu kiện là 3 thì nó chỉ merge là 3,mà nó không thể nào nhận định được tên cấu kiện
bạn có thể giúp mình làm cho nó nhận định được tên cấu kiện để merge ko ?
cảm ơn bạn nhé
 

File đính kèm

LOIKS đã viết:
bạn ơi hiện tại code mà bạn viết nó chỉ Merge theo số lượng cấu kiện ví dụ số lượng cấu kiện là 3 thì nó chỉ merge là 3,mà nó không thể nào nhận định được tên cấu kiện
bạn có thể giúp mình làm cho nó nhận định được tên cấu kiện để merge ko ?
cảm ơn bạn nhé
Nhấp chuột vào đây để mở rộng...
Minh ko hiểu ý bạn lắm. Nghĩa là tên cấu kiện không liền nhau đúng ko?
 
LOIKS đã viết:
đúng rồi bạn, dữ liệu ở cột "B"sau khi merge nó phải liền nhau, bạn có thể tham khảo sheet"KET QUA mong muon" mà mình gửi kèm theo
Nhấp chuột vào đây để mở rộng...
vậy thêm 1 bước sort nữa trước khi chạy đoạn code merge là được mà, bạn biết record macro chứ?
 
nguyenthuy13388 đã viết:
vậy thêm 1 bước sort nữa trước khi chạy đoạn code merge là được mà, bạn biết record macro chứ?
Nhấp chuột vào đây để mở rộng...
ok bạn mình biết rồi, cảm ơn nhiều nhé
Bài đã được tự động gộp:

nguyenthuy13388 đã viết:
vậy thêm 1 bước sort nữa trước khi chạy đoạn code merge là được mà, bạn biết record macro chứ?
Nhấp chuột vào đây để mở rộng...
cái này củng ko được vì số cấu kiện nó sắp xếp ko theo thứ tự
 
Lần chỉnh sửa cuối:
LOIKS đã viết:
ok bạn mình biết rồi, cảm ơn nhiều nhé
Bài đã được tự động gộp:


cái này củng ko được vì số cấu kiện nó sắp xếp ko theo thứ tự
Nhấp chuột vào đây để mở rộng...
bạn thử code này xem
(xem thêm file đính kèm vì vùng dữ liệu của bạn đã thay đổi)
Mã: 
sub merge
Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("du lieu").Range("A2:A" & LR).UnMerge
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng = .Range("L" & k) Or Rng = .Range("M" & k) Or Rng = .Range("N" & k) Then
                Rng.Offset(0, -1).Value = .Range("K" & k)
            End If
        Next k
    End With
Next Rng
'---------- sort
Sheet5.Range("A2:B" & LR).Sort [B2], xlAscending, [A2], Value, xlAscending
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
end sub
 

File đính kèm

nguyenthuy13388 đã viết:
bạn thử code này xem
(xem thêm file đính kèm vì vùng dữ liệu của bạn đã thay đổi)
Mã: 
sub merge
Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("du lieu").Range("A2:A" & LR).UnMerge
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng = .Range("L" & k) Or Rng = .Range("M" & k) Or Rng = .Range("N" & k) Then
                Rng.Offset(0, -1).Value = .Range("K" & k)
            End If
        Next k
    End With
Next Rng
'---------- sort
Sheet5.Range("A2:B" & LR).Sort [B2], xlAscending, [A2], Value, xlAscending
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
end sub
Nhấp chuột vào đây để mở rộng...
VÌ DỬ LIỆU TRONG BẢNG RANGE(K1:N3) với STT "A12" có các cấu kiện được sắp xếp theo từ B114-B109-B108
mình muốn sau khi merge tại cột "B" thì với STT "A12" các cấu kiện được sắp xếp theo từ B114-B109-B108
 

File đính kèm

  • 1111111111111111111111.png
    1111111111111111111111.png
    3.5 KB · Đọc: 7
  • 222222222222222222222222.png
    222222222222222222222222.png
    3.7 KB · Đọc: 7
LOIKS đã viết:
VÌ DỬ LIỆU TRONG BẢNG RANGE(K1:N3) với STT "A12" có các cấu kiện được sắp xếp theo từ B114-B109-B108
mình muốn sau khi merge tại cột "B" thì với STT "A12" các cấu kiện được sắp xếp theo từ B114-B109-B108
Nhấp chuột vào đây để mở rộng...
vậy sao sheet kết quả mong muốn lại viết như vậy?
1537166262796.png
 
LOIKS đã viết:
mình nhầm khúc này, sorry ban nha
Nhấp chuột vào đây để mở rộng...
Giải pháp của mình đây,
Mã: 
sub merge()

Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("du lieu").Range("A2:A" & LR).UnMerge
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng.Value = .Range("L" & k).Value Or Rng.Value = .Range("M" & k).Value Or Rng.Value = .Range("N" & k).Value Then
                Rng.Offset(0, -1).Value = .Range("K" & k)
            End If
            If Rng.Value = .Range("L" & k).Value Then
                Rng.Font.Color = 100
            End If
            If Rng.Value = .Range("M" & k).Value Then
                Rng.Font.Color = 2000
            End If
            If Rng.Value = .Range("N" & k).Value Then
                Rng.Font.Color = 30000
            End If
        Next k
    End With
Next Rng
'---------- sort
Sheet5.Sort.SortFields.Clear
With ActiveSheet.Sort
 .SortFields.Add Key:=[A2], SortOn:=xlSortOnValues, Order:=xlAscending
 .SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 100
 .SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 2000
 .SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 30000
 .SetRange Range("A1:B" & LR)
 .Header = xlYes
 .Apply
End With
Sheet5.Range("A1:B" & LR).Font.Color = 0
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
 
Góp ý với chủ topic là không nên sử dụng cách này để xử lý dữ liệu. Sau này sẽ hối tiếc sau trước đây mình lại làm như vậy

Gợi ý là dùng công thức để gán dữ liệu vào cột A. Sau này bạn sẽ thấy được sự lợi hại của cách này. Cứ từ từ mà thấm nhé

Excel tối kỵ việc Merged cells nếu muốn xử lý data nhanh và thuận tiện. Còn nếu dùng để in báo cáo thì cứ ẩn cột đầy đủ lại, tạo thêm cột phụ rồi trộn cells chỉ cột đó thôi. Theo kinh nghiệm là vậy.

@ Nguyenthuy13388

Nếu có vài chục ngàn dòng mà trộn từng cell thì chậm lắm. Có chăng nên dùng kỹ thuật Autofilter để trộn sẽ nhanh hơn rất nhiều. Mình thấy mọi người trên GPE toàn gom lại rồi Merged từng nhóm.

Đang rảnh nên tào lao tí, không vừa ý thì bỏ qua hén

1537173719646.png
 
nguyenthuy13388 đã viết:
Giải pháp của mình đây,
Mã: 
sub merge()

Dim LR As Long, i As Long, Arr As Range, Rng As Range
Dim k As Long, LR1 As Long
LR1 = Sheets("du lieu").Cells(Rows.Count, "L").End(xlUp).Row
LR = Sheets("du lieu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("du lieu").Range("A2:A" & LR).UnMerge
Set Arr = Sheets("du lieu").Range("B2:B" & LR)
For Each Rng In Arr
    With Sheets("du lieu")
        For k = 2 To LR1
            If Rng.Value = .Range("L" & k).Value Or Rng.Value = .Range("M" & k).Value Or Rng.Value = .Range("N" & k).Value Then
                Rng.Offset(0, -1).Value = .Range("K" & k)
            End If
            If Rng.Value = .Range("L" & k).Value Then
                Rng.Font.Color = 100
            End If
            If Rng.Value = .Range("M" & k).Value Then
                Rng.Font.Color = 2000
            End If
            If Rng.Value = .Range("N" & k).Value Then
                Rng.Font.Color = 30000
            End If
        Next k
    End With
Next Rng
'---------- sort
Sheet5.Sort.SortFields.Clear
With ActiveSheet.Sort
.SortFields.Add Key:=[A2], SortOn:=xlSortOnValues, Order:=xlAscending
.SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 100
.SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 2000
.SortFields.Add([B2], xlSortOnFontColor).SortOnValue.Color = 30000
.SetRange Range("A1:B" & LR)
.Header = xlYes
.Apply
End With
Sheet5.Range("A1:B" & LR).Font.Color = 0
'-------------meger
Application.DisplayAlerts = False
For i = LR To 2 Step -1
    With Sheets("du lieu")
        If .Cells(i, "A") = .Cells(i - 1, "A") Then
            .Range(Cells(i, "A"), Cells(i - 1, "A")).merge
        End If
    End With
Next i
Application.DisplayAlerts = True
Set Arr = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...
hay quá bạn ơi, cho mình hỏi tý về code này tý nhé
If Rng.Value = .Range("L" & k).Value Or Rng.Value = .Range("M" & k).Value Or Rng.Value = .Range("N" & k).Value Or Rng.Value = .Range("O" & k).Value Or Rng.Value = .Range("p" & k).Value Then
Rng.Offset(0, -1).Value = .Range("K" & k)
 
em xin tiếp thu ý kiến của anh, tuy nhiên cho em hỏi kỹ hơn phần này được không ạ?
quanghai1969 đã viết:
Mình thấy mọi người trên GPE toàn gom lại rồi Merged từng nhóm
Nhấp chuột vào đây để mở rộng...
hiện em chỉ biết có 1 cách là: sort dữ liệu rồi dùng for đi từng cell để merge thôi ạ.
Bài đã được tự động gộp:

LOIKS đã viết:
hay quá bạn ơi, cho mình hỏi tý về code này tý nhé
If Rng.Value = .Range("L" & k).Value Or Rng.Value = .Range("M" & k).Value Or Rng.Value = .Range("N" & k).Value Or Rng.Value = .Range("O" & k).Value Or Rng.Value = .Range("p" & k).Value Then
Rng.Offset(0, -1).Value = .Range("K" & k)
Nhấp chuột vào đây để mở rộng...
cái này mình mới thêm ".value" vì sợ màu chữ khác thì điều kiện if sẽ false
 
quanghai1969 đã viết:
Góp ý với chủ topic là không nên sử dụng cách này để xử lý dữ liệu. Sau này sẽ hối tiếc sau trước đây mình lại làm như vậy

Gợi ý là dùng công thức để gán dữ liệu vào cột A. Sau này bạn sẽ thấy được sự lợi hại của cách này. Cứ từ từ mà thấm nhé

Excel tối kỵ việc Merged cells nếu muốn xử lý data nhanh và thuận tiện. Còn nếu dùng để in báo cáo thì cứ ẩn cột đầy đủ lại, tạo thêm cột phụ rồi trộn cells chỉ cột đó thôi. Theo kinh nghiệm là vậy.

@ Nguyenthuy13388

Nếu có vài chục ngàn dòng mà trộn từng cell thì chậm lắm. Có chăng nên dùng kỹ thuật Autofilter để trộn sẽ nhanh hơn rất nhiều. Mình thấy mọi người trên GPE toàn gom lại rồi Merged từng nhóm.

Đang rảnh nên tào lao tí, không vừa ý thì bỏ qua hén

View attachment 204056
Nhấp chuột vào đây để mở rộng...

mình chỉ sợ là nó nhièu côt bên này rồi code chổ này phải thêm vào thôi
 

File đính kèm

  • 11111111111111.png
    11111111111111.png
    6.4 KB · Đọc: 5
  • 2222222222222222222.png
    2222222222222222222.png
    3.6 KB · Đọc: 5
to Nguyenthuy:
Trong file là cách mình học mergecells từ GPE
to chủ topic:
Bố trí dữ liệu rất quan trọng. Càng khoa học thì càng dễ chỉnh sửa thêm bớt sau này
Mình gởi bạn một mẫu dữ liệu đơn giản và cách mình thực hiện yêu cầu của bạn. Khi cần thêm cấu kiện bạn cứ việc thêm vào ở sheet STT như mẫu là được
 

File đính kèm

quanghai1969 đã viết:
to Nguyenthuy:
Trong file là cách mình học mergecells từ GPE
to chủ topic:
Bố trí dữ liệu rất quan trọng. Càng khoa học thì càng dễ chỉnh sửa thêm bớt sau này
Mình gởi bạn một mẫu dữ liệu đơn giản và cách mình thực hiện yêu cầu của bạn. Khi cần thêm cấu kiện bạn cứ việc thêm vào ở sheet STT như mẫu là được
Nhấp chuột vào đây để mở rộng...
cảm ơn bạn nhé, tuy nhiên mình chỉ hiểu nôm na vụ Mergecells là autofilter thành từng nhóm và merge lại. chứ code này chắc phải thời gian nữa mình mới hiểu dc hết
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

8
Hàm trong excel
Trả lời
2
Đọc
25
84huong
8
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng (1 người xem)
Trả lời
10
Đọc
181
dazkangel
dazkangel
N
Chuyển giờ công từ bảng công vào bảng tính
Trả lời
16
Đọc
259
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++
    • Thích
Trả lời
7
Đọc
627
nguyendang95
N
T
Tìm số hóa đơn trong chuỗi
Trả lời
8
Đọc
331
tranhungdao12a3
T
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
127
Nga1852k
Nga1852k
D
  • Question Question
xin các cao thủ trợ giúp , hoặc nhận làm code có trả phí ạ
Trả lời
14
Đọc
1K
tung1423
tung1423
D
xin hỏi về lỗi mô đun ẩn. (1 người xem)
Trả lời
3
Đọc
133
ongke0711
ongke0711
H
Xin anh chị hướng dẫn công thức excel ạ.
Trả lời
9
Đọc
258
Phan Thế Hiệp
Phan Thế Hiệp
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
4
Đọc
1K
LeThangbk
L
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
381
Đọc
44K
tuanktt3
T
M
Add-in Excel kết nối cơ sở dữ liệu
Trả lời
1
Đọc
92
ptm0412
ptm0412
Đ
tách dữ liệu từ một dòng thành hai dòng
Trả lời
2
Đọc
137
Phuocam
Phuocam
longhuy
Lỗi error 20728: F
Trả lời
0
Đọc
71
longhuy
longhuy
H
Trang tính chỉ hiển thị vùng có dữ liệu
Trả lời
7
Đọc
603
vinhkm6
vinhkm6
mrjun80
Có hàm nào đếm tổng các số nằm trong 1 ô không mọi người
Trả lời
12
Đọc
489
Phan Thế Hiệp
Phan Thế Hiệp
N
Hàm DATEDIF trong Excel 2016
Trả lời
16
Đọc
14K
Phan Thế Hiệp
Phan Thế Hiệp
Tiger Nau
Đánh số thứ tự trên tờ vé số
Trả lời
6
Đọc
172
ptm0412
ptm0412
T
Dò giá trị nằm trong khoảng giá trị
Trả lời
1
Đọc
91
thao nguyen01
T
T
  • Question Question
Tìm dòng có mặt hàng không nằm trong danh mục bằng code VBA
Trả lời
6
Đọc
311
thao nguyen01
T
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom