【问题标题】:Userforms/Multipage- Disabling next button unless option buttons selected用户表单/多页 - 除非选择选项按钮,否则禁用下一个按钮
【发布时间】:2018-07-03 12:36:51
【问题描述】:

我有一个包含条目详细信息页面的多页用户表单,并且正在使用“NEXT”按钮移动到下一页。 (有5个问题页+1个条目详情页) 这是我用来导航的代码。

If QuestionairePages.value < QuestionairePages.Pages.Count - 1 Then
    QuestionairePages.value = QuestionairePages.value + 1

End If

有没有办法禁止移动到下一页,除非在特定页面上选择了所有选项按钮?

【问题讨论】:

  • 工作表?我正在移动到包含其他附加选项按钮的下一页
  • 您可以使用另一个 if 语句 IF Option1.Value = FALSE and Option2.Value = False Then MsgBox "Please complete the form" ELSE [the code in the question] 我不知道为表单验证分配选项组的更好方法
  • 您的选项按钮是否已分组?选择你的意思是“勾选”?
  • @Glitch_Doctor 问题是我的问题(选项按钮)从第三页开始,消息框从第一页弹出到选项按钮。
  • @EvR 不,它们没有分组。

标签: excel userform vba


【解决方案1】:

我没有足够的信息来准确写出您需要的内容,但是您可以尝试使用 .visible 命令和选项按钮上的布尔值,如下所示:

If YourOptionButton1 = true then
 YourButtonNext.Visible = False
End if

【讨论】:

  • 还有一个.Enabled 属性,它仍然使按钮可见,但不可点击。
  • @Mistella .Enabled 属性正是我想要的,但我可以将它与导航代码结合起来。
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 2014-06-02
  • 2020-04-11
  • 1970-01-01
  • 1970-01-01
  • 2017-11-21
  • 2013-01-19
相关资源
最近更新 更多