Mục lục
Bạn có thể thực hiện logic trên hoặc trả về các ký tự riêng lẻ từ một chuỗi trong VBA bằng cách lặp qua chuỗi.
Lặp qua từng ký tự trong một chuỗi
Sau đây là một ví dụ về lặp qua một chuỗi sử dụng Vòng lặp For… Tiếp theo và trả về từng ký tự trong hộp thư.
| 1234567891011121314 | Sub LoopThroughString ()Dim Counter As IntegerLàm mờ chuỗi của tôi dưới dạng chuỗiMyString = "AutomateExcel" 'xác định chuỗiĐối với Counter = 1 To Len (MyString)'làm điều gì đó với mỗi ký tự trong chuỗi'ở đây, chúng tôi sẽ gửi msgbox từng ký tựMsgBox Mid (MyString, Bộ đếm, 1)Kế tiếpKết thúc Sub |
Hàm Len đếm tổng số ký tự trong chuỗi. Vì vậy, biểu thức
| 1 | Đối với Counter = 1 to Len (MyString |
sẽ lặp qua từng chữ cái trong chuỗi.
Lặp qua từng ký tự trong một chuỗi - Thay thế
Đọc mọi ký tự trong một chuỗi
: Ví dụ này đọc mọi ký tự trong một chuỗi từ trái sang phải và trả về kết quả trong một hộp thông báo. Nó sử dụng Giữa hàm số.
| 12345678910111213 | Sub LoopThroughString ()Dim LookIn Here As StringDim Counter As Integer'Sử dụng văn bản của riêng bạn ở đâyLookInHere = "easyexcel.net"Đối với Counter = 1 To Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)Kế tiếpKết thúc Sub |
Đọc mọi từ trong một chuỗi
Ví dụ này đọc mọi từ trong một chuỗi từ trái sang phải và trả về kết quả trong một hộp thông báo. Nó sử dụng Tách ra hàm số.
| 1234567891011121314151617 | Sub LoopThroughString2 ()Dim LookIn Here As StringDim Counter As IntegerDim SplitCatcher làm biến thể'Sử dụng văn bản của riêng bạn ở đâyLookInHere = "I Heart easyexcel.net"SplitCatcher = Tách (LookInHere, "")Đối với Bộ đếm = 0 Đến UBound (SplitCatcher)MsgBox SplitCatcher (Bộ đếm)Kế tiếpKết thúc Sub |
