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匹配功能

回答

相關問題