单元格的值发生变化，弹出一个提示对话框

dhslxx

求指教，单元格的值发生变化，弹出一个提示对话框，在什么事件里写，怎么写，小白一个，谢谢。

zhangzhang

试试看。。。。

gbtt520

请问大哥,353个帖子和您那93朵花是怎么来的

dhslxx

gbtt520 发表于 2016-3-30 18:35
请问大哥,353个帖子和您那93朵花是怎么来的

所谓术业有专攻，见笑了，非常感谢！希望能：和你常交流，向你多学习。

gbtt520

dhslxx 发表于 2016-3-30 18:52
所谓术业有专攻，见笑了，非常感谢！希望能：和你常交流，向你多学习。

哈哈,不好意思,只想跟你开个玩笑而已,不要当真
话说我也是新手

xiaobaige

zhangzhang 发表于 2016-3-30 17:46
试试看。。。。

如果A1是公式，返回的值发生变化，需要提示怎么写呐？

aman1516

xiaobaige 发表于 2018-1-22 19:30
如果A1是公式，返回的值发生变化，需要提示怎么写呐？

'定义一个公共变量

1. Dim Tran
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. If Target.Count > 1 Then Exit Sub
   
5. '其它触条件发码
   
6. Tran = Range("A1").Value  '    Target.Value
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_Change(ByVal Target As Range)
   
10. If Target.Count > 1 Then Exit Sub
    
11. '其它触条件发码
    
12. If Range("A1").Value <> Tran Then MsgBox "A1单元格已更改"
    
13. End Sub

复制代码

xiaobaige

aman1516 发表于 2018-1-23 09:16
'定义一个公共变量

谢谢，我试试