如何将dynamicstringparameter passing给VBA中的select案例？

我有像下面的代码。

'a User Defined function Sub fill(str As String) For Each sht In ThisWorkbook.Sheets Select Case sht.Name Case "str" 'SVE UPDATE End Select Next sht 

我传递variables如下。

  fill("STP") ' STP is sheet name fill("SEZ") 'SEZ is sheet name 

这样我就可以通过作为parameter passing来更新所有表单中的数据。 但在这里我没有得到STP / SEZ通过select案件。 请任何帮助。

Answer 1

str是一个variables，当放在引号内时将performance为一个string。 直接使用它，如下所示

 Select Case sht.Name Case str 'SVE UPDATE End Select