InStr Function

Chức năng
Trả về vị trí xuất hiện đầu tiên của chuỗi.

Cú pháp
InStr( [start], string, substring, [compare] )

Trong đó:
     [start]: không bắt buộc, vị trí bắt đầu tìm kiếm.
     string: chuỗi mẹ.
     substring: chuỗi con.
     [compare]: không bắt buộc, so sánh.
     vbBinaryCompare: so sánh nhị phân, phân biệt ký tự hoa, thường.
     vbTextCompare: so sánh text, bỏ qua sự phân biệt ký tự hoa, thường.

• Nếu string là "" - InStrRev trả về 0.
• Nếu string là Null - InStrRev trả về Null.
• Nếu substring là "" - InStrRev trả về start.
• Nếu substring là Null - InStrRev trả về Null.
• Nếu substring là không được tìm thấy - InStrRev trả về 0.
• Nếu substring là được tìm thấy trong string- InStrRev trả về vị trí được tìm thấy.
• Nếu start > len(string) - InStrRev trả về 0.
• Chiều tìm kiếm: từ đầu về cuối.
• Chiều đánh số chỉ vị trí: từ đầu về cuối.

Ví Dụ 1

Sub Function_Instr1() Debug.Print "InStr(1, ""Kieu Pham VAN"", ""K"") ket qua: " & InStr(1, "Kieu Pham VAN", "K") Debug.Print "InStr(2, ""Kieu Pham VAN"", ""K"") ket qua: " & InStr(2, "Kieu Pham VAN", "K") Debug.Print "InStr(1, ""Kieu Pham VAN"", ""Ky"") ket qua: " & InStr(1, "Kieu Pham VAN", "Ky") Debug.Print "InStr(10, ""Kieu Pham VAN"", ""a"") ket qua: " & InStr(10, "Kieu Pham VAN", "a") Debug.Print "InStr(10, ""Kieu Pham VAN"", ""a"") ket qua: " & InStr(10, "Kieu Pham VAN", "a", vbTextCompare) End Sub

Kết quả:
Nhấn Ctrl + G để mở cửa sổ Immediate để xem kết quả.

Ví Dụ 2
Phân loại ban Cơ Bản và Nâng Cao của khối 10 của một trường dựa vào tên lớp. Yêu cầu như trong hình:

Sub Function_Instr() For Each Cell In Range("D4:D16") If InStr(1, Cell, "A") > 0 Then Cell.Offset(0, 2) = "CB" Else Cell.Offset(0, 2) = "NC" Cell.Offset(0, 2).Font.Color = 255 'to mau End If Next End Sub

Kết quả: