nhokckuaju95
Thành viên mới
- Tham gia
- 29/9/11
- Bài viết
- 9
- Được thích
- 0
Chuỗi phức tạp - Nhờ các cao thủ giúp!
Thân gửi các tín đồ Giải pháp Excell.
Tại hạ có vấn đề muốn nhờ các cao thủ giúp đỡ như sau:
1. Sử lý chuỗi.
Vd: ta có chuỗi như sau:
địa chỉ (A4) abc.123 abc ve,321654, 12-32. ad-65-32; 12-65-123-987-654-abc3
Tại hạ muốn nhờ các cao thủ thiết kế hàm hay code để có kết quả như sau:
Tại (b4) kết quả =abc.123.abc.ve.321654.12-32.ad-65-32.12.6.123.987.654.abc3.
Giải thích: Nếu trong chuỗi có các ký tự: "cách", " trống ", "phẩy", " chấm phẩy" thì sửa thành "dấu chấm"và những ký tự liền nhau "xx-xx", "xx-xx-xx". thì giữ nguyên. Còn lại những chuỗi có nhiều gạch"xx-xx-xx-xx-xx-xx" thay vào bằng dấu chấm.
Cái này rất khó mong muốn các tiền bối chỉ giáo.
2. Cách add các Module tại office 2007.
Tại hạ add các mã này bằng cách nhấn tổ hợp phím: Alt + F11 và dán nó vào Module. sau khi save thì máy nó ko chịu cho save. mong các tiền bối giúp.
VD code này:
"Function TachSo(Cell As Range) As Double
Set Temp = CreateObject("VBScript.RegExp")
Temp.Global = True
Temp.Pattern = "[^0-9]"
TachSo = Temp.Replace(Cell, "")
End Function"
Xin cảm ơn các tiền bối đã ghé đọc.!
Trân trọng cảm ơn!
Thân gửi các tín đồ Giải pháp Excell.
Tại hạ có vấn đề muốn nhờ các cao thủ giúp đỡ như sau:
1. Sử lý chuỗi.
Vd: ta có chuỗi như sau:
địa chỉ (A4) abc.123 abc ve,321654, 12-32. ad-65-32; 12-65-123-987-654-abc3
Tại hạ muốn nhờ các cao thủ thiết kế hàm hay code để có kết quả như sau:
Tại (b4) kết quả =abc.123.abc.ve.321654.12-32.ad-65-32.12.6.123.987.654.abc3.
Giải thích: Nếu trong chuỗi có các ký tự: "cách", " trống ", "phẩy", " chấm phẩy" thì sửa thành "dấu chấm"và những ký tự liền nhau "xx-xx", "xx-xx-xx". thì giữ nguyên. Còn lại những chuỗi có nhiều gạch"xx-xx-xx-xx-xx-xx" thay vào bằng dấu chấm.
Cái này rất khó mong muốn các tiền bối chỉ giáo.
2. Cách add các Module tại office 2007.
Tại hạ add các mã này bằng cách nhấn tổ hợp phím: Alt + F11 và dán nó vào Module. sau khi save thì máy nó ko chịu cho save. mong các tiền bối giúp.
VD code này:
"Function TachSo(Cell As Range) As Double
Set Temp = CreateObject("VBScript.RegExp")
Temp.Global = True
Temp.Pattern = "[^0-9]"
TachSo = Temp.Replace(Cell, "")
End Function"
Xin cảm ơn các tiền bối đã ghé đọc.!
Trân trọng cảm ơn!
Lần chỉnh sửa cuối:
