Question

Excel 里面怎么在宏编辑窗口中添加一个按钮，或者选择控件来选择不同的sheet？

如下图，在原始的数据表（有两个 input BF Input ct）里面使用宏，来进行切换，想在窗口里面设置一个选择按钮或者其他，来切换选择这两个数据表（BF,CT）中的一个（可以切换）进行下面的整理操作，
没用啊 我的意思是需要添加一个选择框或者符合框，然后再input BF,CT中进行切换，input_BF,input_ct 里面对应的一个复制宏命令是 copy_BF.COPY_ct,我就是想在哪个里面插入一个 什么控件比如选择框或是什么 的，把Copy_bf,ct 作为其中的两个选项，直接选择其中一个，就能激活对应的宏命令，进行copy 因为两个里面的数据都是不一样的 麻烦帮帮我





Answer 1

Sheets(" input BF").Activate
上面这句就是切换并激活到 input BF这张表。放在按钮事件里就可以了。

追问

没用啊 我的意思是需要添加一个选择框或者符合框，然后再input BF,CT中进行切换，input_BF,input_ct 里面对应的一个复制宏命令是 copy_BF.COPY_ct,我就是想在哪个里面插入一个 什么控件比如选择框或是什么 的，把Copy_bf,ct 作为其中的两个选项，直接选择其中一个，就能激活对应的宏命令，进行copy 因为两个里面的数据都是不一样的 麻烦帮帮我

追答

那你就增加两个OptionButton，在复制按钮中判断哪个被选中了，再根据选中了的来激活工作表，有什么问题？

追问

现在就是两个，我的意思是那两个取消掉或者隐藏掉，设置一个选择框，选定一个就执行对应程序

追答

这种？在复制按扭的事件中判断一下哪个单选按钮的值为TRUE,用IF语句来做个分支选择就好，有什么问题？

追问

差不多是这样的 能做一个给我么 我扣扣 死琪喽死要武儿死要

追答

Private Sub CommandButton1_Click()If OptionButton1.Value = True ThenSheet1.Activate '如果要写工作表的名称，则改为“Sheets("工作表名称").Activate'在此插入复制第一个工作表的语句ElseIf OptionButton2.Value = True ThenSheet2.Activate'在此插入复制第二个工作表的语句End If
End Sub

控件布局跟上面那图一样，语句是这样的。