Google Trang tính xóa số khỏi văn bản

Tôi chỉ muốn cảm ơn bạn về mã VB này.
Đó chỉ là những gì tôi cần

P. S. Xin lỗi vì vốn tiếng anh nghèo của tôi

www. người xúi giục. gr đã viết

Bạn có thể thử Chức năng tùy chỉnh này

26-Oct-07

Bạn có thể thử Chức năng tùy chỉnh này. Sao chép mã vào cửa sổ VBA của
tệp của bạn rồi chuyển đến ô B1 và nhập =RemoveTexts(A1)

Hàm này kiểm tra từng ký tự của ô mục tiêu và chỉ giữ
ký tự số. Trước khi trả lại số, nó thực sự chuyển đổi
số thành số (vì vậy 123 sẽ là số, không phải văn bản). Đối với các ô trống hoặc chỉ có văn bản
, giá trị này sẽ trả về 0.

Xóa văn bản hàm công khai(Đích dưới dạng phạm vi)
Làm mờ dưới dạng chuỗi
For i = 1 To Len(Đích. Giá trị)
t = Mid(Mục tiêu. Giá trị, i, 1)
Nếu IsNumeric(t) = True Thì
RemoveTexts = RemoveTexts & t
Kết thúc NếuKết thúc NếuNext i
RemoveTexts = Val(RemoveTexts)
End Function

Bài viết trước trong chủ đề này

Vào Thứ Sáu, ngày 26 tháng 10 năm 2007 2. 03 giờ chiều
Dav đã viết.

Xóa số khỏi chuỗi chữ và số
Xin chào,

Tôi có một giá trị trong Ô A của ABC123

Tôi muốn Ô B1 chứa 123 từ ô này

Mọi người có thể cho tôi biết công thức để nhập vào B1 không. Tôi chắc chắn rằng tôi đã nhìn thấy nó
ở đâu đó trước đây nhưng không thể đặt ngón tay lên nó.

Cảm ơn.
Dave

Vào Thứ Sáu, ngày 26 tháng 10 năm 2007 2. 19 giờ tối
Bob Umlas đã viết.

nếu nó luôn ở vị trí thứ 4 thì =mid(A1,4,255).
nếu nó luôn ở vị trí thứ 4 thì =mid(A1,4,255). Nếu bạn muốn nó là
số, thì =1*mid(a1,4,255).
Nếu vị trí không xác định nhưng luôn có chữ cái theo sau là số,
ctrl+shift+enter.

=1*MID(A1,MATCH(FALSE,ISERROR(1*MID(A1,ROW($1. $20),1)),0),255)

Bob Umlas
Excel MVP

Vào Thứ Sáu, ngày 26 tháng 10 năm 2007 2. 23 giờ chiều
fdh đã viết.

LẠI. Xóa số khỏi chuỗi chữ và số
Xin chào,

Thử cái này

=RIGHT(A1,3)

Cảm ơn,
--
Farhad Hodjat

"Dave" đã viết

Vào Thứ Sáu, ngày 26 tháng 10 năm 2007 2. 27 giờ tối
GarysStuden đã viết.

LẠI. Xóa số khỏi chuỗi chữ và số
Hãy thử UDF này.

Chức năng letteronly(r As Range) dưới dạng chuỗi
letteronly = ""
If Application. Bảng TínhChức Năng. IsText(r. Giá trị) Thì
s = r. Giá trị
For i = 49 To 57
s = Replace(s, Chr(i), "")
Tiếp i
letteronly = s
End If
End Function
--
Gary''s Student - gsnu200751

"Dave" đã viết

Vào Thứ Sáu, ngày 26 tháng 10 năm 2007 2. 44 giờ chiều
www. người xúi giục. gr đã viết.

Bạn có thể thử Chức năng tùy chỉnh này.
Bạn có thể dùng thử Chức năng tùy chỉnh này. Sao chép mã vào cửa sổ VBA của
tệp của bạn rồi chuyển đến ô B1 và nhập =RemoveTexts(A1)

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 01 giờ chiều
Dav đã viết.

Cảm ơn Farhad. Điều này hoạt động, nhưng chuỗi của tôi không phải lúc nào cũng có 3 chữ số.
Cảm ơn Farhad. Điều này hoạt động, nhưng chuỗi của tôi không phải lúc nào cũng có 3 chữ số. Một số
có 4 hoặc 5 chữ số.

Farhad đã viết

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 03 giờ chiều
Dav đã viết.

Lại. Xóa số khỏi chuỗi chữ và số
Điều này trả về #N/A

"Bob Umlas" đã viết

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 4 giờ chiều
Dav đã viết.

Chào GarysSinh viên. Bạn có thể giải thích cách sử dụng cái này không?
Xin chào GarysStudent. Bạn có thể giải thích làm thế nào để sử dụng này? .

"Sinh viên của Gary" đã viết

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 4 giờ chiều
Dav đã viết.

Lại. Xóa số khỏi chuỗi chữ và số
Cách này có vẻ không hiệu quả.

"www. người xúi giục. gr" đã viết

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 23 giờ chiều
Ragdyer đã viết.

Có thể là do bạn *không* nhập đúng cách. Đó là công thức *mảng*.
Có thể là do bạn *không* nhập đúng cách.
Đó là công thức *mảng*.
--
Công thức mảng phải được nhập bằng CSE, thay vì
công thức thông thường, sẽ *tự động* kèm theo .
brackets, which *cannot* be done manually.
Bạn *cũng phải* sử dụng CSE khi sửa đổi công thức.

Bạn có thể nhấp vào ô chứa công thức.
Sau đó nhấp vào thanh công thức, giữ
và
Sau đó nhấn
--
HTH,

--------------------------------------- .
Please keep all correspondence within the NewsGroup, so all may benefit !
------------------------------------- . @discussions. Microsoft. com> đã viết trong tin nhắn
"Dave" wrote in message
tin tức. 3B6B8A7B-A255-4EF4. @Microsoft. com.

thì là ở

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 45 giờ chiều
domenic2 đã viết.

Lại. Xóa số khỏi chuỗi chữ và số

Cố gắng

=REPLACE(A1,1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789"))-1,"")

Lưu ý rằng công thức sẽ trả về số dưới dạng giá trị văn bản. Để
trả về số dưới dạng giá trị số, hãy thêm +0 vào cuối
công thức.

Hi vọng điêu nay co ich

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 1. 55 giờ chiều
Gord Dibben đã viết.

Hiệu quả với tôi. Bạn đã lưu trữ mã ở đâu?
Hoạt động cho tôi.

Bạn đã lưu trữ mã ở đâu?

Sao chép và dán vào một mô-đun chung trong sổ làm việc của bạn

Alt + F11 để vào Visual Basic Editor

CTRL + r để mở cửa sổ Project Explorer

Chọn sổ làm việc/dự án của bạn và nhấp chuột phải>chèn>mô-đun

Dán UDF vào mô-đun đó

Alt + q để quay lại trang tính Excel

Nhập công thức như hình

MVP của Gord Dibben MS Excel

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 7. 22 giờ chiều
www. người xúi giục. gr. Ứng dụng Excel tùy chỉnh. đã viết.

Davejust đã thử lại giải pháp của tôi và nó hoạt động tốt

Dave
vừa thử lại giải pháp của tôi và nó hoạt động tốt.

Vui lòng làm theo quy trình từng bước để nó cũng hoạt động với bạn

1. Mở tệp excel của bạn (giả sử tên của nó là yourfile. xls)
2. Chuyển đến Công cụ/Macro/Trình chỉnh sửa Visual Basic
3. Nhấp chuột phải vào dòng VBAProject(yourfile. xls) trên danh sách bên trái
và nhấp vào Chèn mô-đun
4. Dán mã vào cửa sổ trắng bên phải.

5. Quay lại trang excel của bạn, nhập ABC123 hoặc bất kỳ thứ gì khác trong Ô

A1
6. Nhập công thức. "=RemoveTexts(A1)" không có dấu ngoặc kép vào Ô
B1 rồi nhấn enter
7. Nó sẽ trả về kết quả chính xác

Chúc may mắn

Vào Chủ nhật, ngày 28 tháng 10 năm 2007 9. 57 giờ chiều
Ron Rosenfeld đã viết.

Lại. Xóa số khỏi chuỗi chữ và số

Giả sử các chữ số đều liền nhau

=LOOKUP(9. 99E+307,--MID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},
A1&"0123456789") . "&LEN(A1)))))

Nếu các chữ số không liền nhau, bạn có thể sử dụng UDF này

=========
Tùy chọn rõ ràng
Chữ số hàm
Dim re As Object
Const sPat As String = "\D"

Const sRes dưới dạng chuỗi = ""

Đặt lại = CreateObject("vbscript. biểu thức chính quy")

lại. Toàn cầu = True
re. Hoa văn = sPat

Chữ số = lại. Replace(str, sRes)
If IsNumeric(Digits) Then Digits = CDbl(Digits)
Kết thúc hàm
===

Để vào UDF, hãy mở VBEditor. Đảm bảo dự án của bạn
được đánh dấu trong cửa sổ Project Explorer, sau đó Chèn/Mô-đun và dán
mã ở trên vào cửa sổ mở ra.

Sau đó, bạn có thể sử dụng công thức =Digits(cell_ref) trong bất kỳ ô nào. e. g

B1. =Digits(A1)
--ron

Thứ Hai, ngày 29 tháng 10 năm 2007 6. 46 giờ sáng
Ron Rosenfeld đã viết.

Lại. Xóa số khỏi chuỗi chữ và số

Xin lưu ý rằng các công thức tôi đã cung cấp trả về các chữ số dưới dạng giá trị chứ không phải
dưới dạng chuỗi. Điều này có nghĩa là số 0 đứng đầu sẽ bị loại bỏ.

Nếu bạn yêu cầu trả về các chữ số dưới dạng chuỗi, thì chỉ cần bỏ qua
dòng bên cạnh cuối cùng trong UDF (Dòng bắt đầu bằng " If IsNumeric. "

--ron

Thứ Hai, ngày 29 tháng 10 năm 2007 7. 56 giờ sáng
Dav viết.

Rất cảm ơn vì câu trả lời này.
Rất cảm ơn vì câu trả lời này. Bây giờ nó hoạt động. Giải pháp này sẽ rất
hữu ích cho bất kỳ ai đang cố gắng đạt được kết quả tương tự.

Lại cổ vũ
Dave

Thứ Hai, ngày 29 tháng 10 năm 2007 7. 58 giờ sáng
Dav viết.

Công thức này hoạt động khi được nhập như bạn đã đề cập.
Công thức này hoạt động khi được nhập như bạn đã đề cập. Bạn có thể vui lòng cung cấp
một số thông tin về phương pháp CSE này là gì và tại sao nó được sử dụng không. Nó là mới đối với tôi.

Cảm ơn.
Dave

"Ragdyer" đã viết

Thứ Hai, ngày 29 tháng 10 năm 2007 4. 08 giờ tối
RagDyer đã viết.

Lại. Xóa số khỏi chuỗi chữ và số
Bạn có thể bắt đầu tại đây.

http. //www. cearson. com/excel/Công thức mảng. aspx

--
HTH,

Thứ Hai, ngày 29 tháng 10 năm 2007 4. 50 giờ chiều
Dav đã viết.

Có cách nào để làm điều gì đó tương tự với IsText để ABC ở bên trái không và
Có cách nào để làm điều gì đó tương tự với IsText để ABC ở bên trái không vàCó cách nào để làm điều gì đó tương tự với IsText để ABC ở bên trái khôngCó cách nào để làm điều gì đó tương tự với IsText để ABC ở bên trái không
123 is removed?

Cảm ơn.
Dave

"www. người xúi giục. gr. Ứng dụng Excel tùy chỉnh" đã viết

Thứ Hai, ngày 29 tháng 10 năm 2007 5. 01 giờ chiều
Ron Rosenfeld đã viết.

Lại. Xóa số khỏi chuỗi chữ và số

=TextOrDigits(A1)
or
=TextOrDigits(A1,True)

=TextOrDigits(A1,Sai)

--ron

Đã gửi qua EggHeadCafe - Cổng thông tin lựa chọn dành cho nhà phát triển phần mềm
Trang web yêu thích tùy chỉnh với MongoDb và NoRM
http. //www. cà phê đầu trứng. com/tutorials/aspnet/7fbc7a01-5d30-4cd3-b373-51d4a0e1afa8/custom-favorites-web-site-with-mongodb-and-norm. aspx