Tìm Subtotal bằng VBA

Liên hệ QC
M

moihocvba

Thành viên thường trực
Tham gia
16/8/20
Bài viết
211
Được thích
50
Chào anh chị GPE!
Em có một bảng dữ liệu như này:

1612406380686.png

Em muốn tính tổng các cột từ Sum1 đến Sum5 theo cột Mã số, kết quả như thế này:
1612406545576.png


Nếu dữ liệu ít có thể dùng lệnh Subtotal của Excel cũng ra, nhưng vì file của em dữ liệu quá lớn (hơn 95.000 dòng), nên khi em dùng lệnh subtotal có sẵn của excel thì Excel của em đứng luôn. Nên em có ý tưởng đưa dữ liệu này vào mảng để xử lý sau đó dáng kết quả ra một nơi khác cho nhẹ ạ. Em up file lên đây nhờ các anh chị giúp em code để em học hỏi ạ!
Em cảm ơn anh chị nhiều!
 

File đính kèm

  • Subtotal.xlsb
    1.7 MB · Đọc: 69
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
moihocvba đã viết:
Chào anh chị GPE!
Em có một bảng dữ liệu như này:

View attachment 253932

Em muốn tính tổng các cột từ Sum1 đến Sum5 theo cột Mã số, kết quả như thế này:
View attachment 253933


Nếu dữ liệu ít có thể dùng lệnh Subtotal của Excel cũng ra, nhưng vì file của em dữ liệu quá lớn (hơn 95.000 dòng), nên khi em dùng lệnh subtotal có sẵn của excel thì Excel của em đứng luôn. Nên em có ý tưởng đưa dữ liệu này vào mảng để xử lý sau đó dáng kết quả ra một nơi khác cho nhẹ ạ. Em up file lên đây nhờ các anh chị giúp em code để em học hỏi ạ!
Em cảm ơn anh chị nhiều!
Nhấp chuột vào đây để mở rộng...
Nhớ lưu ý mấy cái tên sheet. Hiện tại theo file bạn gởi là sheet nguồn là sheet1, kết quả hiện ở sheet3. Nếu cần thì sửa lại cho đúng thực tế
Mã: 
Sub Sub_total()
Dim sArr(), i As Long, Tmp(), j As Long, k As Long, SubTotal()
With Sheets("sheet1")
   .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Sort .[A1]
   sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Value
End With
ReDim Tmp(1 To UBound(sArr) * 2, 1 To UBound(sArr, 2))
ReDim SubTotal(1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 1) = sArr(i + 1, 1) Then
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
     
   Else
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
      k = k + 1
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = SubTotal(j - 1)
      Next
      ReDim SubTotal(1 To UBound(sArr, 2))
   End If
Next
Sheets("sheet3").[A2].Resize(k, UBound(Tmp, 2)) = Tmp
End Sub
******
Code còn thiếu kết quả của dòng cuối. Bạn cố gắng suy nghĩ và sửa nhẹ lại cho đủ hén
 
Lần chỉnh sửa cuối:
Upvote 0
Quang_Hải đã viết:
Nhớ lưu ý mấy cái tên sheet. Hiện tại theo file bạn gởi là sheet nguồn là sheet1, kết quả hiện ở sheet3. Nếu cần thì sửa lại cho đúng thực tế
Mã: 
Sub Sub_total()
Dim sArr(), i As Long, Tmp(), j As Long, k As Long, SubTotal()
With Sheets("sheet1")
   .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Sort .[A1]
   sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Value
End With
ReDim Tmp(1 To UBound(sArr) * 2, 1 To UBound(sArr, 2))
ReDim SubTotal(1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 1) = sArr(i + 1, 1) Then
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
   
   Else
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
      k = k + 1
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = SubTotal(j - 1)
      Next
      ReDim SubTotal(1 To UBound(sArr, 2))
   End If
Next
Sheets("sheet3").[A2].Resize(k, UBound(Tmp, 2)) = Tmp
End Sub
******
Code còn thiếu kết quả của dòng cuối. Bạn cố gắng suy nghĩ và sửa nhẹ lại cho đủ hén
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn anh Thành viên gạo cội Quang_Hải ạ! Code chạy rất nhanh ạ. Nhưng mã cuối nó ko được tổng, anh xem lại dùm em thử nhé! Cám ơn anh!

1612411745014.png
 
Upvote 0
moihocvba đã viết:
Dạ em cảm ơn anh Thành viên gạo cội Quang_Hải ạ! Code chạy rất nhanh ạ. Nhưng mã cuối nó ko được tổng, anh xem lại dùm em thử nhé! Cám ơn anh!

View attachment 253942
Nhấp chuột vào đây để mở rộng...
Mình đã ghi chú phía trên rồi, code thiếu mất dữ liệu dòng cuối. Mình muốn bạn tìm ra nguyên nhân. Khi nào bó tay thì copy code này về xài
Mã: 
Sub Sub_total()
Dim sArr(), i As Long, Tmp(), j As Long, k As Long, SubTotal()
With Sheets("sheet1")
   .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Sort .[A1]
   sArr = .Range("A2", .Range("A" & Rows.Count).End(3)(2)).Resize(, 6).Value
End With
ReDim Tmp(1 To UBound(sArr) * 2, 1 To UBound(sArr, 2))
ReDim SubTotal(1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 1) = sArr(i + 1, 1) Then
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
   Else
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
      k = k + 1
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = SubTotal(j - 1)
      Next
      ReDim SubTotal(1 To UBound(sArr, 2))
   End If
Next
Sheets("sheet3").[A2].Resize(k, UBound(Tmp, 2)) = Tmp
End Sub
 
Upvote 0
Quang_Hải đã viết:
Mình đã ghi chú phía trên rồi, code thiếu mất dữ liệu dòng cuối. Mình muốn bạn tìm ra nguyên nhân. Khi nào bó tay thì copy code này về xài
Mã: 
Sub Sub_total()
Dim sArr(), i As Long, Tmp(), j As Long, k As Long, SubTotal()
With Sheets("sheet1")
   .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 6).Sort .[A1]
   sArr = .Range("A2", .Range("A" & Rows.Count).End(3)(2)).Resize(, 6).Value
End With
ReDim Tmp(1 To UBound(sArr) * 2, 1 To UBound(sArr, 2))
ReDim SubTotal(1 To UBound(sArr, 2))
For i = 1 To UBound(sArr) - 1
   If sArr(i, 1) = sArr(i + 1, 1) Then
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
   Else
      k = k + 1
      Tmp(k, 1) = sArr(i, 1)
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = sArr(i, j)
         SubTotal(j - 1) = SubTotal(j - 1) + sArr(i, j)
      Next
      k = k + 1
      For j = 2 To UBound(sArr, 2)
         Tmp(k, j) = SubTotal(j - 1)
      Next
      ReDim SubTotal(1 To UBound(sArr, 2))
   End If
Next
Sheets("sheet3").[A2].Resize(k, UBound(Tmp, 2)) = Tmp
End Sub
Nhấp chuột vào đây để mở rộng...
Ok, em sẽ nghiên cứu trước khi xài code này! Một lần nữa cảm ơn anh!
 
Upvote 0
Nhờ làm giùm thì nói là nhờ làm giùm.
Học thì học giải thuật chứ ai học đọc code của người khác.
Giải thuật code:
- Copy cột đầu vào một mảng
- đọc mảng, dùng Dictionary để lọc duy nhất.
- đọc đít sần, mỗi key thì thêm vào một chuỗi "SUB" ở sau, và ghi tiếp theo lên bảng tính
- sort bảng kết quả. Như vậy mấy dòng ghi sau sẽ thành dòng subtotals cho mỗi mã.
- Copy vào một mảng
- đọc và tính subtotal
- ghi mảng trở lại.
- hết
 
Upvote 0
VetMini đã viết:
Nhờ làm giùm thì nói là nhờ làm giùm.
Học thì học giải thuật chứ ai học đọc code của người khác.
Giải thuật code:
- Copy cột đầu vào một mảng
- đọc mảng, dùng Dictionary để lọc duy nhất.
- đọc đít sần, mỗi key thì thêm vào một chuỗi "SUB" ở sau, và ghi tiếp theo lên bảng tính
- sort bảng kết quả. Như vậy mấy dòng ghi sau sẽ thành dòng subtotals cho mỗi mã.
- Copy vào một mảng
- đọc và tính subtotal
- ghi mảng trở lại.
- hết
Nhấp chuột vào đây để mở rộng...
Cám ơn anh VetMini đã tư vấn!
 
Upvote 0
Nếu làm theo truyền thống GPE thì hơi khác một chút:

- Copy dữ liệu vào array a
- Redim Preserve array a, tăng số cột lên 1
- Tạo một array b, kích thước bằng a
- Tạo một đít sần d. Đít sần này sẽ có key là mã, và item là chỉ số dòng trong mảng b
- Đọc a:
- - copy mã từ cột đầu vào cột cuối. (Điều này cần thiết để sort)
- - nếu mã đã có trong d thì:
- - - tăng số đếm array b lên 1
- - - với dòng mới của b, ghi mã & "SUB" ở cột cuối
- - - dùng mã, ghi một key mới trong d, item là chỉ số mới của b
- - dùng chỉ số mới, hoặc chỉ số lấyb từ d, cộng dồn subtotals vào dòng của b
- Copy a trở lại bảng
- Copy b vào bảng, kế tiếp theo a
- Sort theo cột cuối cùng
- Delete cột cuối cùng.
 
Upvote 0
moihocvba đã viết:
Chào anh chị GPE!
Em có một bảng dữ liệu như này:

View attachment 253932

Em muốn tính tổng các cột từ Sum1 đến Sum5 theo cột Mã số, kết quả như thế này:
View attachment 253933


Nếu dữ liệu ít có thể dùng lệnh Subtotal của Excel cũng ra, nhưng vì file của em dữ liệu quá lớn (hơn 95.000 dòng), nên khi em dùng lệnh subtotal có sẵn của excel thì Excel của em đứng luôn. Nên em có ý tưởng đưa dữ liệu này vào mảng để xử lý sau đó dáng kết quả ra một nơi khác cho nhẹ ạ. Em up file lên đây nhờ các anh chị giúp em code để em học hỏi ạ!
Em cảm ơn anh chị nhiều!
Nhấp chuột vào đây để mở rộng...

Theo gợi ý tại bài 7 của Bác @VetMini , Bạn thử code sau:
Mã: 
Option Explicit

Sub SumSumSum()
    Application.ScreenUpdating = False
    Dim sMa As String, aChuaSum() As Variant, aSumSum() As Variant
    Dim r As Long, k As Long, eA As Long, c As Long, i As Double
    Const sR As String = "A1"
    With Sheet1
        aChuaSum = .Range(sR).CurrentRegion.Value2
        eA = UBound(aChuaSum, 1)
        If eA < 2 Then Exit Sub
        ReDim aSumSum(1 To eA, 1 To 6)
        Dim dic As New Scripting.Dictionary
        For r = 2 To eA
            sMa = aChuaSum(r, 1)
            For c = 2 To 6
                If Not dic.Exists(sMa) Then
                    k = k + 1
                    dic.Add sMa, k
                    aSumSum(k, 1) = sMa & "Sub"
                    aSumSum(k, c) = aChuaSum(r, c)
                Else
                    i = dic(sMa)
                    aSumSum(i, c) = aSumSum(i, c) + aChuaSum(r, c)
                End If
            Next c
        Next r
    End With
    With Sheet2.Range(sR)
        .Resize(eA + k, 6).NumberFormat = "@"
        .Resize(eA, 6).Value = aChuaSum
        .Offset(eA).Resize(k, 6).Value = aSumSum
        .Resize(eA + k, 6).Sort Key1:=.Range(sR), Order1:=xlAscending, Header:=xlYes
    End With
    Application.ScreenUpdating = True
End Sub
 
Upvote 0
NHN_Phương đã viết:
Theo gợi ý tại bài 7 của Bác @VetMini , Bạn thử code sau:
Mã: 
Option Explicit

Sub SumSumSum()
    Application.ScreenUpdating = False
    Dim sMa As String, aChuaSum() As Variant, aSumSum() As Variant
    Dim r As Long, k As Long, eA As Long, c As Long, i As Double
    Const sR As String = "A1"
    With Sheet1
        aChuaSum = .Range(sR).CurrentRegion.Value2
        eA = UBound(aChuaSum, 1)
        If eA < 2 Then Exit Sub
        ReDim aSumSum(1 To eA, 1 To 6)
        Dim dic As New Scripting.Dictionary
        For r = 2 To eA
            sMa = aChuaSum(r, 1)
            For c = 2 To 6
                If Not dic.Exists(sMa) Then
                    k = k + 1
                    dic.Add sMa, k
                    aSumSum(k, 1) = sMa & "Sub"
                    aSumSum(k, c) = aChuaSum(r, c)
                Else
                    i = dic(sMa)
                    aSumSum(i, c) = aSumSum(i, c) + aChuaSum(r, c)
                End If
            Next c
        Next r
    End With
    With Sheet2.Range(sR)
        .Resize(eA + k, 6).NumberFormat = "@"
        .Resize(eA, 6).Value = aChuaSum
        .Offset(eA).Resize(k, 6).Value = aSumSum
        .Resize(eA + k, 6).Sort Key1:=.Range(sR), Order1:=xlAscending, Header:=xlYes
    End With
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Dạ em cám ơn nhiều ạ! E sẽ thử.
 
Upvote 0
NHN_Phương đã viết:
Theo gợi ý tại bài 7 của Bác @VetMini , Bạn thử code sau:
Mã: 
Option Explicit

Sub SumSumSum()
    Application.ScreenUpdating = False
    Dim sMa As String, aChuaSum() As Variant, aSumSum() As Variant
    Dim r As Long, k As Long, eA As Long, c As Long, i As Double
    Const sR As String = "A1"
    With Sheet1
        aChuaSum = .Range(sR).CurrentRegion.Value2
        eA = UBound(aChuaSum, 1)
        If eA < 2 Then Exit Sub
        ReDim aSumSum(1 To eA, 1 To 6)
        Dim dic As New Scripting.Dictionary
        For r = 2 To eA
            sMa = aChuaSum(r, 1)
            For c = 2 To 6
                If Not dic.Exists(sMa) Then
                    k = k + 1
                    dic.Add sMa, k
                    aSumSum(k, 1) = sMa & "Sub"
                    aSumSum(k, c) = aChuaSum(r, c)
                Else
                    i = dic(sMa)
                    aSumSum(i, c) = aSumSum(i, c) + aChuaSum(r, c)
                End If
            Next c
        Next r
    End With
    With Sheet2.Range(sR)
        .Resize(eA + k, 6).NumberFormat = "@"
        .Resize(eA, 6).Value = aChuaSum
        .Offset(eA).Resize(k, 6).Value = aSumSum
        .Resize(eA + k, 6).Sort Key1:=.Range(sR), Order1:=xlAscending, Header:=xlYes
    End With
    Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Mình nghĩ là code này sẽ khó cho người mới. Khai báo Dic kiểu đó nghi nghi là sé báo lỗi
 
Upvote 0
Quang_Hải đã viết:
Mình nghĩ là code này sẽ khó cho người mới. Khai báo Dic kiểu đó nghi nghi là sé báo lỗi
Nhấp chuột vào đây để mở rộng...
Dạ cảm ơn anh Quang Hải đã góp ý ạ, vậy sẽ :
Xóa 1 dòng:
Mã: 
 Dim dic As New Scripting.Dictionary
Thay bằng 2 dòng:
Mã: 
        Dim Dic As Object
        Set Dic = CreateObject("scripting.dictionary")
 
Upvote 0
moihocvba đã viết:
Dạ em cám ơn nhiều ạ! E sẽ thử.
Nhấp chuột vào đây để mở rộng...

Bạn thử theo cách truyền thống mà Bác @VetMini chỉ dẫn tại bài 9 xem:

Mã: 
Option Explicit

Sub SumTruyenThong()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    On Error GoTo End_
    Dim Dic As Object, sMa As String, aChuaSum() As Variant, aSumSum() As Variant
    Dim r As Long, k As Long, eA As Long, c As Long, i As Double, a As Long
    Const sR As String = "A1"
    With Sheet1
        aChuaSum = .Range(sR).CurrentRegion.Value2
        eA = UBound(aChuaSum, 1): a = UBound(aChuaSum, 2) + 1
        If eA < 2 Then Exit Sub
        ReDim Preserve aChuaSum(1 To eA, 1 To a + 1)
        ReDim aSumSum(1 To eA, 1 To a)
        
        Set Dic = CreateObject("scripting.dictionary")
        For r = 2 To eA
            sMa = aChuaSum(r, 1)
            aChuaSum(r, a) = sMa
            For c = 2 To a - 1
                If Not Dic.Exists(sMa) Then
                    k = k + 1
                    Dic.Add sMa, k
                    aSumSum(k, a) = sMa & "Sub"
                    aSumSum(k, c) = aChuaSum(r, c)
                Else
                    i = Dic(sMa)
                    aSumSum(i, c) = aSumSum(i, c) + aChuaSum(r, c)
                End If
            Next c
        Next r
    End With
    
    With Sheet2.Range(sR)
        .Offset(, a - 1).Resize(eA + k).NumberFormat = "@"
        .Resize(eA, a).Value = aChuaSum
        .Offset(eA).Resize(k, a).Value2 = aSumSum
        .Resize(eA + k, a).Sort Key1:=.Offset(, a - 1), Order1:=xlAscending, Header:=xlYes
        .Offset(, a - 1).Resize(eA + k).ClearContents
    End With
    
End_:

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, Err.Number
    
End Sub
 
Upvote 0
VetMini đã viết:
Chưa tính đến cách làm, mà nói chuyện cách trình bày.
Không sort thì cái subtotal nó sẽ đặt nằm dưới cái gì?
Nhấp chuột vào đây để mở rộng...
Không phải vậy anh.
Kết quả thì vẫn gom lại một cụm, dòng tổng để dưới cụm đúng như yêu cầu.
Không sort ở đây là: Không sử dụng cách sort để gom các mã lại một chỗ và để tính tổng của cụm
 
Upvote 0
befaint đã viết:
Không phải vậy anh.
Kết quả thì vẫn gom lại một cụm, dòng tổng để dưới cụm đúng như yêu cầu.
Không sort ở đây là: Không sử dụng cách sort để gom các mã lại một chỗ và để tính tổng của cụm
Nhấp chuột vào đây để mở rộng...
OT loay hoay mãi một cột mà chưa được, nhờ Bạn @befaint góp ý ạ:
Mã: 
Sub SumKhongSort()

    Dim Dic As Object, sMa As String, aChuaSum() As Variant, aSumSum() As Variant
    Dim r As Long, k As Long, eA As Long, c As Long, i As Double, a As Long
    Const sR As String = "A1"
   
    With Sheet1
        aChuaSum = .Range(sR).CurrentRegion.Value2
        eA = UBound(aChuaSum, 1): a = UBound(aChuaSum, 2) + 1
        If eA < 2 Then Exit Sub
        ReDim Preserve aChuaSum(1 To eA, 1 To a)
        ReDim aSumSum(1 To eA * 2, 1 To a)
        Set Dic = CreateObject("scripting.dictionary")
        For r = eA To 2 Step -1
            sMa = aChuaSum(r, 1)
            aSumSum(r, 1) = sMa
'            For c = 2 To a - 1
                'aSumSum(r, 2) = aChuaSum(r, 2)
                If Not Dic.Exists(sMa) Then
                    k = r + 1
                    Dic.Add sMa, k
                    aSumSum(k, 2) = aChuaSum(r, 2)
                Else
                    i = Dic(sMa)
                    aSumSum(i, 1) = Empty
                    aSumSum(i, 2) = aSumSum(i, 2) + aChuaSum(r, 2)
                End If
'            Next c
        Next r
        .Range(sR).Offset(, 8).Resize(eA + k, a) = aSumSum
    End With
End Sub
 
Upvote 0
Thật ra cái này PowerQuery là dễ nhất.

Bó-nợt SQL String cho bạn nào ngắm nghé ADO

Select a.Ma, a.Sum1, a.Sum2, a.Sum3, a.Sum4, a.Sum5 From "
(Select Ma, Sum1, Sum2, Sum3, Sum4, Sum5, Ma [Ma2] From Bang "
Union All "
(Select '', Sum(Sum1), Sum(Sum2), Sum(Sum3), Sum(Sum4), Sum(Sum5), Ma & 'SUB' From Bang "
Group By Ma) "
) a Order By a.Ma2 "
 
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

nguyenphuochien166
Cách Vlookup hoặc cách lấy thông tin dữ liệu có dấu mũ lũy thừa?
    • Cười
Trả lời
4
Đọc
51
Hoàng Tuấn 868
H
C
Chia sẻ: Kết quả xổ số Keno
    • Thích
    • Cười
Trả lời
6
Đọc
175
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
24
Đọc
482
SA_DQ
SA_DQ
B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
3
Đọc
90
batista911
B
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
12
Đọc
213
ptm0412
ptm0412
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
1
Đọc
71
hoangtuaotrang_hp_vn
H
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
5
Đọc
132
kimtanmap
kimtanmap
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
1
Đọc
67
hoangtuaotrang_hp_vn
H
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
0
Đọc
39
huynhnhu1234
huynhnhu1234
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
7
Đọc
122
tranvansau278
T
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
111
Nguyễn Linh hn94
N
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
155
zarra
zarra
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Cảm ơn
    • Thích
Trả lời
5
Đọc
289
anhdepjai
A
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
18
Đọc
20K
DeTong
D
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
245
Đọc
13K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
302
cantl
C
N
Giúp sửa mã code
Trả lời
16
Đọc
282
ptm0412
ptm0412
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
1
Đọc
65
hoangminhtien
hoangminhtien
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
203
GPE-Trợ Lý
GPE-Trợ Lý
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