[转]Worksheet.Change Event (Excel)
2015-12-24 10:42
260 查看
本文转自:https://msdn.microsoft.com/en-us/library/office/ff839775.aspx#AboutContributor
Example
The following code example changes the color of changed cells to blue.
VBA
Copy
Sample code provided by: Bill Jelen, MrExcel.com | About the Contributors
The following code example verifies that, when a cell value changes, the changed cell is in column A, and if the changed value of the cell is greater than 100. If the value is greater than 100, the adjacent cell in column B is changed to the color red.
VBA
Copy
Sample code provided by: Tom Urtis, Atlas Programming Management | About the Contributors
The following code example sets the values in the range A1:A10 to be uppercase as the data is entered into the cell.
VBA
Copy
Example
The following code example changes the color of changed cells to blue.
VBA
Copy
Private Sub Worksheet_Change(ByVal Target as Range) Target.Font.ColorIndex = 5 End Sub
Sample code provided by: Bill Jelen, MrExcel.com | About the Contributors
The following code example verifies that, when a cell value changes, the changed cell is in column A, and if the changed value of the cell is greater than 100. If the value is greater than 100, the adjacent cell in column B is changed to the color red.
VBA
Copy
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Column = 1 Then ThisRow = Target.Row If Target.Value > 100 Then Range("B" & ThisRow).Interior.ColorIndex = 3 Else Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone End If End If End Sub
Sample code provided by: Tom Urtis, Atlas Programming Management | About the Contributors
The following code example sets the values in the range A1:A10 to be uppercase as the data is entered into the cell.
VBA
Copy
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub Application.EnableEvents = False 'Set the values to be uppercase Target.Value = UCase(Target.Value) Application.EnableEvents = True End Sub
相关文章推荐
- 站长VS微商 你选择哪个?
- 关于mysql的limit用于分页查询的优化
- Eclipse修改项目名称
- <学习笔记> html事件(源w3school)
- Java 带参数构造函数
- 第三章:C语言特性
- iOS开发 关于tableView加载图片时出现卡顿时的解决办法
- json 在java 中的应用
- Windows操作系统下的MySQL主从复制及读写分离[转]
- 对挣钱与財富等三个问题的思考
- uboot设置的默认环境变量不起作用
- Huge Page 是否是拯救性能的万能良药
- sqlplus安装配置
- 用adb操作android
- CString与char * ,string的互相转换
- TabControl添加关闭按钮
- 使用jQuery向asp.net Mvc传递复杂json数据-ModelBinder篇
- CheungSSH国产自动化运维工具开源Web界面
- tinyos学习笔记4--谈谈TestSerial例程的测试
- qt中qmake与ros结合