Lọc (Duy nhất & Bỏ dòng trống)->Tạo List từ danh sách lọc đó (2 người xem)

[M@trixs]

Hiện tại M@trixs có 1 file muốn nhờ ACE trong diễn đàn giúp giùm.

Nội dung như tiêu đề: Tức là lọc danh sách (danh sách này không cố định mà có thể được chèn thêm hoặc xóa bớt) với các yêu cầu là dữ liệu nào trùng chỉ tính là 1 dữ liệu, loại bỏ dòng trống. Từ danh sách lọc ra đó sẽ dùng để làm List.

Dữ liệu M@trixs muốn cần lọc lấy là ở Sheet[Thong Tin Chung], Cột E toàn bộ tên viết tắt của các cơ quan, công ty. Và tạo List đó qua Sheet[Ho So] phần tổ chức đơn vị phát hành.

Kính mong ACE giúp đỡ giùm !!!

Dưới đây M@trixs tìm thấy 1 bài cũng hay nhưng tác giả không diễn giải gì nhiều mà chỉ "làm giúp" nên M@trixs đành bó tay...

http://www.giaiphapexcel.com/forum/...rong-Combo-box-và-valiation&p=75356#post75356

 

[Cao Mạnh Sơn]

Hiện tại M@trixs có 1 file muốn nhờ ACE trong diễn đàn giúp giùm.

Nội dung như tiêu đề: Tức là lọc danh sách (danh sách này không cố định mà có thể được chèn thêm hoặc xóa bớt) với các yêu cầu là dữ liệu nào trùng chỉ tính là 1 dữ liệu, loại bỏ dòng trống. Từ danh sách lọc ra đó sẽ dùng để làm List.

Dữ liệu M@trixs muốn cần lọc lấy là ở Sheet[Thong Tin Chung], Cột E toàn bộ tên viết tắt của các cơ quan, công ty. Và tạo List đó qua Sheet[Ho So] phần tổ chức đơn vị phát hành.

Kính mong ACE giúp đỡ giùm !!!

Gửi bạn file nhé, sử dụng xem đúng ý bạn chưa nhé

 

[Good-Luck]

Hiện tại M@trixs có 1 file muốn nhờ ACE trong diễn đàn giúp giùm.

Nội dung như tiêu đề: Tức là lọc danh sách (danh sách này không cố định mà có thể được chèn thêm hoặc xóa bớt) với các yêu cầu là dữ liệu nào trùng chỉ tính là 1 dữ liệu, loại bỏ dòng trống. Từ danh sách lọc ra đó sẽ dùng để làm List.


Dữ liệu M@trixs muốn cần lọc lấy là ở Sheet[Thong Tin Chung], Cột E toàn bộ tên viết tắt của các cơ quan, công ty. Và tạo List đó qua Sheet[Ho So] phần tổ chức đơn vị phát hành.

Kính mong ACE giúp đỡ giùm !!!

Dưới đây M@trixs tìm thấy 1 bài cũng hay nhưng tác giả không diễn giải gì nhiều mà chỉ "làm giúp" nên M@trixs đành bó tay...

http://www.giaiphapexcel.com/forum/...rong-Combo-box-và-valiation&p=75356#post75356

bạn xem lại có đúng yêu cầu của bạn ko???

 

[M@trixs]

Cả 2 cách của bạn @Cao Mạnh Sơn và bạn @Good-luck đều đáp ứng được yêu cầu cơ bản của mình. Tuy nhiên nếu được thì các bạn có thể giúp mình thêm một tí nữa được không ???

@Cao Mạnh Sơn: Cách của bạn không tạo ra Sheet mới mà dùng VBA, Mình rất thích cách này. Tuy nhiên bạn có thể chuyển từ Combobox sang List được không, vì nhìn combobox vừa xấu mà nó lại bị cái lỗi Unicode nên nhìn không hay lắm.

@Good-Luck: M@trixs cũng thích cách dùng Name động và Offset để tạo cái lít này. Nhưng chưa biết cách. Bạn có thể thuyết minh một ít giúp M@trixs không. Nếu được chi tiết càng tốt.

Mình cũng vừa tạo 1 sheet nữa là [Hop Dong]. Mong muốn của mình cũng là tạo 1 List dựa vào mã hiệu hợp đồng. Bây giờ nhờ các bạn lọc ra dùm mình những hồ sơ nào là hợp đồng thì lọc nó ra và tạo List giùm mình.

@Good-Luck: Nếu được thì bạn lọc nó ra chung với cái Sheet mà bạn tự tạo có tên tiếng Tàu Khựa giùm mình luôn nhé. Mà bạn đặt tên nó lại lun đi nhé....

 

[huuthang_bd]

Cả 2 cách của bạn @Cao Mạnh Sơn và bạn @Good-luck đều đáp ứng được yêu cầu cơ bản của mình. Tuy nhiên nếu được thì các bạn có thể giúp mình thêm một tí nữa được không ???

@Cao Mạnh Sơn: Cách của bạn không tạo ra Sheet mới mà dùng VBA, Mình rất thích cách này. Tuy nhiên bạn có thể chuyển từ Combobox sang List được không, vì nhìn combobox vừa xấu mà nó lại bị cái lỗi Unicode nên nhìn không hay lắm.

@Good-Luck: M@trixs cũng thích cách dùng Name động và Offset để tạo cái lít này. Nhưng chưa biết cách. Bạn có thể thuyết minh một ít giúp M@trixs không. Nếu được chi tiết càng tốt.

Mình cũng vừa tạo 1 sheet nữa là [Hop Dong]. Mong muốn của mình cũng là tạo 1 List dựa vào mã hiệu hợp đồng. Bây giờ nhờ các bạn lọc ra dùm mình những hồ sơ nào là hợp đồng thì lọc nó ra và tạo List giùm mình.

@Good-Luck: Nếu được thì bạn lọc nó ra chung với cái Sheet mà bạn tự tạo có tên tiếng Tàu Khựa giùm mình luôn nhé. Mà bạn đặt tên nó lại lun đi nhé....

Bạn xem trong file nhé.

 

[M@trixs]

Bạn xem trong file nhé.

Phần này của bạn làm chỉ chạy OK trên Sheet[Ho So]. Còn Sheet[Hop Dong] ở cột {Hợp đồng số} nó chẳng chịu chạy cho. Mong bạn xem lại giùm mình nhé....Nội dung như vậy cũng được rồi đấy, còn tí xíu nữa hà....

 

[huuthang_bd]

Phần này của bạn làm chỉ chạy OK trên Sheet[Ho So]. Còn Sheet[Hop Dong] ở cột {Hợp đồng số} nó chẳng chịu chạy cho. Mong bạn xem lại giùm mình nhé....Nội dung như vậy cũng được rồi đấy, còn tí xíu nữa hà....

Bạn không nói rõ ràng sao mà giúp. Bạn phải cho biết nguồn dữ liệu lấy từ vùng nào, validation tạo ở vùng nào thì tôi mới giúp được chứ. Không lẽ cùng một vùng vừa làm nguồn dữ liệu vừa làm validation.

 

[Good-Luck]

Phần này của bạn làm chỉ chạy OK trên Sheet[Ho So]. Còn Sheet[Hop Dong] ở cột {Hợp đồng số} nó chẳng chịu chạy cho. Mong bạn xem lại giùm mình nhé....Nội dung như vậy cũng được rồi đấy, còn tí xíu nữa hà....

bạn xem lại nhe, mình đã chỉnh lại rồi

 

[M@trixs]

Bạn @Good-Luck làm gọn lại đẹp rồi đấy. Nhưng @Good-Luck và bạn @HuuThang_BD chưa hiểu được yêu cầu của mình rồi. Hiện mình đã ghi rõ yêu cầu của mình ở file đính kèm. Các bạn tải về giúp mình với nhé. Sắp đến đích rồi....

 

[Quang_Hải]

Bạn @Good-Luck làm gọn lại đẹp rồi đấy. Nhưng @Good-Luck và bạn @HuuThang_BD chưa hiểu được yêu cầu của mình rồi. Hiện mình đã ghi rõ yêu cầu của mình ở file đính kèm. Các bạn tải về giúp mình với nhé. Sắp đến đích rồi....

Thử thế này xem sao. Bạn vẽ hình nhiều quá nhìn rối quá.

 

[M@trixs]

Được rồi đấy. Làm sao vậy bạn, giải thích giùm tí nhé. Mà sao phải thêm 1 Name nữa vậy ???
Mình thấy cái của Good-Luck hình như cũng đủ Name rồi. Nhưng sao không chạy được cái ListHopDong ???

 

[Quang_Hải]

Được rồi đấy. Làm sao vậy bạn, giải thích giùm tí nhé. Mà sao phải thêm 1 Name nữa vậy ???
Mình thấy cái của Good-Luck hình như cũng đủ Name rồi. Nhưng sao không chạy được cái ListHopDong ???

Name của ai người đó xài thôi. Bài toán đơn giản mà bạn làm làm căng thẳng quá làm mình rối theo.
Bạn có thể bấm Ctrl F3 và thấy cái name nào không cần thì xóa hết đi. Minh không xài cái name nào hết đâu. Khi chọn vào sheet unique thì name HD sẽ được tạo tự động

 

[Good-Luck]

Thử thế này xem sao. Bạn vẽ hình nhiều quá nhìn rối quá.

Ông Anh Này Toàn xài đao to búa lớn ko a, kinh qua đi. hàng free ko xài toàn móc tiền túi mua mới, dân nghèo (Trình độ kiến thức) nên tận dụng những gì bill free cho thôi

 

[Quang_Hải]

Ông Anh Này Toàn xài đao toa búa lớn ko a, kinh qua đi. hàng free ko xài toàn móc tiền túi mua mới, dân nghèo nên tận dụng những gì bill free cho thôi

Thấy mọi người xài công thức mà mình thán phục. Mình múa vài công thức cơ bản thì được chứ gặp em nào khó tí là mình viết code cho khỏe. Nếu ngồi suy nghĩ được cái công thức đó là tới tết Công Gô

 

[M@trixs]

Mọi người cho phép M@trixs cảm ơn nhé !!!

Cũng vì kiến thức chưa tới nên phải làm phiền nhưng cũng biết cách hỏi nên làm mọi người rối.

Cũng đang muốn học về cách dùng công thức Name, Offset như mọi người, nhưng tìm mãi chả biết học nơi mô. Nếu được mọi người chỉ giúp M@trixs với....

 

[Hong.Van]

Mọi người cho phép M@trixs cảm ơn nhé !!!

Cũng vì kiến thức chưa tới nên phải làm phiền nhưng cũng biết cách hỏi nên làm mọi người rối.

Cũng đang muốn học về cách dùng công thức Name, Offset như mọi người, nhưng tìm mãi chả biết học nơi mô. Nếu được mọi người chỉ giúp M@trixs với....

Học ở đây
http://www.giaiphapexcel.com/forum/...-Lookup-Function-Các-Hàm-dò-tìm-và-tham-chiếu

 

[Good-Luck]

Mọi người cho phép M@trixs cảm ơn nhé !!!

Cũng vì kiến thức chưa tới nên phải làm phiền nhưng cũng biết cách hỏi nên làm mọi người rối.

Cũng đang muốn học về cách dùng công thức Name, Offset như mọi người, nhưng tìm mãi chả biết học nơi mô. Nếu được mọi người chỉ giúp M@trixs với....

bạn tham khảo tại đây
http://www.giaiphapexcel.com/forum/showthread.php?7188-Hàm-Offset-và-Validation

 

[Good-Luck]

Thấy mọi người xài công thức mà mình thán phục. Mình múa vài công thức cơ bản thì được chứ gặp em nào khó tí là mình viết code cho khỏe. Nếu ngồi suy nghĩ được cái công thức đó là tới tết Công Gô

Anh Hải ơi bài của anh còn 1 chút công đoạn chưa hoàn thành (chưa lọc Duy nhất bộ phận và Mã hợp đồng)

Nếu số HĐ mà bị trùng thì mình cho nhân viên này nghỉ việc cho rồi.

Cái đó là nói theo yêu cầu của đề bài (chủ top) thôi, ko phải Ý riêng của em à nha,

 

[Quang_Hải]

Anh Hải ơi bài của anh còn 1 chút công đoạn chưa hoàn thành (chưa lọc Duy nhất bộ phận và Mã hợp đồng)

Nếu số HĐ mà bị trùng thì mình cho nhân viên này nghỉ việc cho rồi.

Private Sub Worksheet_Activate()
Dim cell, dl(), i
[A2:B1000].ClearContents
With CreateObject("scripting.dictionary")
   For Each cell In Sheet1.[E46:E64]
      If cell <> "" And Not .exists(cell.Value) Then
        .Add cell.Value, ""
      End If
   Next
   If .Count Then [A2].Resize(.Count) = Application.Transpose(.keys)
   .RemoveAll
   dl = Sheet3.Range(Sheet3.[b6], Sheet3.[C65536].End(3)).Value
   For i = 1 To UBound(dl)
      If dl(i, 1) = [B1].Value Then
         If Not .exists(dl(i, 2)) Then
            .Add dl(i, 2), ""
         End If
      End If
   Next
   If .Count Then [B2].Resize(.Count) = Application.Transpose(.keys)
End With
ThisWorkbook.Names.Add "HD", Range([B2], [B65536].End(3))
End Sub

 

[M@trixs]

Nếu số HĐ mà bị trùng thì mình cho nhân viên này nghỉ việc cho rồi.

Private Sub Worksheet_Activate()
Dim cell, dl(), i
[A2:B1000].ClearContents
With CreateObject("scripting.dictionary")
   For Each cell In Sheet1.[E46:E64]
      If cell <> "" And Not .exists(cell.Value) Then
        .Add cell.Value, ""
      End If
   Next
   If .Count Then [A2].Resize(.Count) = Application.Transpose(.keys)
   .RemoveAll
   dl = Sheet3.Range(Sheet3.[b6], Sheet3.[C65536].End(3)).Value
   For i = 1 To UBound(dl)
      If dl(i, 1) = [B1].Value Then
         If Not .exists(dl(i, 2)) Then
            .Add dl(i, 2), ""
         End If
      End If
   Next
   If .Count Then [B2].Resize(.Count) = Application.Transpose(.keys)
End With
ThisWorkbook.Names.Add "HD", Range([B2], [B65536].End(3))
End Sub

Đã lọc được rất tốt, nhưng khó ở chổ vì Sheet UniqueList mình sẽ cho luôn luôn ẩn, mà theo cách của bạn muốn nó lọc thì phải chọn Sheet UniqueList một cái để nó cập nhập danh sách lọc, vậy làm sao để nó có thể tự động cập nhập danh sách mà mình không cần thao tác nào trên sheet UniqueList không ????

Hoặc làm sao để nó nhận biết được mình đã thay đổi ở sheet [ThongTinChung] hoặc Sheet [HoSo] mà tự "làm mới" Sheet [UniqueList]