我之前发过,但自从取得了一些进展并自己想出了一些东西!
我差不多完成了我的项目,但是需要制作最后一段代码,然后才进行一些整理。
我想做什么
我对我的用户表单有疑问(使用选项按钮):
"客户今天是否询问了额外的产品?"
如果此问题的答案为否
当用户点击命令按钮(填写表格的其余部分后)时,不要做任何特别的事 - 只需将所有值都返回到工作表。
如果答案是肯定的
当用户点击命令按钮时,我希望他们被带到额外的'页。他们将填写一些额外的复选框,然后点击另一个命令框,该命令框将返回来自' main'和'额外'将工作表放在一起,放入工作表的同一行。
简而言之: 我想要我的额外'要隐藏的标签,仅在“是”的情况下显示选中,结果全部返回工作表。如果你想看我的工作簿:
https://drive.google.com/file/d/0B2F...it?usp=sharing
可以这样做吗?谢谢你的帮助:D
我如何隐藏我的页面
现在我只需要代码使我的命令按钮将用户发送到下一页,如果需要的话。
这对我不起作用。有任何想法吗??
If ProductEnquiryYes.Value = True Then
With MultiPage1
If .SelectedItem.Index < .Pages.Count - 1 Then
.Value = .SelectedItem.Index + 1
End If
End With
End If
答案 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