Tổng hợp báo cáo - nhờ xử lý (1 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

K
Lỗi chèn ảnh hàng loạt trong excel 2024 (5 người xem)
Trả lời
1
Đọc
12
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (3 người xem)
    • Thích
Trả lời
2
Đọc
1K
ptm0412
ptm0412
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (2 người xem)
Trả lời
10
Đọc
308
VetMini
V
H
Chuyển file *xml hóa đơn điện tử sang excel (2 người xem)
    • Thích
Trả lời
8
Đọc
274
VetMini
V
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ? (5 người xem)
Trả lời
1
Đọc
16
kenytien
K
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel (8 người xem)
Trả lời
2
Đọc
36
ongke0711
ongke0711
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel
Trả lời
1
Đọc
57
BuiQuangThuan
B
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra
Trả lời
0
Đọc
55
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
294
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
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
182
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
Trả lời
7
Đọc
209
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
Trả lời
8
Đọc
156
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) (1 người xem)
    • 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 đỡ
2
Trả lời
25
Đọc
937
befaint
befaint
A
Lấy trường dữ liệu trong file hóa đơn dạng *.xml
Trả lời
1
Đọc
149
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
139
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
289
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ (1 người xem)
Trả lời
19
Đọc
605
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
208
Trungvt3
Trungvt3
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