Trích xuất số từ chuỗi - Ví dụ về mã VBA

Trích xuất phần số của chuỗi

Hàm sau sẽ trích xuất phần số từ một chuỗi:

Hàm Extract_Number_from_Text (Cụm từ dưới dạng chuỗi) Dưới dạng Double Dim Length_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len (Cụm từ) Temp = "" Đối với Current_Pos = 1 To Length_of_String If (Mid (Phrase, Current_Pos, 1) = "- ") Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If Next Current_Pos If Len (Temp) = 0 Then Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl (Temp) End If Kết thúc chức năng

Ví dụ:

Extract_Number_from_Text (“uuigguo 995”) sẽ trả về 995
Extract_Number_from_Text (“uuigguo 0,12995”) sẽ trả về 0,12995
Extract_Number_from_Text (“yu00.000456”) sẽ trả về 0,000456
= Extract_Number_from_Text (“juii-0009.9987iihiii”) sẽ trả về -0,9987
Nếu không có số nào trong cụm từ thì trả về số 0.

Để tải xuống tệp .XLSM từ bài viết này, hãy nhấp vào đây.