excel - Excel Application.Match 运行时错误“13”

Question

我正在尝试使用 application.match 让我在表格列中找到匹配日期的位置，我无法让它工作，在 1004 错误和不匹配错误之间，并且没有谷歌结果似乎有帮助.

下面是代码，它运行良好，直到我尝试使用或显示匹配结果

Private Sub ComboBox1_Click()
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yy")
TheDate = ComboBox1.Value
End Sub

Private Sub Button1_Click()
Dim TheDate As Variant
TheDate = ComboBox1.Value
Pos = Application.Match(TheDate, Sheet1.Range("B5:B30"), 0)
Label1.Caption = Pos
End Sub

我是新手，所以如果它很明显，我不会感到惊讶

谢谢

标签： excelvba

Answer 1

Excel 将日期存储为数字...试试这个

Pos = Application.Match(CLng(CDate(TheDate)), Sheet1.Range("B5:B30"), 0)

截屏