Excel 通过复制将两次新命令单击添加到窗体

我在表单中添加了两个工具。当我试着运行它时，它说没有选择

如果我选择“全部”，它将运行。我不能单独运行SMC或SCC，这是表单中的两个添加项

我通过复制SGV和WHT并重命名创建了两个设施点击

我编辑了代码来运行SMC和SCC，这就是为什么我选择all时它会工作

Private Sub-OkayCommandButton_Click（）
'确定所选的设施
作为MSForms.Control的Dim oCtl
出错时继续下一步
对于Me.SelectFacFrame.Controls中的每个oCtl
如果TypeName（oCtl）=“OptionButton”且oCtl.Value=True，则
facOption=oCtl.标题
退出
如果结束
下一个oCtl
调试。打印错误号
如果错误编号=438，则
MsgBox“未选择设施。请重试。”
卸下我
终点
如果结束
错误转到0
卸下我
端接头

---

选项按钮控件同时具有Name属性和Caption属性。复制并粘贴旧选项按钮时，可能更新了Caption属性，但没有更新Name属性。选择逻辑基于Caption属性，但操作逻辑可能使用Name属性。检查复制的两个按钮的Name属性。

选项按钮控件同时具有Name属性和Caption属性。复制并粘贴旧选项按钮时，可能更新了Caption属性，但没有更新Name属性。选择逻辑基于Caption属性，但操作逻辑可能使用Name属性。请检查您复制的两个按钮的Name属性。

能否突出显示其中一个按钮并在中显示其属性？我刚刚将属性图片添加到原始帖子中。我编辑了（名称），但仍然不起作用。你认为在宏中的某个地方，选项按钮前的3个字母是有效的吗？你包含的代码似乎应该正确处理新按钮-还有哪些函数使用了

fachoption

，因此我将问题缩小到实际形式和此代码？对于Me.SelectFacFrame.Controls If TypeName（oCtl）中的每个oCtl=“OptionButton”和oCtl.Value=True，然后faoption=oCtl.Caption退出，因为我认为这是因为我将SGV和WHT重命名为SMC和SCC，它运行得非常好。如果我将SMC和SCC重命名为SGV和WHT，它将不起作用。你能突出显示其中一个按钮并在中显示其属性吗？我刚刚将属性图片添加到原始帖子中。我编辑了（名称），但仍然不起作用。你认为在宏中的某个地方，选项按钮前的3个字母是有效的吗？你包含的代码似乎应该正确处理新按钮-还有哪些函数使用了

fachoption

，因此我将问题缩小到实际形式和此代码？对于Me.SelectFacFrame.Controls If TypeName（oCtl）中的每个oCtl=“OptionButton”和oCtl.Value=True，然后faoption=oCtl.Caption退出，因为我认为这是因为我将SGV和WHT重命名为SMC和SCC，它运行得非常好。如果我将SMC和SCC重命名为SGV和WHT，它将不起作用。我将名称更改为匹配，但它仍然无法识别它。我甚至试着编辑ANH并将其更改为SMC，但它仍然不起作用。你认为在我的代码中的某个地方，选项按钮前的3个字母是有效的吗？我更改了名称以匹配，但它仍然无法识别它。我甚至试着编辑ANH并将其更改为SMC，但它仍然不起作用。你认为在我的代码中的某个地方，选项按钮前的3个字母是有效的吗？