[已解决][求助]单元格输入数据后触发事件的代码

sunjing-zxl

对单元格D1输入数据后触发事件的代码？
比如：在D1单元格输入100后自动变成100T
如果在对这个时间添加一个范围又该怎么写？
比如在D1：E3输入数据，数据自动变换，在其他单元格输入不变换

最佳答案

月排行榜 / 总排行榜

zm0115

2011-1-10 14:08

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. If Not Intersect(Range("d1:e3"), Target) Is Nothing Then
   
4.     Application.EnableEvents = False
   
5.    
   
6.         Target.Value = Target.Value & "T"
   
7.     Application.EnableEvents = True
   
8. End If
   
9. 
   
10. 
    
11. 
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

过江龙

对你的要求进行详细说明并上传附件。

zm0115

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3. If Not Intersect(Range("d1:e3"), Target) Is Nothing Then
   
4.     Application.EnableEvents = False
   
5.    
   
6.         Target.Value = Target.Value & "T"
   
7.     Application.EnableEvents = True
   
8. End If
   
9. 
   
10. 
    
11. 
    
12. End Sub
    

复制代码