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

这样我就可以通过传递参数来更新所有工作表中的数据。但在这里我没有将STP / SEZ传递给选择案例。请帮忙。

Answer 1

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

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

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

1 个答案: