Question

Excel 在线求助vba隐藏文件夹代码

Answer 1

Private Sub CommandButton2_Click()
Dim str5 As String
 Dim x As Long
      For x = 2 To 10
          If Sheet3.Cells(x, 2).Value = "" Then Exit Sub
          str5 = Sheet3.Cells(x, 10).Value
          If str5 = "AIRC" Then Sheet1.Visible =1 '显示工作表
      Next
End Sub

If str5 = "AIRC" Then Sheet1.Visible =1 '显示工作表  你是试一下这样改。

或者改成  善良的猪头3

If str5 = "AIRC" Then Sheet1.Visible =true '显示工作表

这样的代码，试试。