Convert String To Number | Tự Học VBA

Menu

• Trang chủ
• Diễn đàn Bài viết mới Tìm chủ đề
• Có gì mới Bài viết mới Hoạt động mới nhất

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

Tìm kiếm

Everywhere Chủ đề This forum This thread Chỉ tìm trong tiêu đề Bởi: Tìm Tìm kiếm nâng cao…

• Bài viết mới
• Tìm chủ đề

Menu Đăng nhập Đăng ký

• Cách upload ảnh lên diễn đàn

• Trang chủ
• Diễn đàn
• Kỹ thuật xử lý Excel
• Lập trình VBA

Convert String to Number

• Thread starter tuhocvba
• Ngày gửi 23/1/20

tuhocvba

Administrator

Thành viên BQT Câu chuyện của chúng ta là chuyển string thành số. 1. Kiểm tra có phải là số hay không bằng hàm sẵn có của VBA là isnumeric. Mã: Sub test1() Dim s As String s = "a" If IsNumeric(s) = True Then MsgBox "OK" Else MsgBox "Not Good" End If End Sub 2. Nếu là số, chúng ta muốn convert, chúng ta có thể sử dụng hàm sẵn có của VBA là Val. Mã: Sub test2a() Dim s As String Dim d As Double s = "-0.02" If IsNumeric(s) = True Then d = Val(s) Else d = -1 End If MsgBox d End Sub

vbano1

SMod

Thành viên BQT Khai báo sẽ ảnh hưởng tới giá trị. Ở Bạn cần đăng nhập để thấy link test2a, khai báo d là double, như vậy ta sẽ có kết quả d = -0.02. Tuy nhiên với ví dụ sau, tôi khai báo d là integer thì d = 0. Mã: Sub test2b() Dim s As String Dim d As Integer s = "-0.02" If IsNumeric(s) = True Then d = Val(s) Else d = -1 End If MsgBox d End Sub Bạn phải đăng nhập hoặc đăng ký để bình luận. Chia sẻ: Facebook Twitter WhatsApp Email Link

• Trang chủ
• Diễn đàn
• Kỹ thuật xử lý Excel
• Lập trình VBA

Top