如果选择了“大三”,Sub Macro1() 中的"B2”变为"A2”
——这种思路要通过宏代码改宏代码,可以做,但一般不这样做。
你其实是想在窗体中选“大三”之后,后面再运行macro1时,能选中A2单元格。
你可以这么做,定义一个全局变量
public MyRange as Range
sub Macro1()
MyRange.select
End Sub
你在窗体代码中当"大三"被选中时
set MyRange=Range("A2")
用if判断执行:
if me.OptionButton1 then
Range("A2").select
elseif me.OptionButton2 then
range("B2").select
end if
祝你成功!
再加一句隐藏窗口的语句就行:
private
sub
workbook_open()
application.visible
=
false
windows(thisworkbook.name).visible
=
false
userform4.show
(modeless)
end
sub
不过隐藏后就看不见了,最好在窗体关闭时又显示出来:
private
sub
userform_queryclose(cancel
as
integer,
closemode
as
integer)
windows(thisworkbook.name).visible
=
true
end
sub
1722187970 ,发过来,这个应该改下就可以了。