Nhờ giải thích giúp mình đoạn code sau (1 người xem)

[lethanhqs]

Function KITURASO(ByVal NumStr As String) As Currency
Dim Ketqua, Kitu As String
Dim I, J As Integer
I = Len(NumStr)
J = 1
Ketqua = ""
While J <= I
Kitu = Mid$(NumStr, J, 1)
If Kitu = "0" Or Kitu = "1" Or Kitu = "2" Or Kitu = "3" Or Kitu = "4" Or Kitu = "5" Or Kitu = "6" Or Kitu = "7" Or Kitu = "8" Or Kitu = "9" Then
Ketqua = Ketqua + Kitu
End If
J = J + 1
Wend
KITURASO = Val(Ketqua)
End Function

 

[vu_tuan_manh_linh]

Đây là 1 hàm đổi ký tự ra số. VD với chuỗi 4324kj63454 thì hàm =Kituraso(4324kj63454) cho kết quả 432463454. Có thể giải thích như sau:
NumStr là giá trị tham chiếu của hàm Kituraso.
Ketqua, Kitu là các biến cần cho quá trình tính toán.
I=len(NumStr) cho ra kết quả là số lượng ký tự của chuỗi NumStr
Vòng lặp While sẽ giúp check từng ký tự trong chuỗi Numstr thông qua biến kitu=mid$(Numstr,j,1). Ở đây, biến Kitu được gán cho kí tự thứ j trong chuỗi Numstr. Nếu kitu là số thì nuối vào biến Ketqua.
Cuối cùng, hàm kituraso sẽ cho giá trị bằng cách chuyển biến ketqua từ dạng text sang dạng số thông qua hàm val().
Thật ra đoạn điều kiện if trong vòng lặp không nhất thiết phải nhiều toán tử or đến như thế, và cũng không cần dùng đến biến kitu. Code có thể đơn giản hơn như sau:

Function KITURASO(ByVal NumStr As String)
Dim i As Integer
  For i = 1 To Len(NumStr)    
    If IsNumeric(Mid(NumStr, i, 1)) = True Then        
      KITURASO = KITURASO & Mid(NumStr, i, 1)    
    End If
  Next
KITURASO = Val(KITURASO)
End Function

 

[ndu96081631]

Đây là 1 hàm đổi ký tự ra số. VD với chuỗi 4324kj63454 thì hàm =Kituraso(4324kj63454) cho kết quả 432463454. Có thể giải thích như sau:
NumStr là giá trị tham chiếu của hàm Kituraso.
Ketqua, Kitu là các biến cần cho quá trình tính toán.
I=len(NumStr) cho ra kết quả là số lượng ký tự của chuỗi NumStr
Vòng lặp While sẽ giúp check từng ký tự trong chuỗi Numstr thông qua biến kitu=mid$(Numstr,j,1). Ở đây, biến Kitu được gán cho kí tự thứ j trong chuỗi Numstr. Nếu kitu là số thì nuối vào biến Ketqua.
Cuối cùng, hàm kituraso sẽ cho giá trị bằng cách chuyển biến ketqua từ dạng text sang dạng số thông qua hàm val().
Thật ra đoạn điều kiện if trong vòng lặp không nhất thiết phải nhiều toán tử or đến như thế, và cũng không cần dùng đến biến kitu. Code có thể đơn giản hơn như sau:

Function KITURASO(ByVal NumStr As String)
Dim i As Integer
  For i = 1 To Len(NumStr)    
    If IsNumeric(Mid(NumStr, i, 1)) = True Then        
      KITURASO = KITURASO & Mid(NumStr, i, 1)    
    End If
  Next
KITURASO = Val(KITURASO)
End Function

Extract number ta dùng vầy mới ngon:

Function ExtractNum(ByVal Text As String) As Double
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = "\D"
    ExtractNum = .Replace(Text, "")
  End With
End Function

Vòng lập gì cho mất công ---> Vì thằng VBScript.RegExp mới là "chuyên gia" về xử lý chuổi đấy nhé

 

[Quang_Hải]

Extract number ta dùng vầy mới ngon:

Function ExtractNum(ByVal Text As String) As Double
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = "\D"
    ExtractNum = .Replace(Text, "")
  End With
End Function

Vòng lập gì cho mất công ---> Vì thằng VBScript.RegExp mới là "chuyên gia" về xử lý chuổi đấy nhé

Cái "\D" có tác dụng gì vậy hả anh?

 

[vu_tuan_manh_linh]

Vòng lập gì cho mất công ---> Vì thằng VBScript.RegExp mới là "chuyên gia" về xử lý chuổi đấy nhé

Hi! Thật ra em gà VBA lắm bác ạ. Gọi là đủ dùng để cải thiện hiệu suất và cải thiện kỹ năng làm việc thôi, chứ không thông tường như IT.

 

[concogia]

Cái "\D" có tác dụng gì vậy hả anh?

Trong VBScript.RegExp thì nó như zì nè

Match any non-digit. Equivalent to [^0-9].

Híc

 

[ndu96081631]

Cái "\D" có tác dụng gì vậy hả anh?

Xem cái này:
http://www.giaiphapexcel.com/forum/showthread.php?16983-Tách-số-không-dùng-vòng-lặp
Download Ebook liên quan tại đây:
http://www.mediafire.com/?a6u3b5d0zj5fo78