Excel VBA匹配功能
问题描述:
A Match.Evaluate
功能在我的代码不起作用不幸。Excel VBA匹配功能
下面你可以看到公式:
Worksheet_Bilgiler = "Egitim Bilgileri"
Ders_Adi = "Deneme1"
Ders_Satir_bul = Worksheets(Worksheet_Bilgiler).Evaluate("=Match(" & Ders_Adi & ", '" & Worksheet_Bilgiler & "'!C:C, 0)")
MsgBox Ders_Satir_bul
你们能帮助我吗?
答
您需要在Ders_Adi
变量前后添加双引号"
。你可以使用Chr(34)
来做到这一点。
更改您的Evaluate
行:
Ders_Satir_bul = Worksheets(Worksheet_Bilgiler).Evaluate("=Match(" & Chr(34) & Ders_Adi & Chr(34) & ", '" & Worksheet_Bilgiler & "'!C:C, 0)")
谢谢你这么多的人。像魅力一样工作! – Bildircin13
@ Bildircin13欢迎您:) –
只是一个提示,'评估'可以减少到**'[公式]'**,例如'[SUM(Sheet1!A1:A10)]' – AntiDrondert