我用excel里的vba做了一个小程序,只有一个窗体,我想在打开excel时,直接弹出来这个窗体,可以吗?

我用excel里的vba做了一个查找excel里数据的小程序,只有一个窗体,我想在打开excel时,直接弹出来这个窗体,可以吗?就是一打开excel就弹出查询窗口。

Private Sub Workbook_Open()
窗体名字.Show
End Sub
右键点随便一个表>查看代码>双击thisworkbook 复制以上代码
一打开文件就运行这个窗体
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-06-20
举例:右键点sheet1(或你自己命名的表名字),点“查看代码”,进到VBA编辑器里,输入

Private Sub Worksheet_Activate()
你窗体名字.Activate
End Sub

意思是你这个表被激活的时候,你窗体也被激活,你试试看。
第2个回答  2012-06-21
在workbook的open里面加上 userform1.show 就OK了
第3个回答  2012-06-22
??

如何让Excel VBA 的窗体控件在打开文件时直接显示?
Private Sub Workbook_Open()Application.Visible = False UserForm1.Show End Sub

vba怎样做用户窗体才能在excel中调用出来或者激活
1、如果你想打开excel就可以弹出,可以选择VBA-thisworkbook下输入:Private Sub Workbook_Open()userform1.show End Sub 如果你想在显示窗体的时候还能操作单元格,可以设置userform1的showmodal属性为false 2、如果只是单纯的显示,可以在表格中插入按钮,链接一个宏 sub fff()userform1.show end sub ...

如何让Excel VBA 的窗体控件在打开文件时直接显示
在工作簿的OPEN事件中写上显示窗体的语句即可。假定窗体名为UserForm1,代码如下:Private Sub Workbook_Open()UserForm1.ShowEnd Sub

ExcelVBA编辑器中做好的用户窗体怎么让它在打开Excel的时候显示在Excel...
很简单,把UserForm窗体的StartUpPosition这个属性设置为所有者中心,那么每次就在Excel的正中心!如果实在你不满意,就把startUpPosition这个属性设置为手动,然后用代码控制窗体显示的位置,代码如下:Private Sub UserForm_Initialize() Me.Top = [a10].Top + 280 '这个表示与A10单元格同高,注意,为什...

excel带VBA窗体 打开的问题
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 ...

如何在打开Excel工作簿时立即显示用户窗体
首先,双击资源管理器中的“ThisWorkBook”,如图所示;在打开的代码编辑环境下,点击“通用”下拉框,选择“WorkBook”,如图所示;在出现的事件过程中添加如图所示的代码——在打开工作簿时自动立即用户窗体的关键代码。另存为能保存VBA宏的文件 为了测试在打开Excel工作簿时立即显示用户窗体,需要将.xlsx...

vba 最小化excel 只显示窗体,并且窗体一直在所有程序的前面
如果你是想在显示窗体的时候窗体一直在EXCEL表格的最前面,那么在显示窗体的语句处使用有模的方式打开,就是在show后面加个1:例如:sub auto_open()formname.show 1 end sub 如果是fromname.show 0 或者formname.show则窗体不会强制在最前面 如果想只显示窗体,EXCEL隐藏,则可通过下面语句可以设置...

我在EXCEL里使用VBA编辑器加了一个窗体,想通过键盘输入,例如“Esc...
Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)If KeyCode = 27 Then Unload UserForm1 End If End Su

Excel中使用VBA制作一个恶作剧小程序的操作方法
Excel中使用VBA制作一个恶作剧小程序的操作步骤如下:首先我们打开一个工作样表作为例子。使用alt+f11组合快捷键进入vbe编辑器,插入一个新模块,并在模块中输入以下代码:Option Explicit Sub 恶作剧()Dim Num Num = InputBox("选择1-5任意一个数字测试你的性格")MsgBox (Choose(Num, "宅", "腐",...

vba,使用了打开文件立即显示窗体的代码,但是当我在编辑工作表的时候...
代码及注释如下:在VBE界面左上角sheet3下面的ThisWorkbook中加入如下代码——Private Sub Workbook_Open()'选择事件为工作表打开时触发 Application.Visible = False'将Excel文件隐藏 UserForm1.Show'像是窗体 End Sub

相似回答