如何隐藏选项卡并在选择特定选项按钮后显示它们?

时间:2014-07-10 13:35:23

标签: excel excel-vba tabs commandbutton vba

我之前发过,但自从取得了一些进展并自己想出了一些东西!

我差不多完成了我的项目,但是需要制作最后一段代码,然后才进行一些整理。

我想做什么

  • 我目前在MultiPage用户表单中有两个页面 - 一个名为' main'还有一个名为' extra
  • 我希望Main始终显示给用户
  • 我希望隐藏Extra,并在特定条件下自动显示此页面

我对我的用户表单有疑问(使用选项按钮):

"客户今天是否询问了额外的产品?"

如果此问题的答案为否

当用户点击命令按钮(填写表格的其余部分后)时,不要做任何特别的事 - 只需将所有值都返回到工作表。

如果答案是肯定的

当用户点击命令按钮时,我希望他们被带到额外的'页。他们将填写一些额外的复选框,然后点击另一个命令框,该命令框将返回来自' main'和'额外'将工作表放在一起,放入工作表的同一行。

简而言之: 我想要我的额外'要隐藏的标签,仅在“是”的情况下显示选中,结果全部返回工作表。如果你想看我的工作簿:

https://drive.google.com/file/d/0B2F...it?usp=sharing

可以这样做吗?谢谢你的帮助:D

我如何隐藏我的页面

  • 我已将多页的属性更改为:"样式:fmTabStyleNone。"

现在我只需要代码使我的命令按钮将用户发送到下一页,如果需要的话。

这对我不起作用。有任何想法吗??

If ProductEnquiryYes.Value = True Then
    With MultiPage1
        If .SelectedItem.Index < .Pages.Count - 1 Then
            .Value = .SelectedItem.Index + 1
        End If
    End With
End If 

1 个答案:

答案 0 :(得分:0)

你可以使用可见的专有。
如果标签名称为** TabStrip1 :**

TabStrip1.Tabs(1).Visible = False

隐藏第二个标签。索引从0开始到n-1个选项卡 显示时,您还可以使用以下选项激活选项卡:

TabStrip1.Tabs(1).Visible = True
TabStrip1.Value = 1

使用Multipages:

MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1