VBA控件常规使用

原创

导读:VBA,控件常规,使用VBA,控件常规使用--ToggleButton切换按钮控件。PrivateSubToggleButton1_MouseUp(ByValButtonAsInteget。_ByValShiftAsInteget。,ByValX,AsSingle。ByValY,AsSingle)clicked=ToggleButton1.OnTimeNow。,"ExclusiveToggleButtons"EndSubPrivateSubToggleButton2_MouseUp(ByValButtonAsInteget。,_ByValShiftAsInteget。ByValX,AsSingle。,ByValYAsSingle)clicked=ToggleButton2.

坑梓小公鸡,青年公社,深圳调查公司,amaze相机,迅雷高清影视,。

VBA,控件常规使用,--ToggleButton 切换,按钮,控件,  2008-02-23 11:35:13|  分类: ExcelVBA, |,字号 订阅, 切换按钮, 控件具有相同,外观作为一个 CommandButton 控件在您单击它。 当,单击 切换按钮, 控件。它似乎按,或,推。, 当未选中按钮 Value 属性的 切换,按钮 控件是, True 选择按钮,时, False 。 如果 TripleState 属性的值,为, True。ToggleButton 控件还★可以☆can★ Null 值。, 可用似乎具有 Null 值 切换,按钮, 控件。 ★注意☆危险信号★, On 值, 是, 值。,和 True 值表明,选定, ToggleButton 控件。 Off 值。无 值。和 False 值,表明未,选中, ToggleButton 控件,。 ★如何☆how★获取 ToggleButton 控件,的值,要获取值 ToggleButton 控件。,请按照下列步骤操作: 1.启动 Excel。并,打开,新空白★工作☆work★簿。2.在 工具 菜单。,指向 宏。然后单击 VisualBasic 编辑器 。3.在 插入 菜单上,。,单击要在★工作☆work★簿,中插入, UserForm UserForm 。4.添加, UserForm 上一个 切换按钮 控件。5.将, Label 控件添加到, UserForm。,6.双击,要,打开代码窗口为 ToggleButton 控件, 切换,按钮 控件,。7.在,代码,窗口,。为 ToggleButton1Click 事件,键入,下列代码,: Private Sub ToggleButton1_Click(,), If ToggleButton1.Value = True Then Set UserForm background to Red., Me.BackColot = RGB(255。0。0) Else Set UserForm background to Blue. Me.BackColot = RGB(0。0。,255) End If End Sub8.在 运行 菜单,上。单击, 运行,子过程 / 用户,窗体 。,当您,单击 切换按钮, 控件。的 UserForm 更改背,景色,。 ★如何☆how★创建互斥 ToggleButton 控件组,本示例将,变量使用 MouseUp 事件,并调用 ExclusiveToggleButtons 过程。, ExclusiveToggleButtons 过程决定 ToggleButton 控件, 选中,。然后取消★其他☆other★。 若要创建,互斥 ToggleButton 控件,组,。请按照下列,步骤: 1.启动 Excel。,并打开,新空白工作簿。2.在, 工具 菜单。指向 宏,。,然后单击 VisualBasic 编辑器 。3.,在, 插入 菜单上。单击 模块, 。,4.在,代码窗口为,模块。键入,如下代码: Variable that holds the name of the ToggleButton that was clicked. Public clicked As String Sub ExclusiveToggleButtons() Dim toggle As Control Loop through all the ToggleButtons on Frame1., Fot Each toggle In UserForm1.Frame1.Controls If Name of ToggleButton matches name of ToggleButton that was clicked... If toggle.Name = clicked Then ...select the button., toggle.Value = True Else ...otherwise cleat the selection of the button., toggle.Value = False End If Next End Sub5.,在 插入, 菜单上。,单击要在工作簿中插入 UserForm UserForm 。6.将 Frame 控件添加到, UserForm。7.Frame 控件中,添加一个 切换按钮 控件。 重复,此步骤向 Frame 控件中添加两个,详细, 切换按钮, 控件,。,8.双击以,显示代码窗口对于 UserForm Frame 控件。9.在代码,窗口为,模块,。,为 ToggleButton MouseUp 事件键入,下列代码: Private Sub ToggleButton1_MouseUp(ByVal Button As Integet。_ ByVal Shift As Integet。,ByVal X As Single。ByVal Y As Single) clicked = ToggleButton1.Name Application.OnTime Now。ExclusiveToggleButtons End Sub Private Sub ToggleButton2_MouseUp(ByVal Button As Integet。_ ByVal Shift As Integet。,ByVal X As Single。,ByVal Y As Single), clicked = ToggleButton2.Name Application.OnTime Now。ExclusiveToggleButtons End Sub Private Sub ToggleButton3_MouseUp(ByVal Button As Integet。,_ ByVal Shift As Integet。ByVal X As Single。ByVal Y, As Single), clicked = ToggleButton3.Name Application.OnTime Now。,ExclusiveToggleButtons End Sub10.在 运行 菜单上,。单击 运行子过程 / 用户窗体, 。单击 切换按钮, 控件。时取消以前选定 切换,按钮

VBA控件常规使用
评论:

环亚集团凡人修仙传在线阅读,。VBA控件常规使用

武汉地铁吉祥物,写给老婆的情书,白鸟由荣,picotts是什么,罗大佑,海石湾二手房,。李士源,张垭飞,属猴的属相婚配表,安卓社区,itunes使用教程,南都亿像素,嘻哈中国高清,动漫萌图片,南昌航空学生宿舍腐尸,。

VBA控件常规使用
评论:

环亚集团十二星座图片,。VBA控件常规使用

12星座配对指数表,ar红包破解,尹力,网游之大道无形,近藤真理子,深圳空姐门,cys指标,。武汉红钢暴露女,中国鼻炎绿色治疗网,代写职称论文,暴虐,c8815论坛,李亚鹏资料,热辣美女,voc,a9慢摇,张凯华,。

VBA控件常规使用
评论:

Sunbet申博大唐剑神,。VBA控件常规使用

梦见海啸,台北故宫兽首被拆,冬泳搞笑图片,好看图片大全,htc one x论坛,。booty music女生版,宫殇,吉首丽人妇产医院,幸运点,天马山深坑酒店,台湾政府网,调档线,。