Lọc lấy số trong 1 đoạn văn bản (1 người xem)

[lamquang11]

Tình hình là mình đang cần lấy số trong 1 đoạn văn bản để làm báo cáo cho sếp. Các bạn giúp mình 1 hàm để lọc nhé. File đính kèm.
Xin cám ơn. CHúc các bạn vui vẻ.

 

[nlbx]

Thử:

 

[excel_lv1.5]

Tình hình là mình đang cần lấy số trong 1 đoạn văn bản để làm báo cáo cho sếp. Các bạn giúp mình 1 hàm để lọc nhé. File đính kèm.
Xin cám ơn. CHúc các bạn vui vẻ.

Bạn thử code này:

Function tach(ByVal str As String)
Static reg As Object
If reg Is Nothing Then Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "[\d\.]+\s?x\s?[\d\.]+"
If reg.test(str) Then tach = reg.Execute(str)(0)
End Function

Công thức =tach(A2) copy xuống!!

 

[lamquang11]

Bạn thử code này:

Function tach(ByVal str As String, Optional ByRef reg As Object)
If reg Is Nothing Then Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "[\d\.]+\s?x\s?[\d\.]+"
If reg.test(str) Then tach = reg.Execute(str)(0)
End Function

Công thức =tach(A2) copy xuống!!

Chưa được bạn ơi, bạn thử coi có được ko, sao mình copy nó vào view - code paste rồi mà nó ko ra kết quả. Giúp mình nhé

 

[excel_lv1.5]

Chưa được bạn ơi, bạn thử coi có được ko, sao mình copy nó vào view - code paste rồi mà nó ko ra kết quả. Giúp mình nhé

View-code là chỗ nào bạn, bấm Alt+F11 vào Insert->module dán code ra thôi!!

 

[lamquang11]

View-code là chỗ nào bạn, bấm Alt+F11 vào Insert->module dán code ra thôi!!

OK, Cảm ơn nhiều nhiều