[XIN TRỢ GIÚP] Tìm kiếm và Liệt kê (1 người xem)

NamThienVu · 22/5/18

Chào các bác trong GPE!

Em có 01 file làm ví dụ mong các Bác hỗ trợ!
Nhu cầu của em là Tìm kiếm dữ liệu trong các sheet "T1", "T2" và "T3" để lấy dữ liệu theo tên từng CBTD cột A và cột J tại 2 Vùng: Vùng Thu nợ (A:G) và Vùng Giải ngân (J:Q) rồi tự động điền vào sheet "Tong hop", đề nghị:

(1) Trong sheet "Tong hop", tại từng vùng liệt kê số liệu của từng CBTD sẽ lần lượt liệt kê số liệu từng tháng của từng CBTD, lần lượt hết T1 rồi đến T2 rồi đến T3 ==> không có ô trống tại các cột thể hiện phần Thu nợ. Riêng phần Giải ngân (trong sheet "Tong hop") thì lại có ô trống, của tháng nào thì hiện trong những dòng của tháng đó bên Thu nợ (ví dụ xem các cột AD đến AH ==> Mục đích là khi Filter theo tháng thì vẫn nhìn được chi tiết Thu nợ và Giải ngân trong từng tháng.

(2) Tại từng vùng liệt kê Thu nợ và Giải ngân trong sheet "Tong hop" sẽ sắp xếp các dòng dữ liệu theo chiều từ giá trị cao nhất xuống thấp nhất tương ứng với cột giá trị Thu nợ và giá trị Giải ngân (ví dụ cột AB và cột AH) ==> Đề nghị (2) không quan trọng bằng đề nghị (1), nếu làm được (2) thì càng tốt!!!

Em cảm ơn các bác nhiều nhiều!!!

NamThienVu · 22/5/18

bomberman211 · 22/5/18

Đọc xong yêu cầu của bác cảm thấy xoắn não quá. Tải file về xem có rõ hơn chút nào không... xoắn não lần 2. Cảm nhận như lạc vào giữa rừng Amazon bác ạ :v

NamThienVu · 24/5/18

bomberman211 đã viết:
Đọc xong yêu cầu của bác cảm thấy xoắn não quá. Tải file về xem có rõ hơn chút nào không... xoắn não lần 2. Cảm nhận như lạc vào giữa rừng Amazon bác ạ :v

Thế để em gửi lại sau khi lượng hóa cho đơn giản và viết lại đơn giản, dễ hiểu hơn

NamThienVu · 24/5/18

Em xin được edit lại:

Nhu cầu của em là Tìm kiếm dữ liệu trong các sheet "T1" và "T2" để lấy dữ liệu theo tên từng CBTD cột A và cột I tại 2 Vùng: Vùng Thu nợ (A:F) và Vùng Giải ngân (I:N) rồi tự động điền vào sheet "Tong hop", đề nghị:

(1) Trong sheet "Tong hop", tại từng vùng liệt kê số liệu của từng CBTD sẽ lần lượt liệt kê số liệu từng tháng của từng CBTD, lần lượt hết T1 rồi đến T2 ==> không có ô trống tại các cột thể hiện phần Thu nợ (ví dụ vùng A7:F10 không có ô trống)
Riêng vùng Giải ngân thì lại có thể có ô trống, ví dụ vùng H7:L10 có dòng trống là dòng 9 ==> Mục đích là khi Filter theo tháng thì vẫn nhìn được chi tiết Thu nợ và Giải ngân trong từng tháng (ví dụ Filter ô A6 có thể nhìn số liệu từng tháng mà không sợ bị che mất dòng)

(2) Tại từng vùng liệt kê Thu nợ và Giải ngân trong sheet "Tong hop" sẽ sắp xếp các dòng dữ liệu theo chiều từ giá trị cao nhất xuống thấp nhất tương ứng với cột giá trị Thu nợ và giá trị Giải ngân (ví dụ cột F có 11>7>5 trong tháng 1, và cột L có 20>15) ==> Đề nghị (2) không quan trọng bằng đề nghị (1), nếu làm được (2) thì càng tốt!!!

Em cảm ơn các bác nhiều nhiều!!!

be_09 · 24/5/18

NamThienVu đã viết:
Chào các bác trong GPE!

Em có 01 file làm ví dụ mong các Bác hỗ trợ!
Nhu cầu của em là Tìm kiếm dữ liệu trong các sheet "T1", "T2" và "T3" để lấy dữ liệu theo tên từng CBTD cột A và cột J tại 2 Vùng: Vùng Thu nợ (A:G) và Vùng Giải ngân (J:Q) rồi tự động điền vào sheet "Tong hop", đề nghị:

(1) Trong sheet "Tong hop", tại từng vùng liệt kê số liệu của từng CBTD sẽ lần lượt liệt kê số liệu từng tháng của từng CBTD, lần lượt hết T1 rồi đến T2 rồi đến T3 ==> không có ô trống tại các cột thể hiện phần Thu nợ. Riêng phần Giải ngân (trong sheet "Tong hop") thì lại có ô trống, của tháng nào thì hiện trong những dòng của tháng đó bên Thu nợ (ví dụ xem các cột AD đến AH ==> Mục đích là khi Filter theo tháng thì vẫn nhìn được chi tiết Thu nợ và Giải ngân trong từng tháng.

(2) Tại từng vùng liệt kê Thu nợ và Giải ngân trong sheet "Tong hop" sẽ sắp xếp các dòng dữ liệu theo chiều từ giá trị cao nhất xuống thấp nhất tương ứng với cột giá trị Thu nợ và giá trị Giải ngân (ví dụ cột AB và cột AH) ==> Đề nghị (2) không quan trọng bằng đề nghị (1), nếu làm được (2) thì càng tốt!!!

Em cảm ơn các bác nhiều nhiều!!!

Xem cách làm tuần tự từ sheet Bố_Trí sang phải rồi dùng PivotTable, kết quả xem sheet4.

Hoang2013 · 24/5/18

Mình xin góp í với bạn ở khía cạnh xây dựng CSDL; Có thể bạn không vừa lòng sau khi đọc xong bài này:
1./ Bạn không nên xài tên NVTD viết tắc như trong file; Nên xài mã nhân viên theo qui luật sau:

PHP:

Mã NV  Ho & Tên CBTD
BTH00  Bùi Thị Thúy Hoa
DFT00  Dương Đức Tuấn
FDC00  Đào Từ  Duy Cường
NJH00  Nguyễn Hùng
NNH00  Nguyễn Ngọc Huyền
NTK00  Ngô Trọng Khác
THH00  Trần Thị Hải Hà
THH01  Từ Hàng Hải
. . ..    . . . . .

2./ Cũng tương tự như vậy, bạn nên thiết lập danh mục vay tương tự như ví dụ sau:

Mã:

Mã  Mục đích vay
CM  Chứng minh NLTC
GV  Góp vốn mua CP
Kh  Khác
KD  Kinh doanh
MN  Mua Nhà
TS  Mua TSCĐ
OT  Ô Tô
ST  STK
SN  Sửa Nhà
TC  Thấu Chi
TD  Tiêu dùng
Vy  Vay CBNV
 . . .  . . .

Một khi bạn thiết lập các bảng danh mục này thì trong khi vận hành CSDL sẽ giảm thiểu sai sót ngớ ngẩn, mà có khi khó tìm ra trong 1 sớm 1 chiều.

Tạm thời là vậy & rất vui nếu được tiếp tục trao đổi hay nghe fản bác từ bạn!

HieuCD · 24/5/18

NamThienVu đã viết:
Chào các bác trong GPE!

Em có 01 file làm ví dụ mong các Bác hỗ trợ!
Nhu cầu của em là Tìm kiếm dữ liệu trong các sheet "T1", "T2" và "T3" để lấy dữ liệu theo tên từng CBTD cột A và cột J tại 2 Vùng: Vùng Thu nợ (A:G) và Vùng Giải ngân (J:Q) rồi tự động điền vào sheet "Tong hop", đề nghị:

(1) Trong sheet "Tong hop", tại từng vùng liệt kê số liệu của từng CBTD sẽ lần lượt liệt kê số liệu từng tháng của từng CBTD, lần lượt hết T1 rồi đến T2 rồi đến T3 ==> không có ô trống tại các cột thể hiện phần Thu nợ. Riêng phần Giải ngân (trong sheet "Tong hop") thì lại có ô trống, của tháng nào thì hiện trong những dòng của tháng đó bên Thu nợ (ví dụ xem các cột AD đến AH ==> Mục đích là khi Filter theo tháng thì vẫn nhìn được chi tiết Thu nợ và Giải ngân trong từng tháng.

(2) Tại từng vùng liệt kê Thu nợ và Giải ngân trong sheet "Tong hop" sẽ sắp xếp các dòng dữ liệu theo chiều từ giá trị cao nhất xuống thấp nhất tương ứng với cột giá trị Thu nợ và giá trị Giải ngân (ví dụ cột AB và cột AH) ==> Đề nghị (2) không quan trọng bằng đề nghị (1), nếu làm được (2) thì càng tốt!!!

Em cảm ơn các bác nhiều nhiều!!!

Mã:

Sub TongHop()
  Dim Sht As Worksheet
  Dim thuArr(), giaiArr(), Arr(), Res(), shArr()
  Dim i As Long, ik As Long, iR As Long, eR1 As Long, eR2 As Long
  Dim n As Long, j As Long, Col As Long
  Dim key As String
  Const fR = 6
  
  shArr = Array("T1", "T2")

  Set Sht = Sheets("Tong Hop")
  'Sht.AutoFilterMode = False
  Col = Sht.Range("AAA3").End(xlToLeft).Column
  Sht.Range("A7:A65500").Resize(, Col + 12).Clear

  With CreateObject("scripting.dictionary")
    For j = 2 To Col Step 13
      key = Sht.Cells(3, j).Value
      i = i + 1
      .Item(Sht.Cells(3, j).Value) = i
    Next j
    ReDim Res(1 To .Count, 1 To 4)

    For n = 0 To UBound(shArr)
      Set Sht = Sheets(shArr(n))
      
      eR1 = Sht.Range("A" & Rows.Count).End(xlUp).Row - fR
      If eR1 > 1 Then 'Xét Thu No
        thuArr = Sht.Range("A7:F7").Resize(eR1).Value
        ReDim Arr(1 To eR1, 1 To 6)
        For j = 1 To UBound(Res) 'ReDim Mang thu No
          Res(j, 1) = Arr 'Mang thu No
          Res(j, 2) = 0 'Thu tu dòng Mang thu No
        Next j
        For i = 1 To eR1
          key = thuArr(i, 1)
          If .exists(key) Then
            ik = .Item(key) 'Thu tu CBTD
            Res(ik, 2) = Res(ik, 2) + 1 'Thu tu dòng Mang thu No
            iR = Res(ik, 2)
            
            Res(ik, 1)(iR, 1) = shArr(n) 'gán giá tri
            For j = 2 To 6
              Res(ik, 1)(iR, j) = thuArr(i, j)
            Next j
          Else
            MsgBox (key & " khong có trong danh muc can bo tin dung")
          End If
        Next i
      End If
      
      eR2 = Sht.Range("I" & Rows.Count).End(xlUp).Row - fR
      If eR2 > 1 Then 'Xét Giai ngan
        giaiArr = Sht.Range("I7:N7").Resize(eR2).Value
        ReDim Arr(1 To eR2, 1 To 5)
        For j = 1 To UBound(Res) 'ReDim Mang Giai ngan
          Res(j, 3) = Arr 'Mang Giai ngan
          Res(j, 4) = 0 'Thu tu dòng Mang Giai ngan
        Next j
        For i = 1 To eR2
          key = giaiArr(i, 1)
          If .exists(key) Then
            ik = .Item(key) 'Thu tu CBTD
            Res(ik, 4) = Res(ik, 4) + 1 'Thu tu dòng Mang Giai ngan
            iR = Res(ik, 4)

            For j = 2 To 6
              Res(ik, 3)(iR, j - 1) = giaiArr(i, j)
            Next j
          Else
            MsgBox (key & " khong có trong danh muc can bo tin dung")
          End If
        Next i
      End If
      
      Set Sht = Sheets("Tong Hop")
      For j = 1 To UBound(Res)
        Col = (j - 1) * 13 + 1
        eR1 = Sht.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If eR1 < 7 Then eR1 = 7
        If Res(j, 2) > 0 Then
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6) = Res(j, 1)
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6).Sort Sht.Cells(eR1, Col + 5).Resize(Res(j, 2)), 2, Header:=xlNo
        End If
        If Res(j, 4) > 0 Then
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5) = Res(j, 3)
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5).Sort Sht.Cells(eR1, Col + 11).Resize(Res(j, 4)), 2, Header:=xlNo
        End If
      Next j
    Next n
  End With
End Sub

NamThienVu · 24/5/18

Cảm ơn các Bác đã nhiệt tình hỗ trợ!!

@be09: cảm ơn bác đã đưa ra bảng tổng hợp dễ hiểu như trong hình, tuy nhiên nhu cầu của em hơi khác! Về tổng hợp số liệu em đã tự làm được và em để ở sheet khác, nhu cầu của em chỉ là "Liệt Kê" trong sheet "Tong hop" chỉ là "Liệt kê" cơ học, không cần tính toán gì, để từng CBNV có thể Filter xem trong từng tháng thì mình Thu nợ và Giải ngân chi tiết KH nào với số tiền bao nhiêu!!

@Hoang2013: cảm ơn bác đã tư vấn, việc em chuẩn hóa tên gọi các định danh thì em đã chuẩn hóa "chuẩn" rồi bác ạh! bác có thể xem bài đầu tiên trên cùng trong thread, vì em cần làm ví dự đơn giản hơn, như lúc đầu bác @bomberman211 nói xem khó hiểu quá!! em đã viết ví dụ lại cho đơn giản hơn, nên cách đặt tên có thể chưa chuẩn hóa thì mong bác thông cảm, em sẽ rút kinh nghiệm!!

@HieuCD: cảm ơn bác đã viết những câu lệnh VBA công phu, chạy câu lệnh của bác đã giải quyết trọn vẹn nhu cầu của em, tuy nhiên:
- Em mù tịt về VBA, mong các bác đừng cười em, em xấu hổ

(
- Nhu cầu của em là cần "Tìm kiếm" trong 12 sheet tương ứng với 12 tháng để "Liệt kê" vào sheet "Tong hop" nên không rõ sẽ phải điều chỉnh câu lệnh của bác ntn cho tận 12 sheet thay vì hiện tại là 2 sheet (T1 và T2)
- Nhu cầu em đăng đàn chỉ là 1 vấn đề còn tồn tại cuối cùng để hoàn thiện nốt file Tổng hợp BC với rất nhiều nhu cầu khác nhau thì em đã done, chỉ còn lại vấn đề này, em viết hoàn toàn bằng các câu lệnh excel, hiện tại dung lượng của file em viết "*.xlsb" ~ 12MB chạy Excel 2013 ==> File này hoàn thành sẽ bàn giao cho bộ phận thống kê chỉ được cài đặt Excel 2007 ==> khi đó em phải convert từ file "*.xlsb" thành file "*.xlsx" ~ 20MB, khi đó cũng ko biết có chạy được Macro không hay nữa

(
==> Do đó nếu được em rất mong các bác chỉ cho em câu lệnh Hàm excel thì tốt quá!!

HieuCD · 24/5/18

NamThienVu đã viết:
Cảm ơn các Bác đã nhiệt tình hỗ trợ!!

@be09: cảm ơn bác đã đưa ra bảng tổng hợp dễ hiểu như trong hình, tuy nhiên nhu cầu của em hơi khác! Về tổng hợp số liệu em đã tự làm được và em để ở sheet khác, nhu cầu của em chỉ là "Liệt Kê" trong sheet "Tong hop" chỉ là "Liệt kê" cơ học, không cần tính toán gì, để từng CBNV có thể Filter xem trong từng tháng thì mình Thu nợ và Giải ngân chi tiết KH nào với số tiền bao nhiêu!!

@Hoang2013: cảm ơn bác đã tư vấn, việc em chuẩn hóa tên gọi các định danh thì em đã chuẩn hóa "chuẩn" rồi bác ạh! bác có thể xem bài đầu tiên trên cùng trong thread, vì em cần làm ví dự đơn giản hơn, như lúc đầu bác @bomberman211 nói xem khó hiểu quá!! em đã viết ví dụ lại cho đơn giản hơn, nên cách đặt tên có thể chưa chuẩn hóa thì mong bác thông cảm, em sẽ rút kinh nghiệm!!

@HieuCD: cảm ơn bác đã viết những câu lệnh VBA công phu, chạy câu lệnh của bác đã giải quyết trọn vẹn nhu cầu của em, tuy nhiên:
- Em mù tịt về VBA, mong các bác đừng cười em, em xấu hổ (
- Nhu cầu của em là cần "Tìm kiếm" trong 12 sheet tương ứng với 12 tháng để "Liệt kê" vào sheet "Tong hop" nên không rõ sẽ phải điều chỉnh câu lệnh của bác ntn cho tận 12 sheet thay vì hiện tại là 2 sheet (T1 và T2)
- Nhu cầu em đăng đàn chỉ là 1 vấn đề còn tồn tại cuối cùng để hoàn thiện nốt file Tổng hợp BC với rất nhiều nhu cầu khác nhau thì em đã done, chỉ còn lại vấn đề này, em viết hoàn toàn bằng các câu lệnh excel, hiện tại dung lượng của file em viết "*.xlsb" ~ 12MB chạy Excel 2013 ==> File này hoàn thành sẽ bàn giao cho bộ phận thống kê chỉ được cài đặt Excel 2007 ==> khi đó em phải convert từ file "*.xlsb" thành file "*.xlsx" ~ 20MB, khi đó cũng ko biết có chạy được Macro không hay nữa (
==> Do đó nếu được em rất mong các bác chỉ cho em câu lệnh Hàm excel thì tốt quá!!

Có những sheet nào thì bạn liệt kê trong dòng lệnh:
shArr = Array("T1", "T2")
Bạn chạy code xong có kết quả, lưu lại rồi Save As thành .xlsx rồi gởi đi
File .xlsx không lưu được macro, nhưng có thể tạo 1 file lưu code và khi chạy sẽ gọi file .xlsx để xử lý. Tại sao bạn phải chuyển qua .xlsx, Excel 2007 đọc được .xlsb mà
Muốn dùng công thức thì phải lập bảng phụ

be_09 · 25/5/18

NamThienVu đã viết:
Cảm ơn các Bác đã nhiệt tình hỗ trợ!!

@be09: cảm ơn bác đã đưa ra bảng tổng hợp dễ hiểu như trong hình, tuy nhiên nhu cầu của em hơi khác! Về tổng hợp số liệu em đã tự làm được và em để ở sheet khác, nhu cầu của em chỉ là "Liệt Kê" trong sheet "Tong hop" chỉ là "Liệt kê" cơ học, không cần tính toán gì, để từng CBNV có thể Filter xem trong từng tháng thì mình Thu nợ và Giải ngân chi tiết KH nào với số tiền bao nhiêu!!
...............
- Nhu cầu của em là cần "Tìm kiếm" trong 12 sheet tương ứng với 12 tháng để "Liệt kê" vào sheet "Tong hop" nên không rõ sẽ phải điều chỉnh câu lệnh của bác ntn cho tận 12 sheet thay vì hiện tại là 2 sheet (T1 và T2)
- File này hoàn thành sẽ bàn giao cho bộ phận thống kê chỉ được cài đặt Excel 2007 ==> khi đó em phải convert từ file "*.xlsb" thành file "*.xlsx" ~ 20MB, khi đó cũng ko biết có chạy được Macro không hay nữa.
==> Do đó nếu được em rất mong các bác chỉ cho em câu lệnh Hàm excel thì tốt quá!!

Nếu có 12 tháng thì cách trên tôi chỉ thêm code gộp các Sheet vào sheet tổng và thêm code chạy ra PivotTable là có cái bảng trên.

Tại sao tôi thích làm theo kiểu cấu trúc trên để sử dụng PivotTable?
Nhất là đối với những người thường xuyên phải tổng hợp báo cáo và gặp xếp khó tính hay thay đổi nội dung, biểu mẫu báo cáo, thì PivotTable sẽ là cứu cánh, nó vô cùng linh hoạt có thể ứng biến, tổng hợp theo mọi nhu cầu báo cáo (chỉ cần rê, thả) là có kết quả, nếu biết VBA thì chỉ cần gán code cho mỗi nút 1 chức năng báo cáo chỉ việc nhấn nút là có ngay kết quả cần.

NamThienVu · 25/5/18

HieuCD đã viết:
Có những sheet nào thì bạn liệt kê trong dòng lệnh:
shArr = Array("T1", "T2")
Bạn chạy code xong có kết quả, lưu lại rồi Save As thành .xlsx rồi gởi đi
File .xlsx không lưu được macro, nhưng có thể tạo 1 file lưu code và khi chạy sẽ gọi file .xlsx để xử lý. Tại sao bạn phải chuyển qua .xlsx, Excel 2007 đọc được .xlsb mà
Muốn dùng công thức thì phải lập bảng phụ

Em đã dùng thử chạy *.xlsb trên Excel 2007 nhưng bảng biểu thì bị mất hết đường kẻ viền bao quanh từng ô, màu sắc tô các ô thì bị mất hết chuyển sang màu trắng,... nói chung chạy cảm giác máy bị lag và báo lỗi!!

NamThienVu · 25/5/18

be09 đã viết:
Nếu có 12 tháng thì cách trên tôi chỉ thêm code gộp các Sheet vào sheet tổng và thêm code chạy ra PivotTable là có cái bảng trên.

Tại sao tôi thích làm theo kiểu cấu trúc trên để sử dụng PivotTable?
Nhất là đối với những người thường xuyên phải tổng hợp báo cáo và gặp xếp khó tính hay thay đổi nội dung, biểu mẫu báo cáo, thì PivotTable sẽ là cứu cánh, nó vô cùng linh hoạt có thể ứng biến, tổng hợp theo mọi nhu cầu báo cáo (chỉ cần rê, thả) là có kết quả, nếu biết VBA thì chỉ cần gán code cho mỗi nút 1 chức năng báo cáo chỉ việc nhấn nút là có ngay kết quả cần.

Nhu cầu của em là sử dụng Hàm excel thì càng tốt để máy tính tự động ra kết quả và em chỉ việc copy từ file tính toán của em nặng ~20MB để paste value ra file raw ~ 1MB (mục đích chỉ là file text để gửi email đỡ tốn tài nguyên), sau khi làm được việc này thì em giao cho nhân viên của em chỉ có mỗi nghiệp vụ copy paste value và gửi đi mà thôi.

Cũng vì khổ nỗi nhân viên của em không biết tý gì về excel nên em muốn tối giản nhất thao tác, để bạn ý chỉ copy paste value, còn về phần em những việc chạy Pivot Table như bác hướng dẫn thì em cũng có kiến thức và tự làm được ạh!! (chỉ có mỗi VBA là em mù tịt thôi ạh!!)

Em thanks bác nhiều vì đã hỗ trợ!!

HieuCD · 25/5/18

NamThienVu đã viết:
Em đã dùng thử chạy *.xlsb trên Excel 2007 nhưng bảng biểu thì bị mất hết đường kẻ viền bao quanh từng ô, màu sắc tô các ô thì bị mất hết chuyển sang màu trắng,... nói chung chạy cảm giác máy bị lag và báo lỗi!!

Chỉnh lại code không xóa định dạng và bớt giựt

Mã:

Sub TongHop()
  Dim Sht As Worksheet
  Dim thuArr(), giaiArr(), Arr(), Res(), shArr()
  Dim i As Long, ik As Long, iR As Long, eR1 As Long, eR2 As Long
  Dim n As Long, j As Long, Col As Long
  Dim key As String
  Const fR = 6
  
  shArr = Array("T1", "T2")
  
  Application.ScreenUpdating = False
  Set Sht = Sheets("Tong Hop")
  Col = Sht.Range("AAA3").End(xlToLeft).Column
  Sht.Range("A7:A65500").Resize(, Col + 12).ClearContents

  With CreateObject("scripting.dictionary")
    For j = 2 To Col Step 13
      key = Sht.Cells(3, j).Value
      i = i + 1
      .Item(Sht.Cells(3, j).Value) = i
    Next j
    ReDim Res(1 To .Count, 1 To 4)

    For n = 0 To UBound(shArr)
      Set Sht = Sheets(shArr(n))
      
      eR1 = Sht.Range("A" & Rows.Count).End(xlUp).Row - fR
      If eR1 > 1 Then 'Xét Thu No
        thuArr = Sht.Range("A7:F7").Resize(eR1).Value
        ReDim Arr(1 To eR1, 1 To 6)
        For j = 1 To UBound(Res) 'ReDim Mang thu No
          Res(j, 1) = Arr 'Mang thu No
          Res(j, 2) = 0 'Thu tu dòng Mang thu No
        Next j
        For i = 1 To eR1
          key = thuArr(i, 1)
          If .exists(key) Then
            ik = .Item(key) 'Thu tu CBTD
            Res(ik, 2) = Res(ik, 2) + 1 'Thu tu dòng Mang thu No
            iR = Res(ik, 2)
            
            Res(ik, 1)(iR, 1) = shArr(n) 'gán giá tri
            For j = 2 To 6
              Res(ik, 1)(iR, j) = thuArr(i, j)
            Next j
          Else
            MsgBox (key & " khong có trong danh muc can bo tin dung")
          End If
        Next i
      End If
      
      eR2 = Sht.Range("I" & Rows.Count).End(xlUp).Row - fR
      If eR2 > 1 Then 'Xét Giai ngan
        giaiArr = Sht.Range("I7:N7").Resize(eR2).Value
        ReDim Arr(1 To eR2, 1 To 5)
        For j = 1 To UBound(Res) 'ReDim Mang Giai ngan
          Res(j, 3) = Arr 'Mang Giai ngan
          Res(j, 4) = 0 'Thu tu dòng Mang Giai ngan
        Next j
        For i = 1 To eR2
          key = giaiArr(i, 1)
          If .exists(key) Then
            ik = .Item(key) 'Thu tu CBTD
            Res(ik, 4) = Res(ik, 4) + 1 'Thu tu dòng Mang Giai ngan
            iR = Res(ik, 4)

            For j = 2 To 6
              Res(ik, 3)(iR, j - 1) = giaiArr(i, j)
            Next j
          Else
            MsgBox (key & " khong có trong danh muc can bo tin dung")
          End If
        Next i
      End If
      
      Set Sht = Sheets("Tong Hop")
      For j = 1 To UBound(Res)
        Col = (j - 1) * 13 + 1
        eR1 = Sht.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If eR1 < 7 Then eR1 = 7
        If Res(j, 2) > 0 Then
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6) = Res(j, 1)
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6).Sort Sht.Cells(eR1, Col + 5).Resize(Res(j, 2)), 2, Header:=xlNo
        End If
        If Res(j, 4) > 0 Then
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5) = Res(j, 3)
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5).Sort Sht.Cells(eR1, Col + 11).Resize(Res(j, 4)), 2, Header:=xlNo
        End If
      Next j
    Next n
  End With
  Application.ScreenUpdating = True
End Sub

Chạy code xong bạn làm gì thêm cũng được
Nhân viên của bạn copy từ đâu và Past tới đâu, nội dung gì

NamThienVu · 26/5/18

Xin chào bác @HieuCD

Em đã mầy mò theo câu lệnh VBA của bác, em đã chỉnh sửa theo hướng dẫn để ra được câu lệnh như file word đính kèm.
Tuy nhiên máy tính báo lỗi theo như file JPG đính kèm "xxxxxx khong co trong danh muc can bo tin dung" ==> em bị treo máy vì bấm Enter OK mãi mà không thoát được

(

Em thỉnh cầu bác nếu được bác xem giúp em file excel *.xlsb final của em chỉ còn chờ mỗi thao tác này là done, bác vui lòng download tại link:
https://drive.google.com/open?id=0B3jnsoNETp_hRHgzUVIxY0VjUEczR3VsZFZOMkl0SVdCaUdN ==> có 12 sheet được đặt tên từ T1, T2, .... đến T12, nhu cầu của em là "Tìm Kiếm" Dữ liệu tại từng sheet gồm VÙNG THU NỢ (BK:BR) và VÙNG GIẢI NGÂN (N:U) để "Liệt Kê" (không cần tính toán mà chỉ đơn thuần là liệt kê) tại sheet "Tong Hop" trong vùng (I5:FS2005)

Em không biết có thể tạo 01 nút biểu tượng để mỗi lần cần chạy Macro (refresh) thì Nhân viên em chỉ cần click chuột cho dễ thao tác không bác nhỉ!!?

Em cảm ơn bác nhiều!!

HieuCD · 26/5/18

NamThienVu đã viết:
Xin chào bác @HieuCD

Em đã mầy mò theo câu lệnh VBA của bác, em đã chỉnh sửa theo hướng dẫn để ra được câu lệnh như file word đính kèm.
Tuy nhiên máy tính báo lỗi theo như file JPG đính kèm "xxxxxx khong co trong danh muc can bo tin dung" ==> em bị treo máy vì bấm Enter OK mãi mà không thoát được (

Em thỉnh cầu bác nếu được bác xem giúp em file excel *.xlsb final của em chỉ còn chờ mỗi thao tác này là done, bác vui lòng download tại link:
https://drive.google.com/open?id=0B3jnsoNETp_hRHgzUVIxY0VjUEczR3VsZFZOMkl0SVdCaUdN ==> có 12 sheet được đặt tên từ T1, T2, .... đến T12, nhu cầu của em là "Tìm Kiếm" Dữ liệu tại từng sheet gồm VÙNG THU NỢ (BK:BR) và VÙNG GIẢI NGÂN (N:U) để "Liệt Kê" (không cần tính toán mà chỉ đơn thuần là liệt kê) tại sheet "Tong Hop" trong vùng (I5:FS2005)

Em không biết có thể tạo 01 nút biểu tượng để mỗi lần cần chạy Macro (refresh) thì Nhân viên em chỉ cần click chuột cho dễ thao tác không bác nhỉ!!?

Em cảm ơn bác nhiều!!

Để tạo nút lệnh bạn chọn menu Insert, Shapes, sau đó click chuột phải và ...
Gởi file mới chỉnh code được

Ba Tê · 26/5/18

NamThienVu đã viết:
Xin chào bác @HieuCD

Em thỉnh cầu bác nếu được bác xem giúp em file excel *.xlsb final của em chỉ còn chờ mỗi thao tác này là done, bác vui lòng download tại link:
https://drive.google.com/open?id=0B3jnsoNETp_hRHgzUVIxY0VjUEczR3VsZFZOMkl0SVdCaUdN ==> có 12 sheet được đặt tên từ T1, T2, .... đến T12, nhu cầu của em là "Tìm Kiếm" Dữ liệu tại từng sheet gồm VÙNG THU NỢ (BK:BR) và VÙNG GIẢI NGÂN (N:U) để "Liệt Kê" (không cần tính toán mà chỉ đơn thuần là liệt kê) tại sheet "Tong Hop" trong vùng (I5:FS2005)

Bạn gởi file Cty Nen mong Song Hong.xlsx để làm gì?

NamThienVu đã viết:
Em xin được edit lại:

Nhu cầu của em là Tìm kiếm dữ liệu trong các sheet "T1" và "T2" để lấy dữ liệu theo tên từng CBTD cột A và cột I tại 2 Vùng: Vùng Thu nợ (A:F) và Vùng Giải ngân (I:N) rồi tự động điền vào sheet "Tong hop", đề nghị:

(1) Trong sheet "Tong hop", tại từng vùng liệt kê số liệu của từng CBTD sẽ lần lượt liệt kê số liệu từng tháng của từng CBTD, lần lượt hết T1 rồi đến T2 ==> không có ô trống tại các cột thể hiện phần Thu nợ (ví dụ vùng A7:F10 không có ô trống)
Riêng vùng Giải ngân thì lại có thể có ô trống, ví dụ vùng H7:L10 có dòng trống là dòng 9 ==> Mục đích là khi Filter theo tháng thì vẫn nhìn được chi tiết Thu nợ và Giải ngân trong từng tháng (ví dụ Filter ô A6 có thể nhìn số liệu từng tháng mà không sợ bị che mất dòng)

(2) Tại từng vùng liệt kê Thu nợ và Giải ngân trong sheet "Tong hop" sẽ sắp xếp các dòng dữ liệu theo chiều từ giá trị cao nhất xuống thấp nhất tương ứng với cột giá trị Thu nợ và giá trị Giải ngân (ví dụ cột F có 11>7>5 trong tháng 1, và cột L có 20>15) ==> Đề nghị (2) không quan trọng bằng đề nghị (1), nếu làm được (2) thì càng tốt!!!

Em cảm ơn các bác nhiều nhiều!!!

Làm theo "Đề nghị: (1)"
Màu mè trang trí bạn tự làm, càng nhiều càng nặng file.

NamThienVu · 27/5/18

HieuCD đã viết:
Để tạo nút lệnh bạn chọn menu Insert, Shapes, sau đó click chuột phải và ...
Gởi file mới chỉnh code được

Qua nay em đi công tác không có máy tính nên reply hơi chậm mong các bác thông cảm!!

Hôm trước không hiểu sao lớ ngớ em lại gửi nhầm Link, em xin được gửi lại file BC em làm tại địa chỉ:
https://drive.google.com/open?id=1crOzdanGsH0AbokT5bJdmKRB6266BeSz

Kính nhờ bác @HieuCD và bác @Ba Tê hỗ trợ giúp em ạh!!

Em cảm ơn các bác nhiều!!

HieuCD · 28/5/18

NamThienVu đã viết:
Qua nay em đi công tác không có máy tính nên reply hơi chậm mong các bác thông cảm!!

Hôm trước không hiểu sao lớ ngớ em lại gửi nhầm Link, em xin được gửi lại file BC em làm tại địa chỉ:
https://drive.google.com/open?id=1crOzdanGsH0AbokT5bJdmKRB6266BeSz

Kính nhờ bác @HieuCD và bác @Ba Tê hỗ trợ giúp em ạh!!

Em cảm ơn các bác nhiều!!

Lần sau gởi file sát thực tế ngay từ đầu để không làm mất thời gian người giúp bạn

Mã:

Sub TongHop()
  Dim Sht As Worksheet
  Dim nvArr(), thuArr(), giaiArr(), Arr(), Res(), shArr()
  Dim i As Long, ik As Long, iR As Long, eR1 As Long, eR2 As Long
  Dim n As Long, j As Long, Col As Long
  Dim key As String
  Const fC = 9
  Const fR = 8
  With Sheets("data")
    nvArr = .Range("B3:D" & .Range("B65500").End(xlUp).Row).Value
  End With
  shArr = Array("T1", "T2", "T3", "T4", "T5", "T6", "T7", "T8", "T9", "T10", "T11", "T12")
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Set Sht = Sheets("Tong Hop")
  Col = Sht.Range("AAA1").End(xlToLeft).Column
  Sht.Range("A5:A65500").Resize(, Col + 12).ClearContents

  With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nvArr)
      .Item(nvArr(i, 3)) = nvArr(i, 1)
    Next i
    For j = fC To Col Step 14
      n = n + 1
      .Item(.Item(Sht.Cells(1, j).Value)) = n     
    Next j
    ReDim Res(1 To n, 1 To 4)

    For n = 0 To UBound(shArr)
      Set Sht = Sheets(shArr(n))
     
      eR1 = Sht.Range("BQ" & Rows.Count).End(xlUp).Row - fR
      If eR1 > 1 Then 'Xét Thu No
        thuArr = Sht.Range("BM9:BR9").Resize(eR1).Value
        ReDim Arr(1 To eR1, 1 To 6)
        For j = 1 To UBound(Res) 'ReDim Mang thu No
          Res(j, 1) = Arr 'Mang thu No
          Res(j, 2) = 0 'Thu tu dòng Mang thu No
        Next j
        For i = 1 To eR1
          key = thuArr(i, 5)
          If .exists(key) Then
            If TypeName(thuArr(i, 6)) = "Double" Then
              ik = .Item(key) 'Thu tu CBTD
              Res(ik, 2) = Res(ik, 2) + 1 'Thu tu dòng Mang thu No
              iR = Res(ik, 2)
              Res(ik, 1)(iR, 1) = shArr(n) 'Thang
              For j = 1 To 4
                Res(ik, 1)(iR, j + 1) = CStr(thuArr(i, j))
              Next j
              Res(ik, 1)(iR, 6) = thuArr(i, 6)
            End If
          Else
            If Not .exists("#" & key & "#") Then 'Khong muon hien canh báo thì bo 4 dòng này
              MsgBox (key & " khong có trong danh muc can bo tin dung")
              .Add "#" & key & "#", ""
            End If
          End If
        Next i
      End If
     
      eR2 = Sht.Range("T" & Rows.Count).End(xlUp).Row - fR
      If eR2 > 1 Then 'Xét Giai ngan
        giaiArr = Sht.Range("P9:U9").Resize(eR2).Value
        ReDim Arr(1 To eR2, 1 To 5)
        For j = 1 To UBound(Res) 'ReDim Mang Giai ngan
          Res(j, 3) = Arr 'Mang Giai ngan
          Res(j, 4) = 0 'Thu tu dòng Mang Giai ngan
        Next j
        For i = 1 To eR2
          key = giaiArr(i, 5)
          If .exists(key) Then
            If TypeName(giaiArr(i, 6)) = "Double" Then
              ik = .Item(key) 'Thu tu CBTD
              Res(ik, 4) = Res(ik, 4) + 1 'Thu tu dòng Mang Giai ngan
              iR = Res(ik, 4)
              For j = 1 To 4
                Res(ik, 3)(iR, j) = CStr(giaiArr(i, j))
              Next j
              Res(ik, 3)(iR, 5) = giaiArr(i, 6)
            End If
          Else
            If Not .exists("#" & key & "#") Then 'Khong muon hien canh báo thì bo 4 dòng này
              MsgBox (key & " khong có trong danh muc can bo tin dung")
              .Add "#" & key & "#", ""
            End If
          End If
        Next i
      End If
     
      Set Sht = Sheets("Tong Hop")
      For j = 1 To UBound(Res)
        Col = (j - 1) * 14 + fC
        eR1 = Sht.Cells(Rows.Count, Col).End(xlUp).Row + 1
        If eR1 < 5 Then eR1 = 5
        If Res(j, 2) > 0 Then
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6) = Res(j, 1)
          Sht.Cells(eR1, Col).Resize(Res(j, 2), 6).Sort Sht.Cells(eR1, Col + 5).Resize(Res(j, 2)), 2, Header:=xlNo
        End If
        If Res(j, 4) > 0 Then
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5) = Res(j, 3)
          Sht.Cells(eR1, Col + 7).Resize(Res(j, 4), 5).Sort Sht.Cells(eR1, Col + 11).Resize(Res(j, 4)), 2, Header:=xlNo
        End If
      Next j
    Next n
  End With
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
End Sub

Ba Tê · 28/5/18

NamThienVu đã viết:
Qua nay em đi công tác không có máy tính nên reply hơi chậm mong các bác thông cảm!!

Hôm trước không hiểu sao lớ ngớ em lại gửi nhầm Link, em xin được gửi lại file BC em làm tại địa chỉ:
https://drive.google.com/open?id=1crOzdanGsH0AbokT5bJdmKRB6266BeSz

Kính nhờ bác @HieuCD và bác @Ba Tê hỗ trợ giúp em ạh!!

Em cảm ơn các bác nhiều!!

Sau khi gởi file tôi thường tải lại xem file mình gởi có đúng là file "mới nhất" mình muốn gởi không.
Tôn trọng người khác cũng là tôn trọng mình!

Dùng Mã Nhân viên ai lại dùng Tên NV.
Chỉnh lại code bài #17:

PHP:

Option Explicit

Public Sub GPE()
Application.ScreenUpdating = False
Dim Ws As Worksheet, sArr(1 To 10000, 1 To 15), tArr(), dArr(), Tem As String, ShName As String, CbTD As String
Dim C As Long, i As Long, j As Long, K As Long, K2 As Long, n As Long, R As Long, Col As Long
'------------------------------Gom 12 sheet vao 1 mang sArr()'
For n = 1 To 12
    ShName = "T" & n
    With Sheets(ShName)
        tArr = .Range("P9:BR2000").Value
        R = UBound(tArr)
            For i = 1 To R
                If tArr(i, 3) <> "" Or tArr(i, 52) <> "" Then
                    K = K + 1
                    For j = 1 To 6
                        sArr(K, j) = tArr(i, j)
                        sArr(K, j + 6) = tArr(i, j + 49)
                    Next j
                    sArr(K, 13) = ShName
                End If
            Next i
    End With
    K = K + 1
Next n
R = K
'--------------------------------Lay du lieu theo tung Can bo Tin dung'
With Sheets("Tong Hop")
    Col = .Range("XFD1").End(xlToLeft).Column
    .Range("I5").Resize(1000, Col + 12).ClearContents
    For C = 9 To Col Step 14
        ReDim dArr(1 To 2000, 1 To 12)
        CbTD = .Cells(1, C).Value
        K = 0: K2 = 0
        For i = 1 To R
                If sArr(i, 13) = Empty Then K2 = K
            If sArr(i, 11) = CbTD And sArr(i, 12) <> "" Then
                K = K + 1
                dArr(K, 1) = sArr(i, 13)
                For j = 7 To 10
                    dArr(K, j - 5) = sArr(i, j)
                Next j
                dArr(K, 6) = sArr(i, 12)
            End If
            If sArr(i, 5) = CbTD And sArr(i, 6) <> "" Then
                K2 = K2 + 1
                For j = 1 To 4
                    dArr(K2, j + 7) = sArr(i, j)
                Next j
                dArr(K2, 12) = sArr(i, 6)
            End If
        Next i
        If K Then .Cells(5, C).Resize(K, 12) = dArr
    Next C
End With
End Sub

Ba Tê · 28/5/18

HieuCD đã viết:
Lần sau gởi file sát thực tế ngay từ đầu để không làm mất thời gian người giúp bạn

Hình như bạn không dùng Option Explicit trong VBA?
Như vậy bạn có thử không cần Dim được không?
Vì Sub của bạn nếu có khai báo Option Explicit thì a, b ... VBA báo lỗi "Có biệt kích"!

HieuCD · 28/5/18

Ba Tê đã viết:
Hình như bạn không dùng Option Explicit trong VBA?
Như vậy bạn có thử không cần Dim được không?
Vì Sub của bạn nếu có khai báo Option Explicit thì a, b ... VBA báo lỗi "biệt kích"!

Mình không khai báo mặc định Option Explicit, để dể thêm biến và chạy thử ngay, suy nghỉ không bị gián đoạn. Nó cũng dở vì không kiểm tra biến
Biến a và b là thêm vào để biết kết quả lệnh, mình quên xóa

Ba Tê · 28/5/18

HieuCD đã viết:
Mình không khai báo mặc định Option Explicit, để dể thêm biến và chạy thử ngay, suy nghỉ không bị gián đoạn. Nó cũng dở vì không kiểm tra biến
Biến a và b là thêm vào để biết kết quả lệnh, mình quên xóa

Bởi thế, nếu người khác dùng code có Option Explicit sẽ báo lỗi mà nhiều người không biết tại sao. Khai báo tường minh chẳng "bao lâu".

♫ђöล♥ßล†♥†µ♫ · 28/5/18

Ba Tê đã viết:
Bởi thế, nếu người khác dùng code có Option Explicit sẽ báo lỗi mà nhiều người không biết tại sao. Khai báo tường minh chẳng "bao lâu".

Anh @HieuCD là trùm đó Thầy. Copy Code về chạy cứ keng keng không à. Thầy lạt anh ấy đi $-\\/.$

HieuCD · 28/5/18

♫ђöล♥ßล†♥†µ♫ đã viết:
Anh @HieuCD là trùm đó Thầy. Copy Code về chạy cứ keng keng không à. Thầy lạt anh ấy đi $-\\/.$

Có keng keng mới vui, biết xe cà lem tới mà chạy ra thưởng thức cho đã thèm /-*+/

NamThienVu · 28/5/18

HieuCD đã viết:
Lần sau gởi file sát thực tế ngay từ đầu để không làm mất thời gian người giúp bạn

Mã:

End Sub

Cảm ơn bác @HieuCD đã chỉ bảo, lúc đầu em cũng đã gửi file giống file gốc, nhưng các bác ở trên bảo đọc "xoắn não" không hiểu gì nên em phải viết lại ví dụ cho đơn giản dễ hiểu ạh!!

NamThienVu · 29/5/18

Ba Tê đã viết:
Sau khi gởi file tôi thường tải lại xem file mình gởi có đúng là file "mới nhất" mình muốn gởi không.
Tôn trọng người khác cũng là tôn trọng mình!

Dùng Mã Nhân viên ai lại dùng Tên NV.
Chỉnh lại code bài #17:

PHP:

Dạ em cảm ơn bác @Ba Tê, mọi khi em cẩn thận lắm, nhưng lần này không hiểu sao lại sơ suất thế, mong bác lượng thứ!!
Em đã download file bác edit về test thì thấy có lỗi ở sheet "Tong Hop": phần liệt kê nhân viên tên "Việt", "Khác" và "NV Mới 2" bị sai.
Em xin gửi lại 2 file: một của bác và một của em để bác dễ so sánh ạh!!

Ba Tê · 29/5/18

NamThienVu đã viết:
Dạ em cảm ơn bác @Ba Tê, mọi khi em cẩn thận lắm, nhưng lần này không hiểu sao lại sơ suất thế, mong bác lượng thứ!!
Em đã download file bác edit về test thì thấy có lỗi ở sheet "Tong Hop": phần liệt kê nhân viên tên "Việt", "Khác" và "NV Mới 2" bị sai.
Em xin gửi lại 2 file: một của bác và một của em để bác dễ so sánh ạh!!

- Số liệu tôi lấy theo mã Cột P và cột BQ (hay là bạn lấy Mã từ cột khác: N và BK?) các sheet từ T1->T12, so với Mã trên dòng 1 từ I1 sang phải. Bạn kiểm tra lại thứ tự các mã từ I1 sang phải có đúng thứ tự các bảng trong cột B không?
- Sheet "T4" bạn filter cột BQ mã VIETTV xem có số liệu không?
Kiểm tra tương tự cho các trường hợp bạn thấy sai.

NamThienVu · 29/5/18

Ba Tê đã viết:
- Số liệu tôi lấy theo mã Cột P và cột BQ (hay là bạn lấy Mã từ cột khác: N và BK?) các sheet từ T1->T12, so với Mã trên dòng 1 từ I1 sang phải. Bạn kiểm tra lại thứ tự các mã từ I1 sang phải có đúng thứ tự các bảng trong cột B không?
- Sheet "T4" bạn filter cột BQ mã VIETTV xem có số liệu không?
Kiểm tra tương tự cho các trường hợp bạn thấy sai.

Kính gửi bác @Ba Tê

Em xin phép giải thích lại:
1. Tên CBNV: hiện tại em đang quy định:
+ HUNGTM --> Hùng
+ HAPV1 --> Hà
+ HAIND --> Hải
+ HOAHT3 --> Hoa
+ CUONGKM --> Cường
+ HUYENDTT5 --> Huyền
+ TUANPA4 --> Tuấn
+ VIETTV --> Việt
+ HANHHT1 --> Hạnh (hiện tại chưa phát sinh số liệu, bắt đầu từ tháng 06/2018 sẽ phát sinh số liệu)
+ Nhân viên Mới 1 --> Mới 1 (làm trước dự phòng sẽ tuyển dụng Nhân sự mới trong tháng 06/2018, khi nào phát sinh chỉ việc thay tên bằng tên NS mới)
+ Nhân viên Mới 2 --> Mới 2 (làm trước dự phòng sẽ tuyển dụng Nhân sự mới trong tháng 06/2018, khi nào phát sinh chỉ việc thay tên bằng tên NS mới)
+ Toàn bộ những người khác (những người trước đây có làm việc tại cơ quan nhưng hiện tại đã nghỉ việc, hoặc điều chuyển sang vị trí khác, ví dụ: THUYLV, HUNGVN,......) --> Khác

2. Vùng dữ liệu:
Em đã cố gắng viết theo hướng tối giản nhất để nhân viên của em chỉ việc copy paste value vào bảng tính để ra kết quả (bên em chưa có phần mềm tối ưu BC nên phải làm thủ công bằng tay và các bạn nhân viên gần như không biết gì về excel). Vì thế những cột N, cột O hay cột BJ, BK và BL được ẩn đi để dấu công thức, các bạn nhân viên khi làm báo cáo chỉ copy dữ liệu thô xuất từ hệ thống và paste value vào 2 vùng (P đến U) và (BM đến BR).
Nhu cầu: lấy dữ liệu từ vùng Giải ngân mới trong từng tháng (vùng cột N đến cột U trong từng sheet từ T1 đến T12) (a) và
vùng Thu nợ gốc trong từng tháng (vùng cột BJ đến cột BR trong từng sheet từ T1 đến T12) (b), trong đó yêu cầu:

Vùng Giải ngân mới (a):
- Tên CBNV sẽ lấy căn cứ tại cột N --> Vì cột này mới lấy được tên chung nhóm những CBNV là Khác (như giải thích ở trên), và lấy được tên CBNV là chữ có dấu.
- Cột mục đích cho vay lấy giá trị cột O: để thay thế cho giá trị cột S vì viết tắt dễ hiểu hơn.
Vùng Thu nợ (b):
- Tất cả các giá trị tại vùng (b) này chỉ được lấy khi tương ứng dòng chứa nó có giá trị >=0 tại cột BR (Filter cột BR với điều kiện >=0)
- Tên CBNV sẽ lấy căn cứ tại cột BK --> Vì cột này mới lấy được tên chung nhóm những CBNV là Khác (như giải thích ở trên), và lấy được tên CBNV là chữ có dấu.
- Cột mục đích cho vay lấy luôn giá trị cột BP (hoặc lấy cột BL giống như ở vùng (a) ở trên)

==> Căn cứ Vùng (a) và Vùng (b) để "Liệt kê" vào từng Vùng Thu nợ và Vùng giải ngân của từng CBNV trong sheet "Tong Hop", ví dụ:
+ Vùng Thu nợ (b): Tìm kiếm cứ CBNV nào có tên là "Hà" tại cột BK của sheet "T4" thì lọc và liệt kê sang sheet "Tong Hop" như sau:
Sheet "T4" kết chuyển liệt kê vào sheet "Tong Hop" vùng CBNV "Hà" tương ứng như sau:
BM-->X
BN-->Y
BO-->Z
BL (hoặc BP)-->AA
BR-->AB
+ Vùng Giải ngân mới (a): Tìm kiếm cứ CBNV nào có tên là "Hà" tại cột N của sheet "T4" thì lọc và liệt kê sang sheet "Tong Hop" như sau:
Sheet "T4" kết chuyển liệt kê vào sheet "Tong Hop" vùng CBNV "Hà"tương ứng như sau:
P-->AD
Q-->AE
R-->AF
O-->AG
U-->AH

==> Làm tương tự như vậy với từng CBNV, từ từng sheet từ "T1" đến "T12" lần lượt đưa vào "Liệt kê" tại sheet "Tong Hop"
(Trong file của em gửi dưới đây tại dòng 4 của sheet "Tong Hop" em đã để công thức Test xem kết quả Tổng thu nợ và Giải ngân tại dòng 3 xem có chuẩn "khớp" với dòng 4 hay không.
Ngoài ra, trong sheet "Tong Hop" em muốn tại các cột "Mục đích vay" thì chỉ điền thông tin mục đích vay viết tắt thôi, đọc cho dễ hiểu, chứ liệt kê như lấy từ nguồn BC gốc thì dài lê thê!!)

Trong file bác làm có số liệu phát sinh của NV Mới2 là chưa chuẩn và phần nhân viên "Khác" không phát sinh Thu nợ hay Giải ngân là cũng chưa đúng (thể hiện tại vùng D18:G18) và vùng (D15:E15) tại sheet "Tong Hop" trong file bác làm)

Em xin gửi lại file chuẩn của em, kính nhờ bác làm luôn trên file này để em đỡ ngồi phải sửa lại công thức, do qua nay em có sửa công thức ở những phần hành công việc khác ở sheet khác)

Em cảm ơn rất nhiều ạh!!

NamThienVu · 29/5/18

Ba Tê đã viết:
- Sheet "T4" bạn filter cột BQ mã VIETTV xem có số liệu không?
Kiểm tra tương tự cho các trường hợp bạn thấy sai.

Trong file của em gửi thì T4 bạn VIETTV không phát sinh Thu nợ (Filter cột BQ của sheet T4 sẽ không có số liệu), nhưng lại phát sinh Giải ngân mới 2 khoản tổng tiền là 900.000.000đ.
Sang T5 thì bạn VIETTV vừa phát sinh Thu nợ và vừa Giải ngân

Ba Tê · 30/5/18

NamThienVu đã viết:
Kính gửi bác @Ba Tê

Em xin phép giải thích lại:
..............................................
Em xin gửi lại file chuẩn của em, kính nhờ bác làm luôn trên file này để em đỡ ngồi phải sửa lại công thức, do qua nay em có sửa công thức ở những phần hành công việc khác ở sheet khác)

Em cảm ơn rất nhiều ạh!!

Tôi chỉ cần bạn xác định lấy mã cột N và cột BK ở các sheets T1 -> T12.
Bạn làm việc cũng vui. Mã là "Hùng" --> Nhập vào vùng tên của "Tạ Mạnh Hùng" ở dòng 1 sheet("Tong hop"). (Ác thiệt!)
Tại dòng 1 sheet Tong hop tôi sửa lại thành "Hùng", Bạn muốn có đầy đủ họ tên thì tra từ Data qua ô bên cạnh.

NamThienVu · 31/5/18

Em cảm ơn bác @Ba Tê rất rất nhiều!!

Em đã hoàn thành xong file BC của mình.

NamThienVu · 7/1/19

Em xin phép cả nhà và bác @Ba Tê là khai quật lại chủ đề này

Em xin nhờ các bác và bác @Ba Tê chỉnh sửa lại file giúp em, không hiểu sao lần trước đã được rồi, nay lâu lâu lại bị hỏng tính năng chạy tự động VBA ở trên để liệt kê toàn bộ các số liệu Thu nợ và Giải ngân trong các tháng tại sheet "Tong Hop".

File có dung lượng khá nặng nên em xin để trên dropbox để các bác tiện download:
Link: https://www.dropbox.com/l/scl/AAA5A3W4rXOW7AI1R0hLnLkkpmWgvAv3c0A

Em cảm ơn các bác!!

[XIN TRỢ GIÚP] Tìm kiếm và Liệt kê (1 người xem)

Người dùng đang xem chủ đề này

Thành viên chính thức

File đính kèm

Thành viên chính thức

***

Thành viên chính thức

Thành viên chính thức

File đính kèm

Biên Hòa, Đồng Nai

File đính kèm

Thành viên gắn bó

Chuyên gia GPE

File đính kèm

Thành viên chính thức

Chuyên gia GPE

Biên Hòa, Đồng Nai

Thành viên chính thức

Thành viên chính thức

Chuyên gia GPE

Thành viên chính thức

File đính kèm

Chuyên gia GPE

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Chuyên gia GPE

Cạo Rồi Khỏi Gội

File đính kèm

Cạo Rồi Khỏi Gội

Chuyên gia GPE

Cạo Rồi Khỏi Gội

Thành viên tiêu biểu

Chuyên gia GPE

Thành viên chính thức

Thành viên chính thức

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên chính thức

File đính kèm

Thành viên chính thức

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên chính thức

Thành viên chính thức

Thời gian đếm ngược.