作者:乔山办公网日期:
返回目录:excel表格制作
代码及注释如下zd:
在VBE界面左上角sheet3下面的ThisWorkbook中加入如回下代码——
Private Sub Workbook_Open()'选择事件为工作表打开时触答发
Application.Visible = False'将Excel文件隐藏
UserForm1.Show'像是窗体
End Sub
在宏里面找到thisworkbook 在里面的zdopen 里面写上
"你这个窗体的名字".show 注意我这里是回代指你的窗体哈
一般如果你没有改答过默认的名字那么就是userform1.show
如果改了名字就是你改的的名字.show
来张图吧
设一个变量,记录此窗口的状态,默认为0,在窗口调用前判断,如果是0方调用此窗口,调用过程中赋值为1,这样运行一次之后的值改变,就不再运行了。
如果只要这个功能,zhidao不需要窗体,在工作表标签上右击,查看代码,把下列代码贴上,当激活工作表时就出现你要的回效果
Private Sub Worksheet_Activate()
rr = Val(InputBox("请输入行号", "定位"))
Cells(rr, 1).Activate
End Sub
#ps
你按Ctrl+F,出来查找对话框,只要你不关闭,这个查找框会一直开着,完全满足你的要求,为什么不用Excel自身的功能答呢?这会提高你表格的运行效率