[宝典]vb excel 单选框分组

[宝典]vb excel 单选框分组[宝典]vb excel 单选框分组 vb excel 单选框分组悬赏分:50 - 解决时间:2009-6-21 08:52 现在又遇到难题，就是关于单选框分组问题代码如下: '引用MS excel 11.0 Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel....

[宝典]vb excel 单选框分组 vb excel 单选框分组悬赏分:50 - 解决时间:2009-6-21 08:52 现在又遇到难题，就是关于单选框分组问题代码如下: '引用MS excel 11.0 Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel.Workbooks.Add() objExcel.Visible = True '--------------设置活动工作表 Dim objSheet As Excel.Worksheet Set objSheet = objExcel.Worksheets("sheet1") ActiveSheet.OLEObjects.Add(ClassType:="Forms.frame.1", Link:=False, DisplayAsIcon:=False, Left:=65, Top:=140, Width:=90, Height:=80).Select ActiveSheet.OLEObjects("frame1").Object.Caption = "显示位置" ActiveSheet.OLEObjects("frame1").Object.BackColor = vbWhite ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, DisplayAsIcon:=False, Left:=70, Top:=155, Width:=60, Height:=20).Select ActiveSheet.OLEObjects("optionbutton1").Object.Caption = optguangshen.Caption ActiveSheet.OLEObjects("optionbutton1").Object.Value = optguangshen.Value ActiveSheet.OLEObjects("optionbutton1").Object.FontSize = 8 ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, DisplayAsIcon:=False, Left:=70, Top:=175, Width:=60, Height:=20).Select ActiveSheet.OLEObjects("optionbutton2").Object.Caption = optqinshui.Caption ActiveSheet.OLEObjects("optionbutton2").Object.Value = optqinshui.Value ActiveSheet.OLEObjects("optionbutton2").Object.FontSize = 8 '-------------------------------------------- ActiveSheet.OLEObjects.Add(ClassType:="Forms.frame.1", Link:=False, DisplayAsIcon:=False, Left:=155, Top:=140, Width:=90, Height:=80).Select ActiveSheet.OLEObjects("frame2").Object.Caption = "显示方式" ActiveSheet.OLEObjects("frame2").Object.BackColor = vbWhite ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, DisplayAsIcon:=False, Left:=70, Top:=195, Width:=60, Height:=20).Select ActiveSheet.OLEObjects("optionbutton3").Object.Caption = opttong.Caption ActiveSheet.OLEObjects("optionbutton3").Object.Value = opttong.Value ActiveSheet.OLEObjects("optionbutton3").Object.FontSize = 8 ActiveSheet.OLEObjects.Add(ClassType:="Forms.optionbutton.1", Link:=False, DisplayAsIcon:=False, Left:=120, Top:=155, Width:=30, Height:=20).Select ActiveSheet.OLEObjects("optionbutton4").Object.Caption = optwu1.Caption ActiveSheet.OLEObjects("optionbutton4").Object.Value = optwu1.Value ActiveSheet.OLEObjects("optionbutton4").Object.FontSize = 8 现在将上面的4个单选框分为两组，如何实现，急啊问题补充: 用vb向excel添加两个frame，然后在两个frame上各添加两个option单选框，然后两两分组即两个单选框为一组，现在是四个单选框为一组，所以只能选一个，你看看图片是8个单选框分一组，所以只能选一个单选框，我是想两个无的选项都被选中提问者: fitgore - 五级最佳答案 every radio button has a property of 'GroupName' in Excel macro. 设置第二组的groupname名称为同一名称，就OK了。比如: ActiveSheet.OLEObjects("optionbutton4").Object.GroupName = "SecondGroup" 是不是该给分了。 2 回答者: Juncox - 七级 2009-6-21 07:53

                    本文档为【[宝典]vb excel 单选框分组】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

[宝典]vb excel 单选框分组

你可能还喜欢