Question

我有一个用户表单＆＃34;选择所有适用的用户表格＆＃34;系列盒子。

当用户选择OptionBox A时，会出现一个带有通过/失败单选按钮的框架和六个存储三个不同范围的上端和下端的文本框。

所以：选择选项框1，然后运行：通过/失败然后范围1 X％到X％范围2 X％到X％范围3 X％到X％

我只想插入三个＆＃34;所有适用的答案＆＃34;切换的框，具有那些通过/失败和范围框以在选择OptionBox时填充表。当它没有被选中时，我不想出现任何内容，所以没有＆＃34;错误！没有提供文件变量！＆＃34;因此，如果选择OptionBox 1，它将运行代码1，然后如果1和3，只有一个和3跳过2等，它将起作用。

我使用Doc Variables做了所有这些，我不知道这是否是正确的方法。下面列出的代码的工作原理是它使用条目填充doc，但它显示为＆＃34;错误！文档变量未提供！＆＃34;如果我没有列出任何东西，我也不确定如何做到这一点。

所以这是代码的一部分：

Private Sub CommandButton2_Click()

If OptionButton11.Value = True Then oVars("RecoveryPass") = _ "Pass      language." Else oVars("RecoveryPass") = _ "Fail: Failure statement." ActiveDocument.Fields.Update Me.Repaint End If

If CheckBox2 = True Then Set oVars = ActiveDocument.Variables oVars("Mean1").Value = Me.Mean1.Value ActiveDocument.Fields.Update Me.Repaint

Set oVars = ActiveDocument.Variables
oVars("Mean2").Value = Me.mean2.Value
ActiveDocument.Fields.Update
Me.Repaint


Set oVars = ActiveDocument.Variables
oVars("HW1").Value = Me.HW1.Value
ActiveDocument.Fields.Update
Me.Repaint


Set oVars = ActiveDocument.Variables
oVars("HW2").Value = Me.HW2.Value
ActiveDocument.Fields.Update
Me.Repaint

Set oVars = ActiveDocument.Variables
oVars("LS1").Value = Me.LS1.Value
ActiveDocument.Fields.Update
Me.Repaint

Set oVars = ActiveDocument.Variables
oVars("LS2").Value = Me.LS2.Value
ActiveDocument.Fields.Update
Me.Repaint

End If

Me.Repaint UserForm3.hide

End Sub

我对我正在做的事情一无所知，这是我第一次做这样的事情，这让我想跳出窗外。

仅在选中选项框时填充包含框架内容的图表？

0 个答案: