Tổng hợp báo cáo - nhờ xử lý (3 người xem)

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)
C

caovanhau1507

Thành viên chính thức
Tham gia
17/7/12
Bài viết
79
Được thích
3
Chào các anh chị GPE,

Hiện tại em có 1 mẫu báo cáo lấy dữ liệu từ 3 sheet data khác nhau, cụ thể:
- 1 Sheet cho danh sách nợ theo KH,
- 1 sheet cho khai báo hạn mức theo danh mục sản phẩm,
- 1 sheet thống kê danh mục sản phẩm mà KH đang sở hữu.

Công việc là tính toán phân bổ nợ của khách hàng trên số dư sản phẩm mà KH đang sở hữu, bao gồm:
- Nợ tuyệt đối trên từng sản phẩm = Tỉ trọng của sản phẩm đó x tổng nợ,
- số sản phẩm bị đem đi cấn nợ (đảm bảo nợ) = số lượng sp hiện sở hữu x tỉ lệ cấn nợ, max = số dư hiện có,
- Hạn mức còn lại của từng sản phẩm.

Em có dùng macro để thực hiện thao tác nhưng do dữ liệu lớn (>100k dòng) nên cuối cùng xử lý rất chậm và bất tiện, nay muốn nhờ các anh chị GPE tư vấn cách dùng mảng trong VBA để xử lý tình huống này. Hoặc có ý tưởng nào khác có thể tối ưu tính toán thì tư vấn giúp em.

Em cảm ơn :D
 

File đính kèm

Không biết do em mô tả chưa đầy đủ hay có vấn đề gì khác mà cũng 2 tuần rồi không ai trả lời em :(
 
HieuCD đã viết:
bạn nhấn ngôi sao để chạy code
Nhấp chuột vào đây để mở rộng...

C
Cảm ơn a.Hiếu đã giúp,
KHi em làm với dữ liệu thực tế thì phát sinh trường hợp KH A có tên trong danh sách "DSKH" nhưng không có trong "DMSP" ---> KH này có nợ nhưng ko có sp
Lúc này, code chạy sẽ báo lỗi "devision by zero". Trường hợp này thì trả về Tgt = 0 luôn như thế nào vậy a.
 
Lần chỉnh sửa cuối:
caovanhau1507 đã viết:
C
Cảm ơn a.Hiếu đã giúp,
KHi em làm với dữ liệu thực tế thì phát sinh trường hợp KH A có tên trong danh sách "DSKH" nhưng không có trong "DMSP" ---> KH này có nợ nhưng ko có sp
Lúc này, code chạy sẽ báo lỗi "devision by zero". Trường hợp này thì trả về Tgt = 0 luôn như thế nào vậy a.
Nhấp chuột vào đây để mở rộng...
code chỉ liệt kê các sản phẩm có trong sheet DMSP
Mã: 
Sub TongHop()
Dim KH(), SP(), HM(), Arr(), Darr(), Dic As Object, DicSP As Object, DicHM As Object
Dim i As Long, k As Long, km As Long, Tgt
i = Sheets("DSKH").Range("B65500").End(xlUp).Row
Sheet5.Range("C4") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 1)
Sheet5.Range("C5") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 2)
Sheet5.Range("C6") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 3)
KH = Sheets("DSKH").Range("B2:C" & i).Value
SP = Sheets("DMSP").Range("B2:I" & Sheets("DMSP").Range("B65500").End(xlUp).Row).Value
HM = Sheets("HM").Range("B2", Sheets("HM").Range("C65500").End(xlUp)).Value
ReDim Arr(1 To UBound(HM), 1 To 4)
ReDim Darr(1 To UBound(KH), 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
Set DicSP = CreateObject("Scripting.Dictionary")
Set DicHM = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(HM)
  DicHM(HM(i, 1)) = HM(i, 2)
Next i
For i = 1 To UBound(SP)
  If Not DicSP.exists(SP(i, 1)) Then
    km = km + 1
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
  If Not Dic.exists(SP(i, 2)) Then
    k = k + 1
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If
  Darr(Dic.Item(SP(i, 2)), 2) = Darr(Dic.Item(SP(i, 2)), 2) + SP(i, 5)
Next i
For i = 1 To UBound(KH)
  If Dic.exists(KH(i, 1)) Then
    Darr(Dic.Item(KH(i, 1)), 3) = KH(i, 2)
  End If
  If KH(i, 2) = Sheet5.Range("C4") Then Sheet5.Range("D4") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C5") Then Sheet5.Range("D5") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C6") Then Sheet5.Range("D6") = KH(i, 1)
Next i
For i = 1 To UBound(Darr)
  Darr(i, 4) = Darr(i, 3) / Darr(i, 2)
  Tgt = Tgt + Darr(i, 3)
Next i
For i = 1 To UBound(SP)
  SP(i, 6) = SP(i, 5) / Darr(Dic.Item(SP(i, 2)), 2)
  SP(i, 7) = SP(i, 6) * Darr(Dic.Item(SP(i, 2)), 3)
  SP(i, 8) = SP(i, 3) * IIf(Darr(Dic.Item(SP(i, 2)), 4) > 1, 1, Darr(Dic.Item(SP(i, 2)), 4))
Next i
For i = 1 To UBound(SP)
    Arr(DicSP.Item(SP(i, 1)), 2) = Arr(DicSP.Item(SP(i, 1)), 2) + SP(i, 7)
    Arr(DicSP.Item(SP(i, 1)), 3) = Arr(DicSP.Item(SP(i, 1)), 3) + SP(i, 8)
Next i
For i = 1 To UBound(Arr)
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
Sheet5.Range("C2") = Tgt
Sheet5.Range("E2:H2000").ClearContents
Sheet5.Range("E2").Resize(UBound(Arr), 4) = Arr
Set Dic = Nothing:    Set DicHM = Nothing:    Set DicSP = Nothing
Erase Arr:  Erase Darr:   Erase KH:  Erase SP:  Erase HM
End Sub
 
HieuCD đã viết:
code chỉ liệt kê các sản phẩm có trong sheet DMSP
Mã: 
Sub TongHop()
Dim KH(), SP(), HM(), Arr(), Darr(), Dic As Object, DicSP As Object, DicHM As Object
Dim i As Long, k As Long, km As Long, Tgt
i = Sheets("DSKH").Range("B65500").End(xlUp).Row
Sheet5.Range("C4") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 1)
Sheet5.Range("C5") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 2)
Sheet5.Range("C6") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 3)
KH = Sheets("DSKH").Range("B2:C" & i).Value
SP = Sheets("DMSP").Range("B2:I" & Sheets("DMSP").Range("B65500").End(xlUp).Row).Value
HM = Sheets("HM").Range("B2", Sheets("HM").Range("C65500").End(xlUp)).Value
ReDim Arr(1 To UBound(HM), 1 To 4)
ReDim Darr(1 To UBound(KH), 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
Set DicSP = CreateObject("Scripting.Dictionary")
Set DicHM = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(HM)
  DicHM(HM(i, 1)) = HM(i, 2)
Next i
For i = 1 To UBound(SP)
  If Not DicSP.exists(SP(i, 1)) Then
    km = km + 1
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
  If Not Dic.exists(SP(i, 2)) Then
    k = k + 1
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If
  Darr(Dic.Item(SP(i, 2)), 2) = Darr(Dic.Item(SP(i, 2)), 2) + SP(i, 5)
Next i
For i = 1 To UBound(KH)
  If Dic.exists(KH(i, 1)) Then
    Darr(Dic.Item(KH(i, 1)), 3) = KH(i, 2)
  End If
  If KH(i, 2) = Sheet5.Range("C4") Then Sheet5.Range("D4") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C5") Then Sheet5.Range("D5") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C6") Then Sheet5.Range("D6") = KH(i, 1)
Next i
For i = 1 To UBound(Darr)
  Darr(i, 4) = Darr(i, 3) / Darr(i, 2)
  Tgt = Tgt + Darr(i, 3)
Next i
For i = 1 To UBound(SP)
  SP(i, 6) = SP(i, 5) / Darr(Dic.Item(SP(i, 2)), 2)
  SP(i, 7) = SP(i, 6) * Darr(Dic.Item(SP(i, 2)), 3)
  SP(i, 8) = SP(i, 3) * IIf(Darr(Dic.Item(SP(i, 2)), 4) > 1, 1, Darr(Dic.Item(SP(i, 2)), 4))
Next i
For i = 1 To UBound(SP)
    Arr(DicSP.Item(SP(i, 1)), 2) = Arr(DicSP.Item(SP(i, 1)), 2) + SP(i, 7)
    Arr(DicSP.Item(SP(i, 1)), 3) = Arr(DicSP.Item(SP(i, 1)), 3) + SP(i, 8)
Next i
For i = 1 To UBound(Arr)
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
Sheet5.Range("C2") = Tgt
Sheet5.Range("E2:H2000").ClearContents
Sheet5.Range("E2").Resize(UBound(Arr), 4) = Arr
Set Dic = Nothing:    Set DicHM = Nothing:    Set DicSP = Nothing
Erase Arr:  Erase Darr:   Erase KH:  Erase SP:  Erase HM
End Sub
Nhấp chuột vào đây để mở rộng...



Em gửi lại anh file, a xem giúp em lỗi trả về nha,
cảm ơn a!
 

File đính kèm

caovanhau1507 đã viết:
Em gửi lại anh file, a xem giúp em lỗi trả về nha,
cảm ơn a!
Nhấp chuột vào đây để mở rộng...
bạn kiểm tra lại code
Mã: 
Sub TongHop()
Dim KH(), SP(), HM(), Arr(), Darr(), Dic As Object, DicSP As Object, DicHM As Object
Dim i As Long, k As Long, km As Long, Tgt
i = Sheets("DSKH").Range("B65500").End(xlUp).Row
Sheet5.Range("C4") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 1)
Sheet5.Range("C5") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 2)
Sheet5.Range("C6") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 3)
KH = Sheets("DSKH").Range("B2:C" & i).Value
SP = Sheets("DMSP").Range("B2:I" & Sheets("DMSP").Range("B65500").End(xlUp).Row).Value
HM = Sheets("HM").Range("B2", Sheets("HM").Range("C65500").End(xlUp)).Value
ReDim Arr(1 To UBound(SP), 1 To 4)
ReDim Darr(1 To UBound(SP), 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
Set DicSP = CreateObject("Scripting.Dictionary")
Set DicHM = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(HM)
  DicHM(HM(i, 1)) = HM(i, 2)
Next i
For i = 1 To UBound(SP)
  If Not DicSP.exists(SP(i, 1)) Then
    km = km + 1
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
  If Not Dic.exists(SP(i, 2)) Then
    k = k + 1
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If
  Darr(Dic.Item(SP(i, 2)), 2) = Darr(Dic.Item(SP(i, 2)), 2) + SP(i, 5)
Next i
For i = 1 To UBound(KH)
  If Dic.exists(KH(i, 1)) Then
    a = Dic.Item(KH(i, 1))
    Darr(Dic.Item(KH(i, 1)), 3) = KH(i, 2)
  End If
  If KH(i, 2) = Sheet5.Range("C4") Then Sheet5.Range("D4") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C5") Then Sheet5.Range("D5") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C6") Then Sheet5.Range("D6") = KH(i, 1)
Next i
For i = 1 To k
  Darr(i, 4) = Darr(i, 3) / Darr(i, 2)
  Tgt = Tgt + Darr(i, 3)
Next i
For i = 1 To UBound(SP)
  SP(i, 6) = SP(i, 5) / Darr(Dic.Item(SP(i, 2)), 2)
  SP(i, 7) = SP(i, 6) * Darr(Dic.Item(SP(i, 2)), 3)
  SP(i, 8) = SP(i, 3) * IIf(Darr(Dic.Item(SP(i, 2)), 4) > 1, 1, Darr(Dic.Item(SP(i, 2)), 4))
Next i
For i = 1 To UBound(SP)
    Arr(DicSP.Item(SP(i, 1)), 2) = Arr(DicSP.Item(SP(i, 1)), 2) + SP(i, 7)
    Arr(DicSP.Item(SP(i, 1)), 3) = Arr(DicSP.Item(SP(i, 1)), 3) + SP(i, 8)
Next i
For i = 1 To km
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
Sheet5.Range("C2") = Tgt
Sheet5.Range("E2:H2000").ClearContents
Sheet5.Range("E2").Resize(UBound(Arr), 4) = Arr
Set Dic = Nothing:    Set DicHM = Nothing:    Set DicSP = Nothing
Erase Arr:  Erase Darr:   Erase KH:  Erase SP:  Erase HM
End Sub
 
Chuẩn luôn rồi anh ơi, cảm ơn a quá nhiều :D
 
HieuCD đã viết:
bạn kiểm tra lại code
Mã: 
Sub TongHop()
Dim KH(), SP(), HM(), Arr(), Darr(), Dic As Object, DicSP As Object, DicHM As Object
Dim i As Long, k As Long, km As Long, Tgt
i = Sheets("DSKH").Range("B65500").End(xlUp).Row
Sheet5.Range("C4") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 1)
Sheet5.Range("C5") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 2)
Sheet5.Range("C6") = Application.Large(Sheets("DSKH").Range("C2:C" & i), 3)
KH = Sheets("DSKH").Range("B2:C" & i).Value
SP = Sheets("DMSP").Range("B2:I" & Sheets("DMSP").Range("B65500").End(xlUp).Row).Value
HM = Sheets("HM").Range("B2", Sheets("HM").Range("C65500").End(xlUp)).Value
ReDim Arr(1 To UBound(SP), 1 To 4)
ReDim Darr(1 To UBound(SP), 1 To 4)
Set Dic = CreateObject("Scripting.Dictionary")
Set DicSP = CreateObject("Scripting.Dictionary")
Set DicHM = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(HM)
  DicHM(HM(i, 1)) = HM(i, 2)
Next i
For i = 1 To UBound(SP)
  If Not DicSP.exists(SP(i, 1)) Then
    km = km + 1
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
  If Not Dic.exists(SP(i, 2)) Then
    k = k + 1
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If
  Darr(Dic.Item(SP(i, 2)), 2) = Darr(Dic.Item(SP(i, 2)), 2) + SP(i, 5)
Next i
For i = 1 To UBound(KH)
  If Dic.exists(KH(i, 1)) Then
    a = Dic.Item(KH(i, 1))
    Darr(Dic.Item(KH(i, 1)), 3) = KH(i, 2)
  End If
  If KH(i, 2) = Sheet5.Range("C4") Then Sheet5.Range("D4") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C5") Then Sheet5.Range("D5") = KH(i, 1)
  If KH(i, 2) = Sheet5.Range("C6") Then Sheet5.Range("D6") = KH(i, 1)
Next i
For i = 1 To k
  Darr(i, 4) = Darr(i, 3) / Darr(i, 2)
  Tgt = Tgt + Darr(i, 3)
Next i
For i = 1 To UBound(SP)
  SP(i, 6) = SP(i, 5) / Darr(Dic.Item(SP(i, 2)), 2)
  SP(i, 7) = SP(i, 6) * Darr(Dic.Item(SP(i, 2)), 3)
  SP(i, 8) = SP(i, 3) * IIf(Darr(Dic.Item(SP(i, 2)), 4) > 1, 1, Darr(Dic.Item(SP(i, 2)), 4))
Next i
For i = 1 To UBound(SP)
    Arr(DicSP.Item(SP(i, 1)), 2) = Arr(DicSP.Item(SP(i, 1)), 2) + SP(i, 7)
    Arr(DicSP.Item(SP(i, 1)), 3) = Arr(DicSP.Item(SP(i, 1)), 3) + SP(i, 8)
Next i
For i = 1 To km
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
Sheet5.Range("C2") = Tgt
Sheet5.Range("E2:H2000").ClearContents
Sheet5.Range("E2").Resize(UBound(Arr), 4) = Arr
Set Dic = Nothing:    Set DicHM = Nothing:    Set DicSP = Nothing
Erase Arr:  Erase Darr:   Erase KH:  Erase SP:  Erase HM
End Sub
Nhấp chuột vào đây để mở rộng...


A.Hiếu có thể giải thích code giúp e 1 chút ko ah, e vẫn chưa hiểu so với code cũ nó khác nhau ntn.
Cảm ơn anh!
 
caovanhau1507 đã viết:
A.Hiếu có thể giải thích code giúp e 1 chút ko ah, e vẫn chưa hiểu so với code cũ nó khác nhau ntn.
Cảm ơn anh!
Nhấp chuột vào đây để mở rộng...
Mã: 
...
KH = Sheets("DSKH").Range("B2:C" & i).Value
SP = Sheets("DMSP").Range("B2:I" & Sheets("DMSP").Range("B65500").End(xlUp).Row).Value
HM = Sheets("HM").Range("B2", Sheets("HM").Range("C65500").End(xlUp)).Value
[COLOR=#ff0000]ReDim Arr(1 To UBound(SP), 1 To 4)
ReDim Darr(1 To UBound(SP), 1 To 4)[/COLOR]
...
For i = 1 To UBound(SP)
[COLOR=#0000cd]  If Not DicSP.exists(SP(i, 1)) Then
    [/COLOR][COLOR=#b22222]km = km + 1[/COLOR][COLOR=#0000cd]
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
[/COLOR]Next i

[COLOR=#0000cd]  If Not Dic.exists(SP(i, 2)) Then
    [/COLOR][COLOR=#b22222]k = k + 1[/COLOR][COLOR=#0000cd]
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If[/COLOR]
  Darr(Dic.Item(SP(i, 2)), 2) = Darr(Dic.Item(SP(i, 2)), 2) + SP(i, 5)
Next i
For i = 1 To UBound(KH)
...
[COLOR=#ff0000]For i = 1 To k[/COLOR]
  Darr(i, 4) = Darr(i, 3) / Darr(i, 2)
  Tgt = Tgt + Darr(i, 3)
Next i
...
For i = 1 To UBound(SP)
    Arr(DicSP.Item(SP(i, 1)), 2) = Arr(DicSP.Item(SP(i, 1)), 2) + SP(i, 7)
    Arr(DicSP.Item(SP(i, 1)), 3) = Arr(DicSP.Item(SP(i, 1)), 3) + SP(i, 8)
Next i
[COLOR=#ff0000]For i = 1 To km[/COLOR]
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
...
do chưa biết số khách hàng và số sản phẩm có trong sheet DMSP nên ban đầu phải tạm khai báo theo khả năng lớn nhất là số dòng của DMSP
ReDim Arr(1 To UBound(SP), 1 To 4)
ReDim Darr(1 To UBound(SP), 1 To 4)
Mã: 
For i = 1 To UBound(SP)
[COLOR=#0000CD]  If Not DicSP.exists(SP(i, 1)) Then
    [/COLOR][COLOR=#B22222]km = km + 1[/COLOR][COLOR=#0000CD]
    DicSP.Add SP(i, 1), km
    Arr(km, 1) = SP(i, 1)
  End If
[/COLOR]Next i
ghi nhận từng sản phẩm vào DicSP, như vậy số sản phẩm là Km nhỏ hơn số dòng Arr
Mã: 
[COLOR=#0000CD]  If Not Dic.exists(SP(i, 2)) Then
    [/COLOR][COLOR=#B22222]k = k + 1[/COLOR][COLOR=#0000CD]
    Dic.Add SP(i, 2), k
    Darr(k, 1) = SP(i, 2)
  End If[/COLOR]

ghi nhận từng khách hàng vào Dic, số khách hàng là K nhỏ hơn số dòng Darr

do đó phải chỉnh lại 2 vòng lập For phía dưới cho đúng với với số dòng của của Darr và Arr
nếu không thì chạy quá số dòng có dữ liệu và Darr(i,2)=0 nên chia cho số 0 bị lổi

Mã: 
[COLOR=#FF0000]
For i = 1 To k[/COLOR]
  Darr(i, 4) = [COLOR=#0000cd]Darr(i, 3) / Darr(i, 2)[/COLOR]
  Tgt = Tgt + Darr(i, 3)
Next i
...
[COLOR=#FF0000]For i = 1 To km[/COLOR]
  If DicHM.exists(Arr(i, 1)) Then
    Arr(i, 4) = DicHM.Item(Arr(i, 1))
  End If
  Arr(i, 4) = Arr(i, 4) - Arr(i, 3)
Next i
a = Dic.Item(KH(i, 1)) là dòng lệnh mình thử nghiệm quên xóa, bạn xóa dòng nầy
 
Lần chỉnh sửa cuối:
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

G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (3 người xem)
Trả lời
0
Đọc
2
gfhngjn
G
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
2
Đọc
27
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (2 người xem)
Trả lời
1
Đọc
51
BuiQuangThuan
B
H
Chuyển file *xml hóa đơn điện tử sang excel (2 người xem)
    • Thích
Trả lời
7
Đọc
260
Hoàng Tuấn 868
H
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra (2 người xem)
Trả lời
0
Đọc
45
queluatb
queluatb
P
Xin tư vấn về cách tạo bảng quản lý vải (1 người xem)
    • Cười
Trả lời
16
Đọc
292
pycckuu410
pycckuu410
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
349
Đọc
31K
tuanktt3
T
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (3 người xem)
Trả lời
7
Đọc
294
ptm0412
ptm0412
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
181
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng (1 người xem)
Trả lời
7
Đọc
207
kenytien
K
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT (1 người xem)
Trả lời
8
Đọc
152
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
2
Trả lời
25
Đọc
934
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml (2 người xem)
Trả lời
1
Đọc
143
ongke0711
ongke0711
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
137
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
288
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
601
thuytrangbp28
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
6
Đọc
207
Trungvt3
Trungvt3
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet (1 người xem)
Trả lời
4
Đọc
206
hieu998
H
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (1 người xem)
    • Thích
Trả lời
1
Đọc
1K
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom