Hàm Tách Số Từ Trong Chuỗi | Giải Pháp Excel

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Hàm tách số từ trong chuỗi (1 người xem)

Thread starter Thread starter PhanTuHuong
Ngày gửi Ngày gửi 16/2/09

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,785 Trong một chuỗi gồm cả số và chữ, hàm RemoveNonNumeric dưới đây sẽ tách các số đó. Các số rời rạc được sắp xếp với nhau thành một con số để có thể tính toán được. Hàm này ngắn gọn hơn hàm trong sách Lập trình VBA PHP: Sao chép. 'Nguồn từ tác giả Andrew Baker trang www.vbusers.com' Function RemoveNonNumeric(sNumberToClean As String) As String Const NUMERIC_CHARS = "0123456789.," Dim lThisChar As Long Dim sResult As String For lThisChar = 1 To Len(sNumberToClean) If InStr(1, NUMERIC_CHARS, Mid$(sNumberToClean, lThisChar, 1)) > 0 Then 'Found a numeric character' sResult = sResult + Mid$(sNumberToClean, lThisChar, 1) End If Next 'Return the result RemoveNonNumeric = sResult End Function Kết quả như ở hình 18-16 dưới đây:

Chỉnh sửa lần cuối bởi điều hành viên: 16/2/09 Sắp xếp theo thời gian sắp xếp theo bầu chọn

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 Thầy ơi! Tôi nghĩ cái này mới là vô địch đây: Tách số không dùng vòng lặp Upvote 0

hoangdanh282vn

Nguyễn Cảnh Hoàng Danh

Thành viên danh dự Tham gia 21/12/07 Bài viết 1,902 Được thích 5,308 Nghề nghiệp Kinh doanh các mặt hàng văn phòng phẩm Hàm tách số từ chuỗi PHP: Sao chép. Function StrNonNum(Str As String) As String Dim i as long For i = 1 To Len(Str) If IsNumeric(Mid(Str, i, 1)) Then StrNonNum = StrNonNum + Mid(Str, i, 1) Next End Function Và đây là hàm ngược lại với hàm trên : PHP: Sao chép. Function StrNonText(Str As String) As String StrNonText = Replace(Replace(Replace(Replace(Replace(Replace _ (Replace(Replace(Replace(Replace(Str, "0", ""), "1", ""), "2", "") _ , "3", ""), "4", ""), "5", ""), "6", ""), "7", ""), "8", ""), "9", "") End Function Upvote 0 T

tudong

Thành viên mới

Tham gia 15/5/08 Bài viết 1 Được thích 0 Bạn có thể giúp mình cách cài hàm tách số từ trong chữ hay không Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,859 Được thích 10,349 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts

ndu96081631 đã viết: Thầy ơi! Tôi nghĩ cái này mới là vô địch đây: Tách số không dùng vòng lặp Nhấp chuột vào đây để mở rộng...

Mã: Sao chép. 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 Trên là code sử dụng thư viện của VBScript với ứng dụng Class của nó là RegExp. Đứng về góc độ lập trình thì để làm được việc ngắn gọn trên, các nhà lập trình cũng phải viết những mã lệnh xử lý và có lẽ vẫn là dùng vòng lặp. Quá trình làm việc đó được gói trong một Class với hàm Replace. Việc ngắn gọn đó là do ta nhìn về hình thức thôi. Việc tốc độ chạy nhanh hay không em chưa có dịp so sánh nhưng VBScript được lập trình bằng C++ bởi các chuyên gia MS thì chắc tốc độ là rất nhanh. Nếu hàm trên anh Hướng viết trong DLL rồi nó cài vào máy, người ta chỉ cần viết thế này Mã: Sao chép. Function TachSo(Cell As Range) As Double Set Temp = CreateObject("VB6DLL.TACHGIATRI") Temp.RemoveNonNumeric(Cell) Set Temp = Nothing End Function Một người nào đó nhìn vào code trên lại thấy "ngắn gọn quá, không dùng vòng lặp". Nói vậy chứ em quan điểm vẫn thích áp dụng tối đa những thư viện đã có trong hệ thống, hoặc các thư viện được cung cấp free mà nó đã được thừa nhận là tốt. Mình tận dụng nó để làm ra những cái có một giá trị mới. Cần viết riêng trong trường hợp tin rằng cái của mình là tối ưu hơn hoặc để học tập. Upvote 0 T

tipil

Thành viên mới

Tham gia 2/6/09 Bài viết 24 Được thích 2 Nếu em muốn tách số trong dãy ký tự này thì sao ạ? 12/03/2010 Upvote 0

hoangminhtien

Thành viên gắn bó

Tham gia 29/2/08 Bài viết 1,685 Được thích 2,228 Nghề nghiệp Mechanical Engineering

tipil đã viết: Nếu em muốn tách số trong dãy ký tự này thì sao ạ? 12/03/2010 Nhấp chuột vào đây để mở rộng...

Trong tr[FONT=&quot]ường hợp của bạn, bạn chọn toàn bộ vùng cần chuyển, vào Format Cells...(Ctr+1)[/FONT][FONT=&quot] chọn tab number, chọn Custom rồi định dạng ddmmyyyy trong hộp Type. Sau đó nhấn OK[/FONT] Upvote 0 T

tuandovn

Thành viên mới

Tham gia 25/8/08 Bài viết 8 Được thích 0 Em có một dãy ký tự gồm cả số và chữ vd: mã thẻ bảo hiểm 52300725716TC52117. Giờ em muốn tách lấy thành 1 cột có 2 ký tự chữ trong chuỗi trên. Xin được giúp đỡ. Upvote 0 H

hoanggiaovien

Thành viên mới

Tham gia 7/5/11 Bài viết 1 Được thích 0

hoangminhtien đã viết: Trong tr[FONT=&quot]ường hợp của bạn, bạn chọn toàn bộ vùng cần chuyển, vào Format Cells...(Ctr+1)[/FONT][FONT=&quot] chọn tab number, chọn Custom rồi định dạng ddmmyyyy trong hộp Type. Sau đó nhấn OK[/FONT] Nhấp chuột vào đây để mở rộng...

Nhờ Bác hướng dẫn cụ thể cho em với. em muốn tách: 23/03/2011 thành cột ngày 23 tháng 03 và năm 2011 riêng để tính nhưng không được. Cứ lớn hơn 12 là báo lỗi Upvote 0 A

adua29

Real-life Girls Super Сasual Dating

Tham gia 29/4/08 Bài viết 156 Được thích 111 Giới tính Nam Nghề nghiệp Health

hoanggiaovien đã viết: Nhờ Bác hướng dẫn cụ thể cho em với. em muốn tách: 23/03/2011 thành cột ngày 23 tháng 03 và năm 2011 riêng để tính nhưng không được. Cứ lớn hơn 12 là báo lỗi Nhấp chuột vào đây để mở rộng...

Bạn dùng các hàm day(), month(), year cho từng cột, ví dụ: A1= 23/3/2001 (định dạng ngày) B1=day($A1); C1=month($A1); D1=year($A1) Upvote 0 M

mymy88

Thành viên mới

Tham gia 17/11/12 Bài viết 1 Được thích 0 Các anh chị giúp e với, e muốn tách số và chữ trong chuôi DT:5624m2 thì làm như thế nào ? e xem may cách ở trên nhưng không hiểu gì hết huhu. Chỉ giúp e lại nhe.Tks cả nhà Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981

mymy88 đã viết: Các anh chị giúp e với, e muốn tách số và chữ trong chuôi DT:5624m2 thì làm như thế nào ? e xem may cách ở trên nhưng không hiểu gì hết huhu. Chỉ giúp e lại nhe.Tks cả nhà Nhấp chuột vào đây để mở rộng...

Cụ thể bạn muốn tách số gì và chữ gì ra? Kết quả bạn cần là gì? Upvote 0