Tổng Hợp Dữ Liệu (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)
vuongtoituonglai

vuongtoituonglai

Thành viên thường trực
Tham gia
7/5/14
Bài viết
350
Được thích
47
Chào các anh, chị và các bạn!
Mình có một vấn đề cần được sự giúp đỡ của quý anh chị và các bạn. Tất cả những gì mình mong muốn được sự giúp đỡ đều có trong file.
Rất mong nhận được sự đỡ.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Một ngày sắp trôi qua rồi, sao không có cao thủ nào ra tay giúp đỡ mình vậy.
 
Upvote 0
Bạn có thể thử làm theo video hướng dẫn consolidate data trong excel của mình, chỉ khác là data của bạn ở trong cùng 1 workbook. Nếu không được thì comment lại, mình có thể giúp bạn. Đầu tiên bạn thử tự giúp mình xem có được không :)

[video=youtube;ShTVo4sHAlc]https://www.youtube.com/watch?v=ShTVo4sHAlc[/video]
 
Upvote 0
Cảm ơn bạn, sau khi xem đoạn video mình không làm được gì cả, bạn có thể chỉ thêm cho mình.
 
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn bạn, sau khi xem đoạn video mình không làm được gì cả, bạn có thể chỉ thêm cho mình.
Nhấp chuột vào đây để mở rộng...

Cho mình hỏi trước:
1. Dữ liệu của bạn từ hệ thống nào ra hay là do điền bằng tay?
2. Dữ liệu có nhiều không?
3. Cấu trúc của bảng tính cần lấy dữ liệu có thường xuyên thay đổi không?
 
Upvote 0
be09 đã viết:
Việc này chẳng có gì khó, chỉ có cái bạn lấy dữ liệu từ sheet Ton qua sheet 1, 2, 3 tiêu đề cột không thống nhất nên mình tự làm khó cho mình trong việc trích lọc dữ liệu.
Nhấp chuột vào đây để mở rộng...
Không khó thì bạn giúp mình đi, nhưng chỉ có điều lấy dữ liệu từ sheet 1,2,3 qua sheet Ton bạn nhé. Do dữ liệu ban đầu định dạng các cột của sheet 1,2,3 như vậy rồi nên giờ không sửa lại được vì còn những phần mềm có liên quan đến dữ lieu này. Bạn cố gang giúp mình nhé. Cảm ơn
 
Upvote 0
kuldokk đã viết:
Cho mình hỏi trước:
1. Dữ liệu của bạn từ hệ thống nào ra hay là do điền bằng tay?
2. Dữ liệu có nhiều không?
3. Cấu trúc của bảng tính cần lấy dữ liệu có thường xuyên thay đổi không?
Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn đã quan tâm giúp đỡ
1. Dữ liệu mình nhập vào bằng tay
2. Dữ liệu của sheet 1,2,3 cộng lại nhiều nhất khoảng 1000 dòng
3. Dữ liệu của sheet 1,2,3 hầu như đều có thay đổi mỗi tháng, mỗi tháng mình phải tổng hợp dữ liệu từ sheet 1,2,3 qua sheet "Ton" một lần rồi sau đó in ra để đi kiểm hàng tồn kho thực tế.
Bạn cố gắng nghiêng cứu giúp mình nhé. Cảm ơn bạn.
 
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn bạn đã quan tâm giúp đỡ
1. Dữ liệu mình nhập vào bằng tay
2. Dữ liệu của sheet 1,2,3 cộng lại nhiều nhất khoảng 1000 dòng
3. Dữ liệu của sheet 1,2,3 hầu như đều có thay đổi mỗi tháng, mỗi tháng mình phải tổng hợp dữ liệu từ sheet 1,2,3 qua sheet "Ton" một lần rồi sau đó in ra để đi kiểm hàng tồn kho thực tế.
Bạn cố gắng nghiêng cứu giúp mình nhé. Cảm ơn bạn.
Nhấp chuột vào đây để mở rộng...

Bác thử nhé.

------------------------------------------------------------
 

File đính kèm

Upvote 0
Cảm ơn kuldokk rất nhiều, mình có thể thêm đoạn code này vào module1 được không bạn? Nếu được thì thêm vào chổ nào? Bạn chỉ mình nhé.
With Sheets("Ton")
.Font.Name = "Courier New"
.Font.Size = 10
End With
With .[F5].Resize(k)
.NumberFormat = "#,##0"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 3
End With
With .[B5:D5].Resize(k)
.Font.Size = 10
.Font.ColorIndex = 1
End With
 
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn kuldokk rất nhiều, mình có thể thêm đoạn code này vào module1 được không bạn? Nếu được thì thêm vào chổ nào? Bạn chỉ mình nhé.
With Sheets("Ton")
.Font.Name = "Courier New"
.Font.Size = 10
End With
With .[F5].Resize(k)
.NumberFormat = "#,##0"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 3
End With
With .[B5:D5].Resize(k)
.Font.Size = 10
.Font.ColorIndex = 1
End With
Nhấp chuột vào đây để mở rộng...

Anh có thể thêm vào Sub chuyen_du_lieu, ngay trước đoạn
Mã: 
Public Sub chuyen_du_lieu
...
[chèn code vào đây]
MsgBox "Done in " & (Timer - start) & " s."
...
end sub

chú ý thay k bằng số phù hợp.
 
Upvote 0
kuldokk đã viết:
Anh có thể thêm vào Sub chuyen_du_lieu, ngay trước đoạn
Mã: 
Public Sub chuyen_du_lieu
...
[chèn code vào đây]
MsgBox "Done in " & (Timer - start) & " s."
...
end sub

chú ý thay k bằng số phù hợp.
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhé, mình làm theo bạn hướng dẫn nhưng code không chạy được bạn kiểm tra dùm mình làm sai chổ nào. Phần code mình thêm vào có màu đỏ nhé. Chân thành cảm ơn.
Public Sub chuyen_du_lieu()
Application.ScreenUpdating = False
Dim dong_cuoi_sheet_ton As Long
Dim start As Double
Dim borderTypeI As Integer, i As Integer
Dim stt() As Long
start = Timer
'xoa du lieu
dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")

If dong_cuoi_sheet_ton > 5 Then
xoa_du_lieu
End If
'copy du lieu
dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet1 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet2 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet3 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
ReDim stt(1 To (dong_cuoi_sheet_ton - 4), 1 To 1)

For i = 1 To UBound(stt, 1)
stt(i, 1) = i
Next i
'tinh toan
With ActiveWorkbook.Sheets("Ton")
.Range("G5:G" & dong_cuoi_sheet_ton).Formula = "=H5*E5"
.Range("I5:I" & dong_cuoi_sheet_ton).Formula = "=IF(F5>G5,kiem_lai,"""")"
.Range("J5:J" & dong_cuoi_sheet_ton).Formula = "=F5-G5"
For borderTypeI = 7 To 12
With .Range("A5:K" & dong_cuoi_sheet_ton).Borders(borderTypeI)
.LineStyle = xlContinuous
End With
Next
.Range("A5").Resize((dong_cuoi_sheet_ton - 4), 1) = stt
End With
With Sheets("Ton")
.Font.Name = "Courier New"
.Font.Size = 10
End With
With .[F5].Resize(6)
.NumberFormat = "#,##0"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 3
End With
With .[B5:D5].Resize(11)
.Font.Size = 10
.Font.ColorIndex = 1
End With

MsgBox "Done in " & (Timer - start) & " s."
Application.ScreenUpdating = True
End Sub
 
Upvote 0
vuongtoituonglai đã viết:
Chào các anh, chị và các bạn!
Mình có một vấn đề cần được sự giúp đỡ của quý anh chị và các bạn. Tất cả những gì mình mong muốn được sự giúp đỡ đều có trong file.
Rất mong nhận được sự đỡ.
Nhấp chuột vào đây để mở rộng...
Code bị sai nên xóa bỏ.......
 
Lần chỉnh sửa cuối:
Upvote 0
vuongtoituonglai đã viết:
Cảm ơn bạn nhé, mình làm theo bạn hướng dẫn nhưng code không chạy được bạn kiểm tra dùm mình làm sai chổ nào. Phần code mình thêm vào có màu đỏ nhé. Chân thành cảm ơn.
Public Sub chuyen_du_lieu()
Application.ScreenUpdating = False
Dim dong_cuoi_sheet_ton As Long
Dim start As Double
Dim borderTypeI As Integer, i As Integer
Dim stt() As Long
start = Timer
'xoa du lieu
dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")

If dong_cuoi_sheet_ton > 5 Then
xoa_du_lieu
End If
'copy du lieu
dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet1 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet2 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
copy_du_lieu_tu_sheet3 (dong_cuoi_sheet_ton)

dong_cuoi_sheet_ton = dong_cuoi_cung_cua_cot("Ton", "B")
ReDim stt(1 To (dong_cuoi_sheet_ton - 4), 1 To 1)

For i = 1 To UBound(stt, 1)
stt(i, 1) = i
Next i
'tinh toan
With ActiveWorkbook.Sheets("Ton")
.Range("G5:G" & dong_cuoi_sheet_ton).Formula = "=H5*E5"
.Range("I5:I" & dong_cuoi_sheet_ton).Formula = "=IF(F5>G5,kiem_lai,"""")"
.Range("J5:J" & dong_cuoi_sheet_ton).Formula = "=F5-G5"
For borderTypeI = 7 To 12
With .Range("A5:K" & dong_cuoi_sheet_ton).Borders(borderTypeI)
.LineStyle = xlContinuous
End With
Next
.Range("A5").Resize((dong_cuoi_sheet_ton - 4), 1) = stt
End With
With Sheets("Ton")
.Font.Name = "Courier New"
.Font.Size = 10
End With
With .[F5].Resize(6)
.NumberFormat = "#,##0"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 3
End With
With .[B5:D5].Resize(11)
.Font.Size = 10
.Font.ColorIndex = 1
End With

MsgBox "Done in " & (Timer - start) & " s."
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

bác thử lại thế này nhé
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Code bị sai nên xóa bỏ.......
Nhấp chuột vào đây để mở rộng...

Bạn QuangHai1969 ơi, mình định ăn cơm tối xong rồi nhắn lời cảm ơn bạn và chép code về nghiêng cứu chưa kịp làm thì bạn đã xóa code rồi. Dù gì đi chăn nữa mình cũng chân thành cảm ơn bạn. Chúng ta ở Bình Dương mong sớm gặp bạn để được học hỏi về lĩnh vực viết code.
 
Upvote 0
vuongtoituonglai đã viết:
Có tí vấn đề rồi bạn ơi, từ dòng số 5 trở xuống format như vậy là ổn rồi, còn dòng số 1 đến 4 thì bạn chỉnh lại dùm mình là không format gì cả. Cảm ơn bạn nhé
Nhấp chuột vào đây để mở rộng...
Chào các anh chị và các bạn GPE!
Bài #15 đã hỗ trợ tôi viết code và đã sử dụng trong thời gian dài, nay dữ liệu có sự thay đổi để đồng nhất các Sheet nên mong các anh chị và các bạn điều chỉnh rút ngắn code để code hoạt động được nhanh hơn.
Chân thành cảm ơn.
 

File đính kèm

Upvote 0
vuongtoituonglai đã viết:
Chào các anh chị và các bạn GPE!
Bài #15 đã hỗ trợ tôi viết code và đã sử dụng trong thời gian dài, nay dữ liệu có sự thay đổi để đồng nhất các Sheet nên mong các anh chị và các bạn điều chỉnh rút ngắn code để code hoạt động được nhanh hơn.
Chân thành cảm ơn.
Nhấp chuột vào đây để mở rộng...
Thay vì sử dụng code sao bạn không sử dụng Data Consolidate sẵn có để tổng hợp?
 
Upvote 0
dhn46 đã viết:
Thay vì sử dụng code sao bạn không sử dụng Data Consolidate sẵn có để tổng hợp?
Nhấp chuột vào đây để mở rộng...
Mình chua biết Data Consolidate là gì, mình sẽ tìm hiểu. Hàng tháng mình có khoảng 30 file excel cần phải tổng hợp dữ lieu và sau đó in ra để phát hành.
cảm ơn bạn đã quan tâm.
 
Upvote 0
vuongtoituonglai đã viết:
Mình chua biết Data Consolidate là gì, mình sẽ tìm hiểu. Hàng tháng mình có khoảng 30 file excel cần phải tổng hợp dữ lieu và sau đó in ra để phát hành.
cảm ơn bạn đã quan tâm.
Nhấp chuột vào đây để mở rộng...
THử XEM CODE Mới Này XEM
PHP: 
Sub UPDATE_DATA()
Application.ScreenUpdating = False
 Dim WS As Worksheet, Arrsh As String, endr As Long
 Sheet4.[5:6000].Clear: Sheet5.[5:6000].Clear
    Arrsh = "?TON?TEMP?"
For Each WS In Worksheets
    If InStr(1, Arrsh, "?" & WS.Name & "?", vbTextCompare) = 0 Then
         WS.Range("A5:P" & WS.[A6500].End(3).Row).Copy
         Sheets("TEMP").Range("A65536").End(3).Offset(1).PasteSpecial (12)
    End If
       Application.CutCopyMode = False
Next
  Sheet5.[A4:P123000].AdvancedFilter 2, Sheet4.[M2:M3], Sheet4.[A4:K4], False
  Sheet5.[5:6000].Clear
  With Sheet4
       endr = [A65536].End(3).Row
      .Range("H5:h" & endr).FormulaR1C1 = "=RC[1]*RC[-3]"
      .Range("j5:j" & endr).FormulaR1C1 = "=IF(RC[-3]>RC[-2],""NG"",""OK"")"
      .Range("a5:a" & endr).Value = Evaluate("ROW(R:R)")
      .Range("A5:k" & endr).Borders.LineStyle = 2
  End With
   Application.ScreenUpdating = True
End Sub
THêM FILE
 

File đính kèm

Upvote 0
Lê Duy Thương đã viết:
THử XEM CODE Mới Này XEM
PHP: 
Sub UPDATE_DATA()
Application.ScreenUpdating = False
 Dim WS As Worksheet, Arrsh As String, endr As Long
 Sheet4.[5:6000].Clear: Sheet5.[5:6000].Clear
    Arrsh = "?TON?TEMP?"
For Each WS In Worksheets
    If InStr(1, Arrsh, "?" & WS.Name & "?", vbTextCompare) = 0 Then
         WS.Range("A5:P" & WS.[A6500].End(3).Row).Copy
         Sheets("TEMP").Range("A65536").End(3).Offset(1).PasteSpecial (12)
    End If
       Application.CutCopyMode = False
Next
  Sheet5.[A4:P123000].AdvancedFilter 2, Sheet4.[M2:M3], Sheet4.[A4:K4], False
  Sheet5.[5:6000].Clear
  With Sheet4
       endr = [A65536].End(3).Row
      .Range("H5:h" & endr).FormulaR1C1 = "=RC[1]*RC[-3]"
      .Range("j5:j" & endr).FormulaR1C1 = "=IF(RC[-3]>RC[-2],""NG"",""OK"")"
      .Range("a5:a" & endr).Value = Evaluate("ROW(R:R)")
      .Range("A5:k" & endr).Borders.LineStyle = 2
  End With
   Application.ScreenUpdating = True
End Sub
THêM FILE
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn Lê Duy Thương Code chạy mình thấy đúng rồi. Do mình có nhiều file excel cần phải sử dung code như vầy có hướng nào phát triển code thành dạng Add In và hiện diện lên thanh Ribbon của Office không bạn. Nếu được bạn nghiêng cứu giúp mình nhé
Chân thành cảm ơn
 
Upvote 0
hpkhuong đã viết:
Bạn thử với code này:
Mã: 
Option Explicit
Sub GPE()
Dim Ws As Worksheet, Arr, dArr, I&, K&
ReDim dArr(1 To 100000, 1 To 11)
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Ws.Name <> "Ton" Then
    Arr = Ws.Range(Ws.[A5], Ws.[A6500].End(3)).Resize(, 12).Value
    For I = 1 To UBound(Arr)
        K = K + 1
        dArr(K, 1) = K
        dArr(K, 2) = Arr(I, 3)
        dArr(K, 3) = Arr(I, 7)
        dArr(K, 4) = Arr(I, 9)
        dArr(K, 5) = Arr(I, 11)
        dArr(K, 6) = Arr(I, 12)
        dArr(K, 7) = Empty
        dArr(K, 8) = "=RC[1]*RC[-3]"
        dArr(K, 9) = Arr(I, 5)
        dArr(K, 10) = "=IF(RC[-3]>RC[-2],""NG"",""OK"")"
        dArr(K, 11) = "=RC[-4]-RC[-3]"
    Next I
End If
Next Ws
With Sheets("Ton")
    .Range("A5:K100000").ClearContents
If K Then
    .Range("A5").Resize(K, 11) = dArr
    .Range("A5").Resize(K, 11).Borders.ColorIndex = 1
End If
End With
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn hpkhuong code chạy mình thấy dư 2 dòng
1. dòng số 4 của sheet 1 or 2 or 3
2. dư them một dòng trống cuối cùng và code này phát triển thành Add In để sử dung cho tiện.
mong tiếp tục nhận được sự giúp đỡ
cảm ơn bạn
 
Upvote 0
hpkhuong đã viết:
1. Là sao? dư dòng nào đâu? Có bao nhiêu dòng bên sheet 1,2,3 thì nó mang qua hết. Tổng là 26 dòng mà.... Tôi test chẳng thấy dư dòng nào cả
2. Bạn nghĩ sao việc code cho bạn 1 đoạn dùng để tổng hợp (mỗi tháng chạy 1 lần để mục đích đi kiểm kê thôi) mà phải tùy biến thành addin... cho tiện. Với cái việc copy code vào và chạy 1 phát mà cũng không làm được ah? phải đi cài addin ....Thì tôi không hiểu nổi bạn làm biếng đến cỡ nào rồi...

Công ty tôi nhân viên kế toán kho đi kiểm kê mấy chục ngàn hàng...họ dùng máy bắn, sau đó cắm máy vào PC để xuất ra file TXT, sau đó từ TXT này mới dùng excel cắn xén....tùm lum thứ mới ra được cái dữ liệu thô.........từ đó mà lên bảng kiểm kê....đối chiếu với sổ sách..... Đấy...........việc của họ nó dài hơi và thủ công vậy đó mà họ vẫn làm được....chứ chưa nói chi đến chuyện nhấp chuột là có số liệu...

Còn bạn chỉ việc chạy code thôi mà... Nói túm lại bó tay.canh....--=0--=0--=0
Nhấp chuột vào đây để mở rộng...
và lúc này lại cần đến anh nhân viên mạnh mẽ hpKhuong lấy dữ liệu từ TXT gắn vào sheet bằng vi ba . há há
 
Upvote 0
hpkhuong đã viết:
1. Là sao? dư dòng nào đâu? Có bao nhiêu dòng bên sheet 1,2,3 thì nó mang qua hết. Tổng là 26 dòng mà.... Tôi test chẳng thấy dư dòng nào cả
2. Bạn nghĩ sao việc code cho bạn 1 đoạn dùng để tổng hợp (mỗi tháng chạy 1 lần để mục đích đi kiểm kê thôi) mà phải tùy biến thành addin... cho tiện. Với cái việc copy code vào và chạy 1 phát mà cũng không làm được ah? phải đi cài addin ....Thì tôi không hiểu nổi bạn làm biếng đến cỡ nào rồi...

Công ty tôi nhân viên kế toán kho đi kiểm kê mấy chục ngàn hàng...họ dùng máy bắn, sau đó cắm máy vào PC để xuất ra file TXT, sau đó từ TXT này mới dùng excel cắn xén....tùm lum thứ mới ra được cái dữ liệu thô.........từ đó mà lên bảng kiểm kê....đối chiếu với sổ sách..... Đấy...........việc của họ nó dài hơi và thủ công vậy đó mà họ vẫn làm được....chứ chưa nói chi đến chuyện nhấp chuột là có số liệu...

Còn bạn chỉ việc chạy code thôi mà... Nói túm lại bó tay.canh....--=0--=0--=0
Nhấp chuột vào đây để mở rộng...
Ah, đã kiểm tra lại rồi hpkhuong ơi, kết quả đúng rồi cảm ơn bạn nhé nhưng bạn có thể chỉnh lại dùm mình lấy dữ liệu của sheet 1,2,3 qua sheet Ton thôi bởi vì file có thể có những sheet linh tinh khác không cần lấy qua sheet Ton
Còn việc phát triển code thành Add In là mình không làm biếng như bạn nghĩ đâu, sở dĩ mình nhờ phát triển code thành Add In cũng là cho tiện sử dụng mà thôi. Sẽ không mất thời gian copy code vào file, khi code cần chỉnh sửa thì cũng không mất nhiều thời gian copy lại...
 
Upvote 0
Chào các ace diễn đàn,
Tiện sẵn có thread này về tổng hợp dữ liệu mình xin hỏi luôn.
Mình có file master tổng hợp dữ liệu từ nhiều file khác nhau trong cùng 1 folder, những file này thay đổi hằng ngày.
Trong file master đã có code copy nội dung của các file đó vào từng sheet tương ứng rôi, tuy nhiên mình chạy thì báo lỗi.
Ace xem giúp và sửa giúp mình với. Mình thì coi như ko biết gì code hết mà rất cần để chạy report cho lẹ
File này là của một bạn cùng cty đã nghỉ để lại.

P/s Lỗi ở đây ko kể lỗi do thiếu file trong folder vi những file đó mình cũng ko cần nữa. Lỗi mình muốn nói là code đó ko copy dc dữ liệu từ các file có sẵn.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
hpkhuong đã viết:
Bạn thử với code này:
Mã: 
Option Explicit
Sub GPE()
Dim Ws As Worksheet, Arr, dArr, I&, K&
ReDim dArr(1 To 100000, 1 To 11)
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Ws.Name <> "Ton" Then
    Arr = Ws.Range(Ws.[A5], Ws.[A6500].End(3)).Resize(, 12).Value
    For I = 1 To UBound(Arr)
        K = K + 1
        dArr(K, 1) = K
        dArr(K, 2) = Arr(I, 3)
        dArr(K, 3) = Arr(I, 7)
        dArr(K, 4) = Arr(I, 9)
        dArr(K, 5) = Arr(I, 11)
        dArr(K, 6) = Arr(I, 12)
        dArr(K, 7) = Empty
        dArr(K, 8) = "=RC[1]*RC[-3]"
        dArr(K, 9) = Arr(I, 5)
        dArr(K, 10) = "=IF(RC[-3]>RC[-2],""NG"",""OK"")"
        dArr(K, 11) = "=RC[-4]-RC[-3]"
    Next I
End If
Next Ws
With Sheets("Ton")
    .Range("A5:K100000").ClearContents
If K Then
    .Range("A5").Resize(K, 11) = dArr
    .Range("A5").Resize(K, 11).Borders.ColorIndex = 1
End If
End With
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Bài #26 hiện cho kết quả đúng rồi nhưng mình có vấn đề bạn nào biết giúp mình với. File của mình có nhiều sheet nhưng mình chỉ lấy dữ liệu từ sheet 1,2,3 qua sheet Ton
Cảm ơn
 
Upvote 0
hpkhuong đã viết:
Bạn lấy lại code này.
Mã: 
Option Explicit
Sub GPE()
Dim Ws As Worksheet, Arr, dArr, I&, K&
ReDim dArr(1 To 100000, 1 To 11)
Application.ScreenUpdating = False
For Each Ws In Worksheets
If Ws.Name = "1" Or Ws.Name = "2" Or Ws.Name = "3" Then
    Arr = Ws.Range(Ws.[A5], Ws.[A6500].End(3)).Resize(, 12).Value
    For I = 1 To UBound(Arr)
        K = K + 1
        dArr(K, 1) = K
        dArr(K, 2) = Arr(I, 3)
        dArr(K, 3) = Arr(I, 7)
        dArr(K, 4) = Arr(I, 9)
        dArr(K, 5) = Arr(I, 11)
        dArr(K, 6) = Arr(I, 12)
        dArr(K, 7) = Empty
        dArr(K, 8) = "=RC[1]*RC[-3]"
        dArr(K, 9) = Arr(I, 5)
        dArr(K, 10) = "=IF(RC[-3]>RC[-2],""NG"",""OK"")"
        dArr(K, 11) = "=RC[-4]-RC[-3]"
    Next I
End If
Next Ws
With Sheets("Ton")
    .Range("A5:K100000").ClearContents
If K Then
    .Range("A5").Resize(K, 11) = dArr
    .Range("A5").Resize(K, 11).Borders.ColorIndex = 1
End If
End With
Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn hpkhuong nhé. Dữ lieu sheet 1,2,3 nếu nhiều hơn so với hiện tại khi lấy qua sheet Ton thì tự động Border, còn khi dữ liệu ít hơn thì có cách nào bỏ phần Border dư không? Bạn giúp mình thêm code vào cho hoàn chỉnh nhé.
Cảm ơn bạn.
 
Upvote 0
dmtk41 đã viết:
Chào các ace diễn đàn,
Tiện sẵn có thread này về tổng hợp dữ liệu mình xin hỏi luôn.
Mình có file master tổng hợp dữ liệu từ nhiều file khác nhau trong cùng 1 folder, những file này thay đổi hằng ngày.
Trong file master đã có code copy nội dung của các file đó vào từng sheet tương ứng rôi, tuy nhiên mình chạy thì báo lỗi.
Ace xem giúp và sửa giúp mình với. Mình thì coi như ko biết gì code hết mà rất cần để chạy report cho lẹ
File này là của một bạn cùng cty đã nghỉ để lại.

P/s Lỗi ở đây ko kể lỗi do thiếu file trong folder vi những file đó mình cũng ko cần nữa. Lỗi mình muốn nói là code đó ko copy dc dữ liệu từ các file có sẵn.
Nhấp chuột vào đây để mở rộng...
muốn giúp lắm nhưng nhìn dữ lieu như một đám rừng. chăc đọc dữ liệu và hiểu chắc hết 3 tháng nên đành chờ cao nhân vậy**~****~**
 
Upvote 0
Lê Duy Thương đã viết:
muốn giúp lắm nhưng nhìn dữ lieu như một đám rừng. chăc đọc dữ liệu và hiểu chắc hết 3 tháng nên đành chờ cao nhân vậy**~****~**
Nhấp chuột vào đây để mở rộng...
anh cứ cố gắng đọc hiểu 3 tháng đi , vì mấy người viết chen ngang kiểu này cứ quăng bài xong 6 tháng sau mới quay lại xem kết quả mà --=0--=0
 
Upvote 0
Lê Duy Thương đã viết:
muốn giúp lắm nhưng nhìn dữ lieu như một đám rừng. chăc đọc dữ liệu và hiểu chắc hết 3 tháng nên đành chờ cao nhân vậy**~****~**
Nhấp chuột vào đây để mở rộng...
Hi bạn, cái code đó open file trong thư mục, copy data, rồi paste vào sheet tương ứng trong file master. Ví dụ mở file I2120 rồi copy data trong đó vào sheet I2120 trong file master
 
Upvote 0
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

S
cần xử lý dữ liệu trùng nhau bằng VBA (1 người xem)
Trả lời
1
Đọc
14
HUONGHCKT
H
N
Tạo file lưu trữ dữ liệu tự động trên excel.
Trả lời
7
Đọc
100
le_vis
L
N
  • Question Question
Tạo file lưu trữ dự liệu tự động (1 người xem)
Trả lời
6
Đọc
119
Hoàng Tuấn 868
H
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
505
ongke0711
ongke0711
Ả
Cách tạo list Data validation không qua trung gian
Trả lời
45
Đọc
7K
HOADINH84
H
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
2 3 4
Trả lời
395
Đọc
47K
phamvanquoc.hanamninh
P
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn (1 người xem)
Trả lời
3
Đọc
131
HieuCD
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết
Trả lời
26
Đọc
25K
dungpham01
D
D
in ra bị thiếu chữ
Trả lời
4
Đọc
96
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng
Trả lời
1
Đọc
75
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN
Trả lời
2
Đọc
71
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
6
Đọc
294
YêuCN
Y
S
Mở 2 cửa sổ riêng biệt (1 người xem)
Trả lời
31
Đọc
24K
ThanhNgan240723
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
Trả lời
57
Đọc
20K
vovietdung261016
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
huuthang_bd
Add in SwitchSheet: Quay lại các sheet đã xem trước đó bằng phím tắt
    • Thích
    • Yêu thích
2
Trả lời
146
Đọc
43K
phong_codon
P
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
14
Đọc
613
Quang_Hải
Quang_Hải
N
Cài phần mềm đọc số ra chữ
Trả lời
2
Đọc
147
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
Em cần hỗ trợ tách nhiều file và đặt tên theo quy ước chung từ bảng 01 excel có sẳng
Trả lời
1
Đọc
126
HUONGHCKT
H
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