excel点击单元格事件(vba单元格点击事件)

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. 勾选“大小、位置均固定”,再点击“确定”...