1. vba单元格点击事件
在对应的双击事件中显示即可，下面是当整个工作簿中任意一个单元格被双击时候触发的，如果你只是希望在某个sheet表里面起作用，就用那个表的双击事件。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
UserForm1.Show 0
End Sub
2. vba文本框点击事件
Excel中要对宏的安全性进行设置，如果不设置Excel默认的安全性是“高”。
安全性高的宏是不能用的。
你可以按下的操作把宏安全性改的低的或中的。
1、选择“工具”菜单下的“宏”，然后再选择“安全性...”。
2、在打开对话框中选择“低”或“中”再按“确定”按钮。
3、再一次打开这个带有宏的Excel文件即可。
3. excel点击单元格触发事件
在E2到以下的单元格输入任何数据，则G列同行单元格输入当时日期时间。
如在B1输入：老黄 则A1 会自动显示相应日期时间 如2009.06.26 15：32 在B1中输入=if(A2<>"",now(),) 再到格式-单元格中选择数字，选择日期，找你要的2009.06.26 15：32 的格式，里面有选择的 就OK了
4. vba鼠标点击事件
vba窗体属性有以下多种：
（1）Name属性：用来获取或设置窗体的名称，在应用程序中可通过Name属性来引用窗体。
（2） WindowState属性： 用来获取或设置窗体的窗口状态。 取值有三种： Normal （窗体正常显示）、 Minimized
（窗体以最小化形式显示）和 Maximized（窗体以最大化形式显示）。
（3）StartPosition属性：用来获取或设置运行时窗体的起始位置。其取值及含义如表9-1 所示。默认的起
始位置是WindowsDefaultLocation。
（4）Text属性：该属性是一个字符串属性，用来设置或返回在窗口标题栏中显示的文字。
（5）Width属性：用来获取或设置窗体的宽度。
（6）Height属性：用来获取或设置窗体的高度。
（7）Left属性：用来获取或设置窗体的左边缘的x坐标（以像素为单位）。
（8）Top属性：用来获取或设置窗体的上边缘的y坐标（以像素为单位）。
（9）ControlBox属性：用来获取或设置一个值，该值指示在该窗体的标题栏中是否显示控制框。值为true
时将显示控制框，值为false时不显示控制框。
（10）MaximizeBox属性：用来获取或设置一个值，该值指示是否在窗体的标题栏中显示最大化按钮。值
为 true时显示最大化按钮，值为false时不显示最大化按钮。
（11）MinimizeBox 属性：用来获取或设置一个值，该值指示是否在窗体的标题栏中显示最小化按钮。值
为 true时显示最小化按钮，值为false时不显示最小化按钮。
（12）AcceptButton 属性：该属性用来获取或设置一个值，该值是一个按钮的名称，当按 Enter 键时就相
当于单击了窗体上的该按钮。
（13）CancelButton 属性：该属性用来获取或设置一个值，该值是一个按钮的名称，当按 Esc 键时就相当
于单击了窗体上的该按钮。
（14）Modal 属性：该属性用来设置窗体是否为有模式显示窗体。如果有模式地显示该窗体，该属性值为
true；否则为 false。当有模式地显示窗体时，只能对模式窗体上的对象进行输入。必须隐藏或关闭模式窗
体（通常是响应某个用户操作），然后才能对另一窗体进行输入。有模式显示的窗体通常用做应用程序中
的对话框。
（15）ActiveControl属性：用来获取或设置容器控件中的活动控件。窗体也是一种容器控件。
（16）ActiveMdiChild属性：用来获取多文档界面（MDI）的当前活动子窗口。
（17）AutoScroll 属性：用来获取或设置一个值，该值指示窗体是否实现自动滚动。如果此属性值设置为
true，则当任何控件位于窗体工作区之外时，会在该窗体上显示滚动条。另外，当自动滚动打开时，窗体
的工作区自动滚动，以使具有输入焦点的控件可见。
（18）BackColor属性：用来获取或设置窗体的背景色。
（19）BackgroundImage属性：用来获取或设置窗体的背景图像。
（20）Enabled 属性：用来获取或设置一个值，该值指示控件是否可以对用户交互作出响应。如果控件可- 3 -
以对用户交互作出响应，则为 true；否则为false。默认值为true。
（21）Font属性：用来获取或设置控件显示的文本的字体。
（22）ForeColor属性：用来获取或设置控件的前景色。
（23）IsMdiChild属性：获取一个值，该值指示该窗体是否为多文档界面（MDI）子窗体。值为 true时，
是子窗体，值为false时，不是子窗体。
（24）IsMdiContainer 属性：获取或设置一个值，该值指示窗体是否为多文档界面（MDI）中的子窗体的容器。值为true时，是子窗体的容器，值为false时，不是子窗体的容器。
（25）KeyPreview属性：用来获取或设置一个值，该值指示在将按键事件传递到具有焦点的控件前，窗体是否将接收该事件。值为true时，窗体将接收按键事件，值为false时，窗体不接收按键事件。
（26）MdiChildren属性：数组属性。数组中的每个元素表示以此窗体作为父级的多文档界面（MDI）子窗体。
（27）MdiParent属性：用来获取或设置此窗体的当前多文档界面（MDI）父窗体。
（28）ShowInTaskbar属性：用来获取或设置一个值，该值指示是否在Windows任务栏中显示窗体。
（29）Visible属性：用于获取或设置一个值，该值指示是否显示该窗体或控件。值为true
时显示窗体或控件，为 false时不显示。
（30）Capture属性：如果该属性值为true，则鼠标就会被限定只由此控件响应，不管鼠标是否在此控件的范围内。
5. vba 双击单元格事件
excel vba去掉看不到的特殊符号的具体的方法如下；
第一步、复制你需要删除的特殊符号，鼠标双击单元格，只复制需要删除的部分内容
第二步、按CTRL+H，或者选择菜单里面的替换，查找内容处粘贴你刚才复制的内容，替换为保留为空，选择全部替换。
6. vba窗体点击关闭按钮事件
1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。
2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。
3、会弹出模块编辑窗口。
4、在代码编辑窗口输入以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xls").Close,End Sub。
5、在VBA窗口，点击【运行】按钮！即可关闭【963.xls】和【258.xls】两个文件。
6、VBA工程窗口中，这两个文件被关闭不见了。
7. vba点击单元格触发事件
一定要使用VBA吗？我的方法也是使用表单控件，但是不是命令按钮，而是微调按钮（spin button）。不使用VBA。
插入spin button（第一行第四个）
鼠标右键打开控件（format control）窗口，设置当前值，最大值，最小值和连接的单元格等几个参数。
点击“ok”关闭窗口，即可以通过按钮上调或者下调D4单元格的值。每次增加或者减少1.
这个方法的问题是，那个单元格是事先选定的（比如上面例子里的D4单元格）。那个单元格不能随意改变。
8. vba动态控件点击事件
1.用Shell函数打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Shell "explorer.exe " & sPath, vbMaximizedFocus
End Sub
Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。
使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。
在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。
方法二：用Shell对象打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Dim oShell As Object
Set oShell = VBA.CreateObject("shell.application")
With oShell
.Open (sPath)
End With
End Sub
其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。
比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示
Sub exceloffice()
Set oShell = CreateObject("shell.application")
With oShell
'切换到桌面
.ToggleDesktop
'打开运行对话框
.FileRun
'关闭电脑，记得保存文件
.ShutdownWindows
End With
End Sub
9. excel vba 触发事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[IV65536] = IIf([IV65536] = 1, 2, 1)
If [IV65536] = 2 Then
Target = [IV65535]
Else
[IV65535] = Target
End If
End Sub
10. 单击单元格执行vba
插入一个按钮控件，把下面的代码贴进去，注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1Option ExplicitPublic buttonClickCount As IntegerPrivate Sub CommandButton1_Click()buttonClickCount = buttonClickCount + 1Worksheets("Sheet3").Cells(1, 5).value = Worksheets("Sheet1").Cells(buttonClickCount, 1).value'MsgBox (buttonClickCount)End Sub注意每次重新打开excel表格，按钮计数才会重置为零
11. vba按钮点击事件
在“开发工具”下面添加一个控件按钮,放在单元格中。
2. 选择已经录制好的宏,点击“确定”。
3. 右键按钮,打开“设置控件格式”。
4. 选择“属性”。
5. 勾选“大小、位置均固定”,再点击“确定”...
- 相关评论
- 我要评论
-