怎么用vba让sheet1的optionbutton1单击事件等于sheet2的optionbutton1的单击事件
发布网友
发布时间:2022-04-27 09:21
我来回答
共1个回答
热心网友
时间:2023-09-18 10:31
在模块中写个公用的sub,然后sheet1的optionbutton1单击事件call这个公用的sub,sheet2的optionbutton1单击事件也call这个公用的sub。
sheet1/sheet2:
Private Sub OptionButton1_Click()
Call OptionButtonClick
End Sub
Mole:
Sub OptionButtonClick()
MsgBox ("I am OptionButton")
End Sub
关于Excel中按钮的问题增加一个userform,添加5个OptionButton工具,增加一个CommandButton工具。而后使用如下代码。需要补充一点,这五个任务(模块)需要放置在公用模块中,并且需要改名(例如M1,M2等),因为宏名不支持逗点。PrivateSubCommandButton...
Vba 我在excel中插入一窗体,在窗体上插入三个选项按钮和一命令按钮...
窗体上双击命令按钮,插入以下代码。PrivateSubCommandButton1_Click()IfOptionButton1.Value=TrueThenRange("名称1").SelectElseIfOptionButton2.Value=TrueThenRange("名称2").SelectElseIfOptionButton3....
Excel VBA选项按钮的问题
1.打开Excel软件,在工具栏空白处,右键点击,在弹出的选项中,选择“自定议快速访问工具栏”。2.切换到“自定义功能区”,并在右侧选择开发工具,然后确定。3.这样之后就以在菜单栏中看到开发工具了,切换开发工具界面下,...
请教一个WPS宏问题?
双击选项按钮,打开“宏编辑器”窗口;在“宏编辑器”中编写代码,实现选项按钮被选中时,将对应的数据填入B1单元格中。例如:SubOptionButton1_Click()IfOptionButton1.Value=TrueThenRange("B1").Value=Range("...
有关EXCEL中IF公式与选项按钮结合使用的问题?
你好:非常简单首先,我说明下,单选框分2种,你说的OptionButton1是VBA控件,另一种是中文名的单选框窗体,所以如果要实现你的要求是要写代码的,我现在把两种方法都写一下吧。先是VBA代码:双击你的OptionButton1,出现的...
Excel 请教老师:怎样用控件实现三选一操作
一、未用过VBA的人,可能菜单上还没有“开发工具”选项卡出来,第一步调出你EXCEL菜单的“开发工具”选项卡出来:二、按以下步骤插入第一个“选项按钮”:三、设置选项按钮的属性值:在控件上点击鼠标右键,选择”属性“1...
excel VBA 的一个小问题...
直接调用optionbutton1.value就知道了,0是未选中,1是选中,如:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfSheets(1).OptionButton1.Value=0ThenMsgBox("未选中")ElseMsgBox("选中")End...
excel vba窗体控件,选项按钮的点击问题
PrivateSubOptionButton1_Click()Sheets(1).Select'Sheets("1月").SelectEndSubPrivateSubOptionButton2_Click()Sheets(2).SelectEndSubPrivateSubOptionButton3_Click()Sheets(3).SelectEndSub...
如何用vb向excel中添加控件,并响应事件
1、点击开发工具选项卡,点击插入按钮,在弹出的框中选择要插入的控件2、点击控件之后,鼠标变成十字形。拖动鼠标绘制控件,绘制完成后,弹出指定宏对话框,为此控件的单击事件关联宏。如果已写好需要执行的宏,则在列表框中...
VBA中OptionButton的用法如何?
DimFWAsLongPrivateSubOptionButton1_Click()FW=1EndSubPrivateSubOptionButton2_Click()FW=2EndSubPrivateSubOptionButton2_Click()FW=3EndSub