Code tách số từ 1 chuổi vừa text vừa số (1 người xem)

[minhtuan55]

Chào cả nhà GPE ! Mình đang dùng phần mềm MISA tới phần báo cáo thuế nó xuất ra vừa mã hàng vừa SL nối lại với nhau. Mà không theo quy luật nào ( right left mid mình thử hết rồi mà chẳng được). Nay nhờ các cao thủ giúp mình. Mình xin chân thành cảm ơn!

Phiên bản mới quá mình không biết gửi File nên từ chổ nào. Mọi người xem ảnh giúp em

 

[Ba Tê]

Giao diện mới lạ quá, chỉ muốn thử đính kèm file coi sao.

 

[befaint]

@minhtuan55:
Có trường hợp nào số lượng là số thập phân không?

 

[minhtuan55]

@minhtuan55:
Có trường hợp nào số lượng là số thập phân không?

Dạ Số lượng chỉ số Nguyên thôi anh

 

[minhtuan55]

Giao diện mới lạ quá, chỉ muốn thử đính kèm file coi sao.

Anh gửi giúp em File xls giúp em. em đang Dùng Office 2003. Thank a

 

[Ba Tê]

Anh gửi giúp em File xls giúp em. em đang Dùng Office 2003. Thank a

Đã chuyển thành .xls, Chọn Enable Macros khi mở file.

 

[minhtuan55]

Đã chuyển thành .xls, Chọn Enable Macros khi mở file.

dạ thank anh. cảm ơn anh em làm được rồi

 

[ndu96081631]

Dạ Số lượng chỉ số Nguyên thôi anh

Liệu có chuỗi nào mà số tồn tại con zero phía trước không? Chẳng hạn là chuỗi 345D04D30
Khi ấy con số 04 khi tách ra sẽ... thế nào? Là 04 hay 4?

 

[minhtuan55]

Liệu có chuỗi nào mà số tồn tại con zero phía trước không? Chẳng hạn là chuỗi 345D04D30
Khi ấy con số 04 khi tách ra sẽ... thế nào? Là 04 hay 4?

Anh nói em mới nhớ. Có số 0 anh ơi. Ví dụ 012DD80 thì lấy ra 012 và 80. Mong anh giúp em

 

[minhtuan55]

Đã chuyển thành .xls, Chọn Enable Macros khi mở file.

Anh ba tê ơi Code có vấn đề rồi. Ví dụ 012DD50 thì em muốn lấy luôn con số 0 luôn . Kết quả là 012 và 50 . Anh cứ lấy ra là được là text cũng được khi nào em muốn cộng trừ nhân chia thì em chế biến sau

 

[concogia]

Anh ba tê ơi Code có vấn đề rồi. Ví dụ 012DD50 thì em muốn lấy luôn con số 0 luôn . Kết quả là 012 và 50 . Anh cứ lấy ra là được là text cũng được khi nào em muốn cộng trừ nhân chia thì em chế biến sau

Thì sửa code của Ba tê lại một tý tẹo

Public Function GPE(Rng As Range, Num As Long) As String
Dim Txt As String, Tmp
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\D"
Txt = .Replace(Rng, " ")
Txt = Application.Trim(Txt)
Tmp = Split(Txt, " ")
End With
If Num <= UBound(Tmp) + 1 Then
GPE = Tmp(Num - 1)
Else
GPE = ""
End If
End Function

Cái mới này ....khó quá
Híc

 

[VetMini]

Thì sửa code của Ba tê lại một tý tẹo

With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\D"
Txt = .Replace(Rng, " ")
Txt = Application.Trim(Txt)
Tmp = Split(Txt, " ")
End With

Cái mới này ....khó quá
Híc

Nếu bạn dùng pattern là số thì hàm Execute sẽ trả về cái match collection mà nó tìm được.