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

你们能帮助我吗？

来源

2017-09-25 Bildircin13

您需要在Ders_Adi变量前后添加双引号"。你可以使用Chr(34)来做到这一点。

更改您的Evaluate行：

Ders_Satir_bul = Worksheets(Worksheet_Bilgiler).Evaluate("=Match(" & Chr(34) & Ders_Adi & Chr(34) & ", '" & Worksheet_Bilgiler & "'!C:C, 0)")

来源

2017-09-25 07:27:40

谢谢你这么多的人。像魅力一样工作！ – Bildircin13

@ Bildircin13欢迎您:) –

只是一个提示，'评估'可以减少到**'[公式]'**，例如'[SUM（Sheet1！A1：A10）]' – AntiDrondert

Excel VBA匹配功能

回答

相关问题