如何利用选项按钮给另一个单元格赋值？

jelly1921

建立两个选项按钮，然后给另外一个单元格赋予规定的值，如：在A1，A2建立两个选项按钮，如何根据选择，来给B1赋值（1,2）？

lu_zhao_long

是这样的效果吗？
Book1.zip (9.24 KB, 下载次数: 616)

2014-2-3 15:30 上传

点击文件名下载附件

jelly1921

是这个意思，谢谢！！！
祝新年快乐！
能说说怎么做的吗？

蓝桥玄霜

1. Private Sub OptionButton1_Click()
   
2. If OptionButton1 = True Then [b1] = 1
   
3. End Sub
   
4. Private Sub OptionButton2_Click()
   
5. If OptionButton2 = True Then [b1] = 2
   
6. End Sub
   
7. 
   

复制代码

蓝桥玄霜

请见附件。

lu_zhao_long

jelly1921 发表于 2014-2-3 15:34
是这个意思，谢谢！！！
祝新年快乐！
能说说怎么做的吗？

见截图。在插入单选按钮以后，设置它的属性。几个比较关键的属性值有：
BackStyle：= 1 -fmBackStyleOpaque               意思是不透明的，可以将背景遮盖住。目的是将下面的 A1 单元格挡住；
Caption：                                                         这是你想显示给用户看到的内容，根据需要填写。比如例子中的 “选项一”
GroupName：                                                   这个比较关键。如果你需要几个单选按钮属于同一个组，则必须把它们的这个属性值设置为相同的名称。比如我在这里写成了 Selector1；
LinkedCell：                                                      意思是你需要将选择以后的结果填入哪一个单元格。默认没有。比如下面截图中我把它设置在了 A1 单元格。配合前面的 BackStyle 属性就可以不让用户发现了；

在附件中，第二单选按钮的属性有：
Caption： 选项二
LinkedCell：A2

其它两个关键属性值同前面一个单选按钮相同。
B1 单元格内的公式：=A1*1+A2*2    这个公式就不需要我解释了吧？！

jelly1921

再请教一个问题：
如何修改按钮中文字的字体大小？

lu_zhao_long

jelly1921 发表于 2014-2-3 16:53
再请教一个问题：
如何修改按钮中文字的字体大小？

在 6 楼截图中的属性框中，点击 Font 属性后面的值，就会出现一个下拉箭头。点击那个下拉箭头，就可以进入一个选择字体的窗口。选好后确认返回即可。

另外，再告诉楼主一个提问的小技巧。如果你需要别人的回复，那么就在那人回复的帖子下面点击“回复”按钮进行追问。这样的话，被追问者很快收到提示的短消息。

jelly1921

谢谢各位的帮忙。终于搞定了！

选择一个小小的按钮就可以得出不同的结论了

lu_zhao_long

jelly1921 发表于 2014-2-3 18:52
谢谢各位的帮忙。终于搞定了！

选择一个小小的按钮就可以得出不同的结论了

做得这么复杂呀！楼主是搞 6 σ 的吗？