Lọc dữ liệu không theo qui tắc nào

[congthanh6868]

Nếu tác giả topic cần, ta có thể bổ sung vào cácv hàm trẹn đoạn code kiểm tra dữ liệu luôn thể;

(*) Kiểm theo độ dài của chuỗi;
(*) Kiểm theo nhóm 3 ký số

Nếu được vậy thì tốt quá. Bạn có thể giúp mình được không? Rất cám ơn bạn.

 

[SA_DQ]

Nếu được vậy thì tốt quá. Bạn có thể giúp mình được không? Rất cám ơn bạn.

[COLOR=Silver]Option Explicit
[B]Function SoConLai(ThamChieu As String, DauVao As String) As String[/B][/COLOR]
[COLOR=Silver] Dim lDV As Integer, jJ As Integer, VTr As Integer
 Const GPE As String = "@@@"
 
 ThamChieu = ThamChieu & " "
 SoConLai = ThamChieu
 lDV = Len(DauVao):      DauVao = Trim(DauVao) & " " & GPE[/COLOR]
 If lDV Mod 3 <> 0 Then
   SoConLai = "Xem Lai Du Lieu Dau Vao!":       Exit Function
 End If
[COLOR=Silver] For jJ = 1 To lDV Step 3
   VTr = InStr(ThamChieu, Mid(DauVao, jJ, 3))
   If VTr > 0 Then _
      SoConLai = Left(SoConLai, VTr - 1) & GPE & Mid(SoConLai, VTr + 3)
 Next jJ
 SoConLai = Replace(SoConLai, GPE, "") & "|" & lDV
[B]End Function[/B][/COLOR]