利用VBA代码实现自动隐藏、显示指定Excel工作表

'错误1004,Visible作用于对象失败,图中黄色区域PrivateSubCommandButton2_Click()Dimstr5AsStringDimxAsLon... '错误1004,Visible作用于对象失败,图中黄色区域
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 = xlSheetVisible '显示工作表
Next
End Sub
我想实现的是一开始我将一些工作表隐藏起来,当满足某一条件是我按下命令按钮隐藏的某个工作表就显示出来
展开
 我来答
xiaoxi1981
2014-03-03 · TA获得超过1197个赞
知道小有建树答主
回答量:961
采纳率:72%
帮助的人:335万
展开全部
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 '显示工作表

这样的代码,试试。

追问
不知道您用过myexcel不,我是要在excel网络平台上添加这个VBA的。。。它在模板状态下是可以将隐藏的显示出来。。但在填表的是时候就出错了。。。
追答

我想了一下,出现你这个问题的一种可能就是工作簿保护了,并且是保护结构了。

如果你保护工作簿 ,不要 保护结构,如下图。


来自:求助得到的回答
avel
2014-03-03 · TA获得超过177个赞
知道答主
回答量:122
采纳率:0%
帮助的人:74.7万
展开全部
    Dim x As Integer
    With sheet3
        For x = 2 To 10
            If .Cells(x, 2).Value = "" Then Exit Sub
            If .Cells(x, 10).Value = "AIRC" Then Sheet1.Visible = xlSheetVisible: Exit Sub
        Next
    End With
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
香格里拉稻草人
2014-03-03 · TA获得超过385个赞
知道小有建树答主
回答量:494
采纳率:66%
帮助的人:379万
展开全部
1 根据你代码和sheet1属性窗口内容来看,sheet1没有隐藏,代码中却要他显示,这样就出错了
2 代码应该没有问题
3 在工作簿打开事件中添加下面代码
Private Sub Workbook_Open()
Sheets(1).Visible = xlSheetVeryHidden
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
善良的猪头3
2014-03-03 · TA获得超过2932个赞
知道大有可为答主
回答量:2522
采纳率:71%
帮助的人:2796万
展开全部
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 =true '显示工作表
Next
End Sub

就改这句 If str5 = "AIRC" Then Sheet1.Visible =true '显示工作表
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
TAT萝卜
2014-03-03 · TA获得超过4972个赞
知道大有可为答主
回答量:3084
采纳率:66%
帮助的人:1113万
展开全部
这条语句没什么问题,应该是工作簿被保护了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
收起 更多回答(4)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式