■通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

具体内容是，有一个单元个，里面的内容可以选择，分别是”1 选择；2填空；3读程序；4写代码“

这里，实现的功能是，选择部分的列

（注：也就是选择题时，会有四个选项，所占的4列，填空题时，不需要这4列）

当题型"1选择"被选中时，显示，没有被选中时，隐藏

这里面需要学习的是对这种事件接收的处理的写法。

Worksheet_Change

※：函数要定义在对应的【SheetN】中

Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Address = "$E$1" ThenIf Range("E1").Value = "1 選択" ThenRows("4:7").SelectRange("B4").ActivateSelection.EntireRow.Hidden = FalseEnd IfIf Range("E1").Value <> "1 選択" ThenRows("4:7").SelectRange("B4").ActivateSelection.EntireRow.Hidden = TrueEnd IfEnd IfApplication.EnableEvents = True
End Sub

■扩展1：保存时，触发处理

Workbook_BeforeSave

※：函数要定义在对应的【Workbook】中

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)If Len(Worksheets("SheetName1").Range("A1")) = 0 Then MsgBox "A1 Is Null", vbExclamation + vbOKOnly  ’A1空的话，提示Cancel = True ’不保存End IfEnd Sub

---

■扩展2：打开Excel时，触发处理

VBA的代码，在Excel启动时自动执行_sun0322-CSDN博客_打开excel自动运行vba

１．建立一个Auto的モジュール

２．在里面写如下代码

Private Sub Auto_Open()'Demand Summaryの工数表示期間 (「list」シートの「D2」セル)Sheet2.Cells(2, 4) = 15End Sub

---

指定单元格里面的，内容发生变化，触发事件，调用VBA代码。相关推荐

python 拆分excel单元格_Python怎么在Excel中把一个单元格里的内容拆分提取？：excel表格已拆分的数据提取...
Python怎么在Excel中把一个单元格里的内容拆分提取? 有规律的话写代码可以处理,没有就没有办法如何将EXCEL表中的数据分离出来? 如图,B1输入:=LEFT(A1,FIND("排 ...
vue 鼠标点击事件_VBA代码解决方案第115讲：点击鼠标实现精准控制触发事件的VBA代码第二方案...
大家好,我们今日继续讲解VBA代码解决方案的第115讲内容:工作表事件中,根据Target参数不同,实现精准控制触发事件的VBA代码第二方案.在上一讲中我们讲了利用Address的属性实现控制触发事件 ...
excel中如何将一列单元格里的内容分成多列
首先,主要用到的命令是数据里的分列. 其次,进行一个举例.在平常采集数据的过程中,会将几组数据均采集在一个单元格内,这是如果需要单独对每组数据进行处理,就比较麻烦,得单独挑出来,比较麻烦. 这里A单元 ...
td单元格里的内容自动换行显示
css的white-space 属性可控制table里td内容自动换行,方法如下: <td style="background-color:#f6f6f6;white-space:no ...
Excel表格上如何将多个单元格里的内容合并到一个单元格？
其实只需要一行命令,如下: ="固定的文字"&D2&AN$2&"" 其中D2 为人名所对应的单元格,AN$2 为结尾的.jpg后缀名(这 ...
excel在单元格中引用其他单元格里的内容
=CONCATENATE("引入A1的内容为:",A6) 您的支持,是我持续创作的动力!!!!
填入 Excel 指定单元格
有一些数据需要填写到已经存在的Excel文件中的指定单元格里,这时可以用SPL中的xlscell函数来实现数据填写.既可以填写一个单元格,也可以填写连续的一片单元格,此时要填写的数据结构为:同行连续格 ...
VBA赋值给指定单元格
这是一个Range对象基本操作实例,对指定单元格赋值,然后使用弹窗获取值. 代码如下: Sub test1() Worksheets("Sheet1").Range("A ...
jquery 替换括号里面内容_EXCEL单元格里提取、删除或替换部分内容
一.写在前面前面分享过EXCEL中如何替换部分字符串,提到LEFT.RIGHT.LEN.REPLACE几个常用文本函数的基础用法. 今天整理更多文本函数在实际工作中的应用,比如EXCEL单元格里提取 ...

指定单元格里面的，内容发生变化，触发事件，调用VBA代码。

■通过改变一个单元格的内容，出发一个事件，根据改变的内容，进行相应的处理。

■扩展1：保存时，触发处理

■扩展2：打开Excel时，触发处理

指定单元格里面的，内容发生变化，触发事件，调用VBA代码。相关推荐

最新文章

热门文章