Lấy dữ liệu thô từ nhiều file báo cáo tổng hợp về 1 file (4 người xem)

  • Thread starter Thread starter alex-luu
  • 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)
A

alex-luu

Thành viên thường trực
Tham gia
10/3/15
Bài viết
300
Được thích
52
Chào các anh chị.

Em muốn tạo 1 button, khi click vào, nó sẽ hiện ra bảng hỏi đường dẫn đến các file report, sau khi mình chỉ đường dẫn (bằng cách chọn tô đen nhiều file report) và nhấn ok thì nó sẽ vào Sheet 1 của file report thứ 1, lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 rồi dán (paste value) vào sheet lấy Report của file tổng hợp .
Xong rồi thì tiếp tục vào sheet 2 của file report thứ 1, cũng làm tương tự, dán xuống hàng dưới cùng.
Rồi tiếp tục tới sheet 3 của file report thứ 1..

Sau khi hết sheet thì tiếp tục làm đến file report thứ 2, cũng làm y như vậy, dữ liệu cứ dán tiếp tục từ dòng cuối cùng cho đến hết các file report thì dừng.

Chú ý : paste Value nhé,

1622734567934.png
Nhờ các anh chị trên diễn đàn viết giúp em đoạn code để đỡ phải làm thủ công ạ.
Em cảm ơn.
 

File đính kèm

Lần chỉnh sửa cuối:
Tôi thích cách trình bày rành mạch như bạn.
 
alex-luu đã viết:
Chào các anh chị.

Em muốn tạo 1 button, khi click vào, nó sẽ hiện ra bảng hỏi đường dẫn đến các file report.
Sau đó nó sẽ vào Sheet 1 của file report thứ 1, lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 dán vào sheet lấy Report của file tổng hợp .
Xong rồi thì tiếp tục vào sheet 2 của file report thứ 1, cũng làm tương tự, dán xuống hàng dưới cùng.
Rồi tiếp tục tới sheet 3 của file report thứ 1..

Sau khi hết sheet thì tiếp tục làm đến file report thứ 2, cũng làm y như vậy, dữ liệu cứ dán tiếp tục từ dòng cuối cùng cho đến hết các file report thì dừng.

View attachment 260000
Nhờ các anh chị trên diễn đàn viết giúp em đoạn code để đỡ phải làm thủ công ạ.
Em cảm ơn.
Nhấp chuột vào đây để mở rộng...
"Em muốn tạo 1 button, khi click vào, nó sẽ hiện ra bảng hỏi đường dẫn đến các file report." Sau đó bạn làm gì ?
 
HieuCD đã viết:
"Em muốn tạo 1 button, khi click vào, nó sẽ hiện ra bảng hỏi đường dẫn đến các file report." Sau đó bạn làm gì ?
Nhấp chuột vào đây để mở rộng...
Dạ, sau khi mình click vào button, nó hỏi mình đường dẫn đến các file report, mình chỉ đường dẫn xong, nó sẽ lần lượt mở file report thứ 1, vào sheet 1 của file report đó, copy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000, rồi dán vào sheet lấy report của file tổng hợp.
Xong rồi thì lại tiếp tục, vào sheet 2 của file report thứ 1, cũng tiêp tục lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000, dán xuống hàng cuối cùng của sheet Lấy report trong file tổng hợp.... tiếp tục tới hết thì lại qua file report thứ 2....
Hiện nay mình đang phải làm thủ công, mất thời gian nhiều lắm

Lưu ý : paste value nha,
cảm ơn bạn, bạn làm giúp mình nhé
 
alex-luu đã viết:
Dạ, sau khi mình click vào button, nó hỏi mình đường dẫn đến các file report, mình chỉ đường dẫn xong, nó sẽ lần lượt mở file report thứ 1, vào sheet 1 của file report đó, copy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000, rồi dán vào sheet lấy report của file tổng hợp.
Xong rồi thì lại tiếp tục, vào sheet 2 của file report thứ 1, cũng tiêp tục lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000, dán xuống hàng cuối cùng của sheet Lấy report trong file tổng hợp.... tiếp tục tới hết thì lại qua file report thứ 2....
Hiện nay mình đang phải làm thủ công, mất thời gian nhiều lắm

Lưu ý : paste value nha,
cảm ơn bạn, bạn làm giúp mình nhé
Nhấp chuột vào đây để mở rộng...
Bạn tham khảo..
 

File đính kèm

Hoàng Tuấn 868 đã viết:
Bạn tham khảo..
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn rất nhiều, nhưng bạn ơi cho mình hỏi, bạn lấy hết nguyên vùng từ A9:N1000000 là chưa đúng ý mình rồi,
chỉ lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 thôi, những chỗ khác có dữ liệu khác, nếu bê nguyên vùng lớn như bạn thì file mình bị sai và sẽ rất nặng file, mình cố gắng giảm dung lượng file xuống thấp nhất bằng cách chỉ lấy những dữ liệu cần thiết thôi, không lấy nguyên vùng lớn đến vậy đâu
Bạn giúp mình lần nữa nhé. Cảm ơn bạn
 
Lần chỉnh sửa cuối:
alex-luu đã viết:
Cảm ơn bạn rất nhiều, nhưng bạn ơi cho mình hỏi, bạn lấy hết nguyên vùng từ A9:N1000000 là chưa đúng ý mình rồi,
chỉ lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 thôi, những chỗ khác có dữ liệu khác, nếu bê nguyên vùng lớn như bạn thì file mình bị sai
Nhấp chuột vào đây để mở rộng...
Để mình chỉnh lại một chút.
Bài đã được tự động gộp:

alex-luu đã viết:
Cảm ơn bạn rất nhiều, nhưng bạn ơi cho mình hỏi, bạn lấy hết nguyên vùng từ A9:N1000000 là chưa đúng ý mình rồi,
chỉ lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 thôi, những chỗ khác có dữ liệu khác, nếu bê nguyên vùng lớn như bạn thì file mình bị sai và sẽ rất nặng file, mình cố gắng giảm dung lượng file xuống thấp nhất bằng cách chỉ lấy những dữ liệu cần thiết thôi, không lấy nguyên vùng lớn đến vậy đâu
Bạn giúp mình lần nữa nhé. Cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Bạn kiểm tra lại nhé, 1.000.000 là vùng xóa thôi bạn.
Mình chỉnh đúng đến dòng 20.000 cho bạn rồi đấy.
 

File đính kèm

Lần chỉnh sửa cuối:
alex-luu đã viết:
Chào các anh chị.

Em muốn tạo 1 button, khi click vào, nó sẽ hiện ra bảng hỏi đường dẫn đến các file report, sau khi mình chỉ đường dẫn (bằng cách chọn tô đen nhiều file report) và nhấn ok thì nó sẽ vào Sheet 1 của file report thứ 1, lấy dữ liệu từ ô A9:F20000 ; J9:K20000 ; N9:N20000 rồi dán (paste value) vào sheet lấy Report của file tổng hợp .
Xong rồi thì tiếp tục vào sheet 2 của file report thứ 1, cũng làm tương tự, dán xuống hàng dưới cùng.
Rồi tiếp tục tới sheet 3 của file report thứ 1..

Sau khi hết sheet thì tiếp tục làm đến file report thứ 2, cũng làm y như vậy, dữ liệu cứ dán tiếp tục từ dòng cuối cùng cho đến hết các file report thì dừng.

Chú ý : paste Value nhé,

View attachment 260000
Nhờ các anh chị trên diễn đàn viết giúp em đoạn code để đỡ phải làm thủ công ạ.
Em cảm ơn.
Nhấp chuột vào đây để mở rộng...
Chạy sub XYZ
Mã: 
Sub XYZ()
  Dim aFile, StrFolder$, cn As Object, eRow&, n&
 
  Application.ScreenUpdating = False
  StrFolder = Get_Folder("")
  If StrFolder = Empty Then MsgBox "Phai chon thu muc chua file nguon!": Exit Sub
  aFile = Get_FileList(StrFolder)
  If TypeName(aFile) <> "String()" Then MsgBox "Khong tim thay file nguon!": Exit Sub
  On Error Resume Next
  With Sheet1 'Xoa du lieu
    eRow = .Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 8 Then .Range("A9:N" & eRow).ClearContents
  End With
  Set cn = CreateObject("ADODB.Connection")
  For n = 1 To UBound(aFile)
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & aFile(n) & ";Extended Properties=""Excel 12.0;HDR=No"";"
    Call CopyDuLieu(cn)
    cn.Close
  Next n
  Set cn = Nothing: On Error GoTo 0
  Application.ScreenUpdating = True
End Sub

Private Sub CopyDuLieu(cn)
  Dim aSheet, aAddress, strSQL$, eRow&
 
  aSheet = Array("Sheet1$", "Sheet2$", "Sheet3$")
  aAddress = Array("A9:F20000", "J9:K20000", "N9:N20000")
  With Sheet1
    For i = 0 To 2
      eRow = .Range("A" & Rows.Count).End(xlUp).Row
      For r = 0 To 2
        strSQL = "select * from [" & aSheet(i) & aAddress(r) & "] where f1 is not null"
        .Range(Mid(aAddress(r), 1, 1) & eRow + 1).CopyFromRecordset cn.Execute(strSQL)
      Next r
    Next i
  End With
End Sub

Function Get_Folder(strPath As String) As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Chon Folder chua các file cân tông hop"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show = -1 Then Get_Folder = .SelectedItems(1)
  End With
End Function

Function Get_FileList(ByVal StrFolder As String) As Variant
  Dim fso As Object, ObjFile As Object, S, Arr$(), Res$(), k&, stt, j&, n&
  Set fso = CreateObject("Scripting.FileSystemObject")
  ReDim Arr(1 To 1)
  With fso.GetFolder(StrFolder)
    For Each ObjFile In .Files
      If fso.GetExtensionName(ObjFile) Like "xlsx" Then
        If Mid(ObjFile.Name, 1, 1) <> "~" Then
          S = Split(" " & fso.GetBaseName(ObjFile.Name), " ")
          stt = S(UBound(S))
          If IsNumeric(stt) Then
            k = k + 1
            stt = CLng(stt)
            If stt > UBound(Arr) Then ReDim Preserve Arr(1 To stt)
            Arr(stt) = ObjFile.Path
          End If
        End If
      End If
    Next
  End With
  If k Then
    ReDim Res(1 To k)
    For j = 1 To UBound(Arr)
      If Arr(j) <> Empty Then
        n = n + 1
        Res(n) = Arr(j)
      End If
    Next j
    Get_FileList = Res
  End If
  Set fso = Nothing: Set ObjFile = Nothing
End Function
 
Hoàng Tuấn 868 đã viết:
Để mình chỉnh lại một chút.
Bài đã được tự động gộp:


Bạn kiểm tra lại nhé, 1.000.000 là vùng xóa thôi bạn.
Mình chỉnh đúng đến dòng 20.000 cho bạn rồi đấy.
Nhấp chuột vào đây để mở rộng...
Tuyệt vời. Cảm ơn bạn rất nhiều
Bài đã được tự động gộp:

HieuCD đã viết:
Chạy sub XYZ
Mã: 
Sub XYZ()
  Dim aFile, StrFolder$, cn As Object, eRow&, n&
 
  Application.ScreenUpdating = False
  StrFolder = Get_Folder("")
  If StrFolder = Empty Then MsgBox "Phai chon thu muc chua file nguon!": Exit Sub
  aFile = Get_FileList(StrFolder)
  If TypeName(aFile) <> "String()" Then MsgBox "Khong tim thay file nguon!": Exit Sub
  On Error Resume Next
  With Sheet1 'Xoa du lieu
    eRow = .Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 8 Then .Range("A9:N" & eRow).ClearContents
  End With
  Set cn = CreateObject("ADODB.Connection")
  For n = 1 To UBound(aFile)
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & aFile(n) & ";Extended Properties=""Excel 12.0;HDR=No"";"
    Call CopyDuLieu(cn)
    cn.Close
  Next n
  Set cn = Nothing: On Error GoTo 0
  Application.ScreenUpdating = True
End Sub

Private Sub CopyDuLieu(cn)
  Dim aSheet, aAddress, strSQL$, eRow&
 
  aSheet = Array("Sheet1$", "Sheet2$", "Sheet3$")
  aAddress = Array("A9:F20000", "J9:K20000", "N9:N20000")
  With Sheet1
    For i = 0 To 2
      eRow = .Range("A" & Rows.Count).End(xlUp).Row
      For r = 0 To 2
        strSQL = "select * from [" & aSheet(i) & aAddress(r) & "] where f1 is not null"
        .Range(Mid(aAddress(r), 1, 1) & eRow + 1).CopyFromRecordset cn.Execute(strSQL)
      Next r
    Next i
  End With
End Sub

Function Get_Folder(strPath As String) As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Chon Folder chua các file cân tông hop"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show = -1 Then Get_Folder = .SelectedItems(1)
  End With
End Function

Function Get_FileList(ByVal StrFolder As String) As Variant
  Dim fso As Object, ObjFile As Object, S, Arr$(), Res$(), k&, stt, j&, n&
  Set fso = CreateObject("Scripting.FileSystemObject")
  ReDim Arr(1 To 1)
  With fso.GetFolder(StrFolder)
    For Each ObjFile In .Files
      If fso.GetExtensionName(ObjFile) Like "xlsx" Then
        If Mid(ObjFile.Name, 1, 1) <> "~" Then
          S = Split(" " & fso.GetBaseName(ObjFile.Name), " ")
          stt = S(UBound(S))
          If IsNumeric(stt) Then
            k = k + 1
            stt = CLng(stt)
            If stt > UBound(Arr) Then ReDim Preserve Arr(1 To stt)
            Arr(stt) = ObjFile.Path
          End If
        End If
      End If
    Next
  End With
  If k Then
    ReDim Res(1 To k)
    For j = 1 To UBound(Arr)
      If Arr(j) <> Empty Then
        n = n + 1
        Res(n) = Arr(j)
      End If
    Next j
    Get_FileList = Res
  End If
  Set fso = Nothing: Set ObjFile = Nothing
End Function
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn rất nhiều. cách của bạn rât hay. đúng như ý mình luôn
 
Lần chỉnh sửa cuối:
HieuCD đã viết:
Chạy sub XYZ
Mã: 
Sub XYZ()
  Dim aFile, StrFolder$, cn As Object, eRow&, n&
 
  Application.ScreenUpdating = False
  StrFolder = Get_Folder("")
  If StrFolder = Empty Then MsgBox "Phai chon thu muc chua file nguon!": Exit Sub
  aFile = Get_FileList(StrFolder)
  If TypeName(aFile) <> "String()" Then MsgBox "Khong tim thay file nguon!": Exit Sub
  On Error Resume Next
  With Sheet1 'Xoa du lieu
    eRow = .Range("A" & Rows.Count).End(xlUp).Row
    If eRow > 8 Then .Range("A9:N" & eRow).ClearContents
  End With
  Set cn = CreateObject("ADODB.Connection")
  For n = 1 To UBound(aFile)
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & aFile(n) & ";Extended Properties=""Excel 12.0;HDR=No"";"
    Call CopyDuLieu(cn)
    cn.Close
  Next n
  Set cn = Nothing: On Error GoTo 0
  Application.ScreenUpdating = True
End Sub

Private Sub CopyDuLieu(cn)
  Dim aSheet, aAddress, strSQL$, eRow&
 
  aSheet = Array("Sheet1$", "Sheet2$", "Sheet3$")
  aAddress = Array("A9:F20000", "J9:K20000", "N9:N20000")
  With Sheet1
    For i = 0 To 2
      eRow = .Range("A" & Rows.Count).End(xlUp).Row
      For r = 0 To 2
        strSQL = "select * from [" & aSheet(i) & aAddress(r) & "] where f1 is not null"
        .Range(Mid(aAddress(r), 1, 1) & eRow + 1).CopyFromRecordset cn.Execute(strSQL)
      Next r
    Next i
  End With
End Sub

Function Get_Folder(strPath As String) As String
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Chon Folder chua các file cân tông hop"
    .AllowMultiSelect = False
    .InitialFileName = strPath
    If .Show = -1 Then Get_Folder = .SelectedItems(1)
  End With
End Function

Function Get_FileList(ByVal StrFolder As String) As Variant
  Dim fso As Object, ObjFile As Object, S, Arr$(), Res$(), k&, stt, j&, n&
  Set fso = CreateObject("Scripting.FileSystemObject")
  ReDim Arr(1 To 1)
  With fso.GetFolder(StrFolder)
    For Each ObjFile In .Files
      If fso.GetExtensionName(ObjFile) Like "xlsx" Then
        If Mid(ObjFile.Name, 1, 1) <> "~" Then
          S = Split(" " & fso.GetBaseName(ObjFile.Name), " ")
          stt = S(UBound(S))
          If IsNumeric(stt) Then
            k = k + 1
            stt = CLng(stt)
            If stt > UBound(Arr) Then ReDim Preserve Arr(1 To stt)
            Arr(stt) = ObjFile.Path
          End If
        End If
      End If
    Next
  End With
  If k Then
    ReDim Res(1 To k)
    For j = 1 To UBound(Arr)
      If Arr(j) <> Empty Then
        n = n + 1
        Res(n) = Arr(j)
      End If
    Next j
    Get_FileList = Res
  End If
  Set fso = Nothing: Set ObjFile = Nothing
End Function
Nhấp chuột vào đây để mở rộng...
Bạn ơi, cho mình hỏi để hiểu thêm 1 chút, khi mình chọn thư mục ( mà không cần chọn từng file) thì nếu trong thư mục đó có nhiều file khác nữa ngoài các file report thì sao ? làm sao code biết lấy file nào ?
Mình có thử và thấy : các file report phải đặt cùng tên , chỉ khác số kiểu rep 1.xlsx ; rep 2.xlsx ; rep 3.xlsx ... thì nó hiểu, nhưng nếu đặt khác nhau thì nó không hiểu ; VD : thư mục report của mình nó có các file report ND1.xlsx ; bao cao HP.xlsx ;... thì nó không hiểu
 
alex-luu đã viết:
Bạn ơi, cho mình hỏi để hiểu thêm 1 chút, khi mình chọn thư mục ( mà không cần chọn từng file) thì nếu trong thư mục đó có nhiều file khác nữa ngoài các file report thì sao ? làm sao code biết lấy file nào ?
Mình có thử và thấy : các file report phải đặt cùng tên , chỉ khác số kiểu rep 1.xlsx ; rep 2.xlsx ; rep 3.xlsx ... thì nó hiểu, nhưng nếu đặt khác nhau thì nó không hiểu ; VD : thư mục report của mình nó có các file report ND1.xlsx ; bao cao HP.xlsx ;... thì nó không hiểu
Nhấp chuột vào đây để mở rộng...
" lần lượt mở file report thứ 1, ... qua file report thứ 2 ..."
Làm sao biết được là cần mở file nào? hay là lấy hết?
Mở từng file theo thứ tự hay file nào mở trước cũng được?
 
HieuCD đã viết:
" lần lượt mở file report thứ 1, ... qua file report thứ 2 ..."
Làm sao biết được là cần mở file nào? hay là lấy hết?
Mở từng file theo thứ tự hay file nào mở trước cũng được?
Nhấp chuột vào đây để mở rộng...
À, hay là mình thống nhất vậy được, mình sẽ tạo 1 thư mục report (chỉ để chứa đúng mấy file report cần lấy dữ liệu thôi), tên thì đặt sao cũng được, miễn là có đuôi. xls hoặc xlsx,
Khi mình chỉ đường dẫn đến thư mục report, thì mặc định nó sẽ lấy hết tất cả các 1 file có trong thư mục này, file nào trước cũng được, rồi import vào
 
alex-luu đã viết:
À, hay là mình thống nhất vậy được, mình sẽ tạo 1 thư mục report (chỉ để chứa đúng mấy file report cần lấy dữ liệu thôi), tên thì đặt sao cũng được, miễn là có đuôi. xls hoặc xlsx,
Khi mình chỉ đường dẫn đến thư mục report, thì mặc định nó sẽ lấy hết tất cả các 1 file có trong thư mục này, file nào trước cũng được, rồi import vào
Nhấp chuột vào đây để mở rộng...
Lấy toàn bộ file .xlsx và .xls trong thư mục chỉ định
Chỉnh ]Function Get_FileList
Mã: 
Function Get_FileList(ByVal StrFolder As String) As Variant
  Dim fso As Object, ObjFile As Object, S, Arr$(), Res$(), extFile$, k&, stt, j&, n&
  Set fso = CreateObject("Scripting.FileSystemObject")
  ReDim Arr(1 To 1)
  With fso.GetFolder(StrFolder)
    For Each ObjFile In .Files
      extFile = fso.GetExtensionName(ObjFile)
      If extFile Like "xlsx" Or extFile Like "xls" Then
        If Mid(ObjFile.Name, 1, 1) <> "~" Then
          k = k + 1
          ReDim Preserve Res(1 To k)
          Res(k) = ObjFile.Path
        End If
      End If
    Next
  End With
  If k Then Get_FileList = Res
  Set fso = Nothing: Set ObjFile = Nothing
End Function
 
HieuCD đã viết:
Lấy toàn bộ file .xlsx và .xls trong thư mục chỉ định
Chỉnh ]Function Get_FileList
Mã: 
Function Get_FileList(ByVal StrFolder As String) As Variant
  Dim fso As Object, ObjFile As Object, S, Arr$(), Res$(), extFile$, k&, stt, j&, n&
  Set fso = CreateObject("Scripting.FileSystemObject")
  ReDim Arr(1 To 1)
  With fso.GetFolder(StrFolder)
    For Each ObjFile In .Files
      extFile = fso.GetExtensionName(ObjFile)
      If extFile Like "xlsx" Or extFile Like "xls" Then
        If Mid(ObjFile.Name, 1, 1) <> "~" Then
          k = k + 1
          ReDim Preserve Res(1 To k)
          Res(k) = ObjFile.Path
        End If
      End If
    Next
  End With
  If k Then Get_FileList = Res
  Set fso = Nothing: Set ObjFile = Nothing
End Function
Nhấp chuột vào đây để mở rộng...
perfect. Hoàn hảo rồi. Cảm ơn bạn nhiều lắm
 
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

A
Em xin nhờ các cao nhân chỉ giáo em cách tính giờ làm việc của nhân viên với ạ Plz (1 người xem)
Trả lời
0
Đọc
1
Anhhe
A
S
Chức năng refresh trong Pivot khi thêm bớt dòng (2 người xem)
Trả lời
9
Đọc
121
ptm0412
ptm0412
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ.
Trả lời
2
Đọc
35
Duy Tùng 9x
Duy Tùng 9x
M
Mọi người giúp e với lỗi này là gì ạ
Trả lời
1
Đọc
42
SA_DQ
SA_DQ
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
350
Đọc
32K
tranduyquang2511
T
E
Không cho người khác chỉnh sửa cố định dòng và cột trong google sheet
Trả lời
0
Đọc
42
Em khong biet
E
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra
Trả lời
5
Đọc
316
queluatb
queluatb
Vu_Thi_Xuan
Lỗi tham chiếu khi dùng Vlookup trong VBA
Trả lời
9
Đọc
351
Vu_Thi_Xuan
Vu_Thi_Xuan
6
  • Question Question
vba tự động lấy dữ liệu từ etabs
Trả lời
2
Đọc
267
VetMini
V
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
2
Trả lời
20
Đọc
710
198zxc
1
D
Nhờ anh chị xử lý giúp lỗi thực hiện lọc dữ liệu
Trả lời
2
Đọc
470
Hoàng Tuấn 868
H
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
50
Đọc
5K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
N
xin các cao thủ chỉ cách gỡ lỗi không khởi động được excel (1 người xem)
Trả lời
4
Đọc
264
bs2
B
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
10
Đọc
471
htrunga2
H
D
Nhờ anh chị trên diễn đàn dùng hàm dò tìm dữ liệu trong bảng gửi kèm giúp ạ! (1 người xem)
Trả lời
4
Đọc
146
dangvanphu.it
D
P
Phát âm thanh tiếng việt cho dữ liệu trong file excel
Trả lời
3
Đọc
185
PNQC
P
E
Giúp em tạo gợi ý trong combobox sau khi đã lọc danh sách duy nhất trong combobox đó (1 người xem)
Trả lời
11
Đọc
3K
thepkun8x
T
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER
    • Thích
Trả lời
1
Đọc
4K
GPE-Trợ Lý
GPE-Trợ Lý
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ
2
Trả lời
21
Đọc
413
Phuocam
Phuocam
G
Làm sao để sắp xếp nhiều cột và hàng theo abc vậy ạ ?
Trả lời
9
Đọc
269
Duy Tùng 9x
Duy Tùng 9x
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