Lọc Tách Dữ Liệu

[doanhoanghai]

Các bạn ơi mình có vấn đề này mà nghĩ mãi không biết giải quyết sao nữa mong các bạn giúp mình với nhé !

 

[cadafi]

Bạn xem file đính kèm nhé! Dùng MID, LEFT, RIGHT, SUBSTITUTE, FIND để giải quyết bài này!

 

[hoangdanh282vn]

Các bạn ơi mình có vấn đề này mà nghĩ mãi không biết giải quyết sao nữa mong các bạn giúp mình với nhé !

Xin chi hỏi thêm là bạn muốn làm bằng VBA hay công thức.
BẠn làm được hàm ETEXT thì mình nghĩ chắc bạn sẽ làm được câu hỏi này.

 

[hoangminhtien]

thêm 1 cách nữa cho bạn tham khảo nhé

 

[doanhoanghai]

Mình muốn làm bằng VBA !

hic mình muốn làm bằng VBA thể có thể hiểu hơn à chứ bạn cho mình công thức mình nhìn hoa mắt quá !

 

[sealand]

Mình làm công thức khác và không ghép gọn công thức, bạn xem nếu được thì ghép lại sau.(Ồ xem lại thì cách của mình gần giống của bạn Tiến)

 

[huuthang_bd]

To hoangminhtien, sealand
Cách làm của hai bạn nếu trong họ tên người nào đó có chuỗi "THE" (VD: LY THE VINH THE BAC [124], HOANG MINH THE THE VANG [564]) thì sẽ ra kết quả sai.
Mình cũng có một cách dùng công thức. Các bạn tham khảo nha.

 

[SA_DQ]

Thích thì chìu

hic mình muốn làm bằng VBA thể có thể hiểu hơn à chứ bạn cho mình công thức mình nhìn hoa mắt quá !

Option Explicit
Sub TachMaThe()
 Dim Wf As Long:                       Dim VTr As Integer
 Const Vang As String = "THE VANG":    Const Bac As String = "THE BAC"
 Const Ng1 As String = "[":            Const Ng2 As String = "]"
 
 For Wf = 2 To [b65432].End(xlUp).Row
   With Cells(Wf, "B")
      If InStr(1, .Value, Vang) > 0 Or InStr(1, .Value, Bac) > 0 Then _
         .Offset(, 3) = IIf(InStr(1, .Value, Vang) > 0, Vang, Bac)
      VTr = InStr(1, .Value, Ng1)
      If VTr > 0 Then _
         .Offset(, 4) = Mid(.Value, VTr + 1, InStr(1, .Value, Ng2) - VTr - 1)
   End With
 Next Wf
End Sub

 

[SA_DQ]

Tăng tốc một tẹo & sẽ là khó hiểu hơn một tẹo!

Option Explicit:           Option Base 1
Sub TachMaThe()
 Dim Rng As Range, aRng As Range:      ReDim MThe(3) As String
 Dim zW As Byte
 MThe(1) = "THE VANG":                 MThe(2) = "THE BAC"
 MThe(3) = "[":
 Dim GPE_Address As String
 
 With Range([B2], [B65432].End(xlUp))
   For zW = 1 To 3
      Set Rng = .Find(What:=MThe(zW), LookIn:=xlValues)
      If Not Rng Is Nothing Then
         GPE_Address = Rng.Address
         If zW < 3 Then
            Set aRng = Rng
         Else
            SoThe Rng
         End If
         Do
            If zW < 3 Then
               Set aRng = Union(aRng, Rng)
            Else
               SoThe Rng
            End If
            Set Rng = .FindNext(Rng)
         Loop While Not Rng Is Nothing And Rng.Address <> GPE_Address
      End If
      If zW < 3 Then _
         aRng.Offset(, 3) = MThe(zW)
   Next zW
 End With
End Sub

[B]Sub SoThe(Clls As Range)[/B]
 Dim VTr As Byte
 VTr = InStr(1, Clls, Chr(91)) + 1
 Clls.Offset(, 4) = Mid(Clls, VTr, Len(Clls) - VTr)
[B]End Sub[/B]

 

[bangkd]

Cái hàm =ISERR[FONT=Arial,sans-serif](value)

[/FONT][FONT=Arial,sans-serif]Nếu Value = #value! thì trả về TRUE, trái lại thì là FAULT.

Tại sao thế nhỉ?[/FONT]

 

[hoangminhtien]

Cái hàm =ISERR[FONT=Arial,sans-serif](value)

[/FONT][FONT=Arial,sans-serif]Nếu Value = #value! thì trả về TRUE, trái lại thì là FAULT.

Tại sao thế nhỉ?[/FONT]

Hàm =ISERR (Value) Kiểm tra có phải là một lỗi ngoại trừ lỗi #N/A. vì vậy khi Value là 1 lỗi ngoại trừ lỗi #NA thì sẽ cho giá trị True, Nếu không sẽ là giá trị False. chứ không phải nếu Value=#Value! thì trả về True, Trái lại thì là false đâu bạn ạ

 

[xuro3]

các anh chị cao thủ thật... nhưng em chóng hết cả mặt, hoa hết cả mắt...
nói chung là càng ngày em càng thấy anh excel "to lớn" và "khó hiểu" nhưng vì thế càng ngày em càng yêu excel

em chưa biết nhiều về excel nhưng em thấy ở một số mẫu có cách lọc dữ liệu (có lẽ là thường thức trong ex nhưng do em chưa biết nhiều nên không biết cách đó) như sau
- cách 1: thấy ở mỗi ô trong 1 chỉ tiêu thấy bên cạnh có 1 ô nổi mà kích vào đó có thể hiện ra các mã (mã hàng hoặc số tài khoản...)để mình lựa chọn.
- cách 2: thấy ở 1 ô như kiểu ở sổ cái tài khoản, cũng có 1 ô nhỏ nhỏ (có mũi tên trong) kích vào nó để lựa chọn số tài khoản xem sổ cái.
ơ hơ, em chưa biết cách tạo những nút lọc tài liệu đó, các bác chỉ giùm em với.
(em cứ tưởng em biết nhiều về excel mà cuối cùng thấy nó thật mênh mông, những gì em biết thật chả bằng hạt cát ở biển á.ổing được học hỏi!)

 

[huuthang_bd]

các anh chị cao thủ thật... nhưng em chóng hết cả mặt, hoa hết cả mắt...
nói chung là càng ngày em càng thấy anh excel "to lớn" và "khó hiểu" nhưng vì thế càng ngày em càng yêu excel

em chưa biết nhiều về excel nhưng em thấy ở một số mẫu có cách lọc dữ liệu (có lẽ là thường thức trong ex nhưng do em chưa biết nhiều nên không biết cách đó) như sau
- cách 1: thấy ở mỗi ô trong 1 chỉ tiêu thấy bên cạnh có 1 ô nổi mà kích vào đó có thể hiện ra các mã (mã hàng hoặc số tài khoản...)để mình lựa chọn.
- cách 2: thấy ở 1 ô như kiểu ở sổ cái tài khoản, cũng có 1 ô nhỏ nhỏ (có mũi tên trong) kích vào nó để lựa chọn số tài khoản xem sổ cái.
ơ hơ, em chưa biết cách tạo những nút lọc tài liệu đó, các bác chỉ giùm em với.
(em cứ tưởng em biết nhiều về excel mà cuối cùng thấy nó thật mênh mông, những gì em biết thật chả bằng hạt cát ở biển á.ổing được học hỏi!)

Bạn đang đề cập đến hai vấn đề khác nhau:
-Thứ nhất: Tạo một list để chọn giá trị của ô từ list đó. Giá trị của ô chỉ có thể là một trong những giá trị của list. Cách làm như sau: Tạo một cột danh sách bao gồm tất cả các giá trị của list. Sau đó, đứng ở ô cần nhập dữ liệu bạn vào Data - Validation..., ở phần Allow chọn list, Phần Souce bạn quét chọn cột danh sách các giá trị bạn nhập lúc đầu và nhấn ok là xong.
-Thứ hai: Dùng công cụ lọc Autofilter. Cách làm như sau: Quét chọn các dòng tiêu đề(các trường) bạn muốn lọc. Chọn Data - Filter - AutoFilter. Lúc đó sẽ xuất hiện dấu mũi tên xuống bên cạnh các tiêu đề bạn đã chọn. Bây giờ bạn có thể click vào dấu mũi tên đó để lọc theo ý mình.

 

[xuro3]

Cách lọc theo cách 2 như bạn nói thì mình vẫn sử dụng.
Nhưng ý mình là tạo được nút lọc như ở sổ cái trên sổ kế toán mà dân kế hay sử dụng đó. thế nào nhỉ, bạn mở file mình gửi nhé:

 

[xuro3]

à, rồi mình đã tìm ra cách lọc mà bạn chỉ như cách thứ 1. Nhưng cách lọc này thì làm thế nào các bạn? (chịu khó xem file gửi kèm nhé)

 

[cadafi]

à, rồi mình đã tìm ra cách lọc mà bạn chỉ như cách thứ 1. Nhưng cách lọc này thì làm thế nào các bạn? (chịu khó xem file gửi kèm nhé)

Đây là combobox của Control Toolbox

Bạn tìm hiểu thêm về combobox động tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?p=99276