Học Macro VBA online – Chức năng InStr của Excel VBA – Giải thích bằng các ví dụ

Chức năng InStr của Excel VBA

Chức năng InStr của Excel VBA – Giới thiệu

Cú pháp của hàm InStr

InStr ( [Bắt đầu] , String1 , String2 , [So sánh] )

• [Bắt đầu] – (đối số tùy chọn) đây là một giá trị số nguyên cho biết hàm InStr vị trí bắt đầu mà từ đó nó sẽ bắt đầu tìm kiếm. Ví dụ, nếu tôi muốn tìm kiếm bắt đầu từ đầu, tôi sẽ nhập giá trị là 1. Nếu tôi muốn nó bắt đầu bằng ký tự thứ ba trở đi, tôi sẽ sử dụng 3. Nếu bỏ qua, giá trị mặc định của 1 được lấy.
• String1 – Đây là chuỗi chính (hoặc chuỗi gốc) mà bạn muốn tìm kiếm. Ví dụ, nếu bạn đang tìm vị trí của x trong Excel, Chuỗi 1 sẽ là “Excel”.
• String2 – Đây là chuỗi con mà bạn đang tìm kiếm. Ví dụ, nếu bạn đang tìm vị trí của x trong Excel, String2 sẽ là x.
• [So sánh] – (đối số tùy chọn) Bạn có thể chỉ định một trong ba giá trị sau cho đối số [so sánh]:
  • vbBinaryCompare – Điều này sẽ làm một nhân vật bằng cách so sánh nhân vật. Ví dụ: nếu bạn đang tìm ‘x’ trong ‘Excel’, nó sẽ trả về 2, nhưng nếu bạn đang tìm ‘X’ trong ‘Excel’, nó sẽ trả về 0 vì X là chữ hoa. Bạn cũng có thể sử dụng 0 thay vì vbBinaryCompare. Nếu đối số [So sánh] bị bỏ qua, đây là đối số được lấy làm mặc định.
  • vbTextCompare – Điều này sẽ làm một so sánh văn bản. Ví dụ, nếu bạn tìm ‘x’ hoặc ‘X’ trong Excel, nó sẽ trả về 2 trong cả hai trường hợp. Đối số này bỏ qua trường hợp chữ cái. Bạn cũng có thể sử dụng 1 thay vì vbTextCompare.
  • vbDatabaseCompare – Chỉ được sử dụng cho Microsoft Access. Nó sử dụng thông tin trong cơ sở dữ liệu để thực hiện so sánh. Bạn cũng có thể sử dụng 2 thay vì vbDatabaseCompare.

Ghi chú bổ sung về chức năng InStr của Excel VBA:

• InStr là một hàm VBA và không phải là một hàm bảng tính. Điều này có nghĩa là bạn không thể sử dụng nó trong bảng tính.
• Nếu String2 (là chuỗi con có vị trí bạn đang tìm kiếm) trống, hàm sẽ trả về giá trị của đối số [Bắt đầu].
• Nếu hàm InStr không thể tìm thấy chuỗi con trong chuỗi chính, nó sẽ trả về 0.

Ví dụ 1 – Tìm vị trí ngay từ đầu

Sub FindFromBeginning()
Dim Position As Integer
Position = InStr(1, "Excel VBA", "V", vbBinaryCompare)
MsgBox Position
End Sub

Ví dụ 2 – Tìm vị trí từ đầu từ thứ hai

Sub FindFromSecondWord()
Dim Position As Integer
Position = InStr(4, "The quick brown fox jumps over the lazy dog", "the", vbBinaryCompare)
MsgBox Position
End Sub

Sub FindFromSecondWord()
Dim StartingPosition As Integer
Dim Position As Integer
StartingPosition = InStr(1, "The quick brown fox jumps over the lazy dog", " ", vbBinaryCompare)
Position = InStr(StartingPosition, "The quick brown fox jumps over the lazy dog", "the", vbBinaryCompare)
MsgBox Position
End Sub

Ví dụ 3 – Tìm vị trí của @ trong địa chỉ email

Function FindPosition(Ref As Range) As Integer
Dim Position As Integer
Position = InStr(1, Ref, "@")
FindPosition = Position
End Function

Ví dụ 4 – Tô sáng một phần của chuỗi trong các ô

Sub Bold()
Dim rCell As Range
Dim Char As Integer
For Each rCell In Selection
 CharCount = Len(rCell)
 Char = InStr(1, rCell, "(")
 rCell.Characters(1, Char - 1).Font.Bold = True
Next rCell
End Sub

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.