Vba 仅当选择了选项框时，才使用框架内容填充图表？

我有一个带有“选择所有适用项”系列框的用户表单

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

因此： 选择选项框1，然后运行： 通过/失败，然后范围为1 X%到X% 范围2 X%到X% 范围为3 X%至X%

我只想插入三个切换的“所有适用”框中的答案，当选择OptionBox时，让这些通过/失败和范围框填充表格。如果未选中，我不希望显示任何内容，因此不会出现“错误！未提供文档变量！”因此，如果仅选择OptionBox 1，它将运行1的代码，如果选择1和3，则只有一个和3跳过2，以此类推

我用文档变量做了所有这些，我不知道这样做是否正确。下面列出的代码的工作原理是，它用条目填充文档，但如果我没有列出任何内容，并且我不确定如何让它不这样做，则会显示“Error！Document Variable not Supplied！”

这是代码的一部分：

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

---

---

我几乎不知道我在做什么，这是我第一次做这样的事情，这让我想跳出窗外

你真正的问题不清楚。。。文档变量出现错误的具体时间和地点？根据这些信息，我的最佳猜测是文档中有DocVariable字段，但没有相应的文档变量。文档变量必须存在，或者需要删除字段。文档变量不能为“空”，但可以指定“空格”字符（这将反映在文档中）。如果这是一个问题，您可以将字段结果格式化为“隐藏”…您的实际问题不清楚。。。文档变量出现错误的具体时间和地点？根据这些信息，我的最佳猜测是文档中有DocVariable字段，但没有相应的文档变量。文档变量必须存在，或者需要删除字段。文档变量不能为“空”，但可以指定“空格”字符（这将反映在文档中）。如果这是一个问题，您可以将字段结果格式化为“隐藏”。。。