Hàm Match trong VBA

[moihocvba]

Chào anh chị, em sử dụng hàm Match trong VBA bằng cú pháp này nhưng VBA báo lỗi

Sub ViDu()
Dim a
a = WorksheetFunction.Match("A", Range("A1:Z1"), 0)
End Sub

Anh chị cho em hỏi cú pháp viết đúng ạ! Em cám ơn rất nhiều!

 

[Hoàng Tuấn 868]

Chào anh chị, em sử dụng hàm Match trong VBA bằng cú pháp này nhưng VBA báo lỗi

Sub ViDu()
Dim a
a = WorksheetFunction.Match("A", Range("A1:Z1"), 0)
End Sub

Anh chị cho em hỏi cú pháp viết đúng ạ! Em cám ơn rất nhiều!

Khả năng là có lỗi là do không có chữ "A" trong đoạn "A1:Z1".

 

[Ronaldinho7]

Chào anh chị, em sử dụng hàm Match trong VBA bằng cú pháp này nhưng VBA báo lỗi

Sub ViDu()
Dim a
a = WorksheetFunction.Match("A", Range("A1:Z1"), 0)
End Sub

Anh chị cho em hỏi cú pháp viết đúng ạ! Em cám ơn rất nhiều!

Lỗi không tìm thấy giá trị, bạn thêm câu On Error Resume Next vào đầu chương trình ha!

 

[SA_DQ]

Chào anh chị, em sử dụng hàm Match trong VBA bằng cú pháp này nhưng VBA báo lỗi

Sub ViDu()
. . .

Anh chị cho em hỏi cú pháp viết đúng ạ! Em cám ơn rất nhiều!

Vậy nó báo mã lỗi là số nào? (? Err)

Sub DuVi()
Dim A
 On Error GoTo LoiCT
 A = WorksheetFunction.Match("ABC", Range("A1:Z1"), 0)
Err_:  Exit Sub
LoiCT:
    If Err = 1004 Then
        MsgBox "Không Tìm Ra!", , "Chào Nhé!"
    Else
        MsgBox Err:         Resume Err_
    End If
End Sub

 

[Hoàng Tuấn 868]

Lỗi không tìm thấy giá trị, bạn thêm câu On Error Resume Next vào đầu chương trình ha!

Đang trong giai đoạn thầy bói đoán voi.

 

[Ronaldinho7]

Vậy nó báo mã lỗi là số nào? (? Err)

Sub DuVi()
Dim A
 On Error GoTo LoiCT
 A = WorksheetFunction.Match("ABC", Range("A1:Z1"), 0)
Err_:  Exit Sub
LoiCT:
    If Err = 1004 Then
        MsgBox "Không Tìm Ra!", , "Chào Nhé!"
    Else
        MsgBox Err:         Resume Err_
    End If
End Sub

"Anh" chu đáo quá trời!

 

[Phuocam]

Chào anh chị, em sử dụng hàm Match trong VBA bằng cú pháp này nhưng VBA báo lỗi

Sub ViDu()
Dim a
a = WorksheetFunction.Match("A", Range("A1:Z1"), 0)
End Sub

Anh chị cho em hỏi cú pháp viết đúng ạ! Em cám ơn rất nhiều!

Viết đúng lả:

Public Sub vidu()
Dim a As Variant
a = Application.Match("A", Range("A1:Z1"), 0)
MsgBox TypeName(a)
End Sub

 

[moihocvba]

Viết đúng lả:

Public Sub vidu()
Dim a As Variant
a = Application.Match("A", Range("A1:Z1"), 0)
MsgBox TypeName(a)
End Sub

Dạ em đã làm như thế này thì được, nhưng khi áp dụng với ngày tháng thì nó bị lỗi, em không hiểu lý do ở đâu, mong anh và mọi người giải đáp giúp ạ!

Em muốn tìm vị trí ngày trong ô A4 trong vùng A1:Z1


Code em viết thế này nó báo lỗi ạ

Sub Test()
    Dim i
    i = Application.Match(Range("A4").Value, Range("A1:Z1"), 0)
    MsgBox i
End Sub

Em cám ơn ạ!

 

[VetMini]

vào ô A5, gõ =Match(A4, A1:Z1, 0) xem nó ra cái gì?

 

[moihocvba]

vào ô A5, gõ =Match(A4, A1:Z1, 0) xem nó ra cái gì?

Trong sheet thì nó vẫn ra kết quả bình thường anh ạ

 

[VetMini]

Trong sheet thì nó vẫn ra kết quả bình thường anh ạ

Xóa .Value ở chỗ này
i = Application.Match(Range("A4").Value, Range("A1:Z1"), 0)

 

[Nhattanktnn]

i = Application.Match(Range("A4").Value2, Range("A1:Z1"), 0)

Sửa như trên cũng được

 

[moihocvba]

Sửa như trên cũng được

Dạ 2 cách trên làm đc rồi ạ.
Anh cho em hỏi Value và Value2 khác nhau chỗ nào ạ? Tại thấy mấy anh hay viết Value2 mà không hiểu tại sao!
Em cám ơn rất nhiều ạ!

 

[Nhattanktnn]

Anh cho em hỏi Value và Value2 khác nhau chỗ nào ạ

Nên học từ google -> "difference between value and value2 vba"

 

[huhumalu]

Application.Match(Range("A4").Value, Range("A1:Z1").Value, 1)

Thử thêm cái này cho rối
Cũng đã nạp dữ liệu cho Function, đều lấy từ Range lên, một bên để Value, một bên không.
Quá trời là bất công.

 

[VetMini]

Application.Match(Range("A4").Value, Range("A1:Z1").Value, 1)

Thử thêm cái này cho rối
Cũng đã nạp dữ liệu cho Function, đều lấy từ Range lên, một bên để Value, một bên không.
Quá trời là bất công.

Công với tư cái nỗi gì?
Tự dưng đem range ra, rút ruột (value, value2, gì gì đó) nạp cho hàm bảng tính.
Hàm bảng tính, nạp range bảng tính thì còn chê chỗ nào nữa?

 

[moihocvba]

Dạ em đã hiểu và áp dụng được vào trường hợp của mình rồi ạ. Em cảm ơn rất nhiều!!