如何将动态字符串参数传递给VBA中的选择案例？

Question

我有这样的代码的下方。，

'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 

我如下传递变量。，

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

，这样我可以通过传递作为parameners在所有片材更新我的数据。 但在这里我没有得到STP/SEZ传递给选择案例。 请任何帮助。

Answer 1

str是一个变量，并且当放在引号内时将表现为字符串。直接使用如下图所示

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