[已解决]求VBA弹窗代码

41000144

求 当某个工作表的某个单元格内的数值变成1的时候 就能弹出窗口提醒的VBA代码 谢谢~~

最佳答案

月排行榜 / 总排行榜

1032446692

2013-6-8 11:51

Private Sub Worksheet_Change(ByVal Target As Range)
   If  Target.address = $C$10 and Target.Value = 1 Then MsgBox "有单元格数值为1"
End Sub



把这代码放在sheets3中

跳转到最佳答案楼层

1032446692

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = 1 Then MsgBox "有单元格数值为1"
End Sub

41000144

1032446692 发表于 2013-6-8 11:19
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value = 1 Then MsgBox "有单元格数值 ...

谢谢版主   请麻烦你再帮忙告诉我一下  比如说sheet3 中的C10单元格数据变成1  弹窗的代码是什么？谢谢~

1032446692

Private Sub Worksheet_Change(ByVal Target As Range)
   If  Target.address = $C$10 and Target.Value = 1 Then MsgBox "有单元格数值为1"
End Sub



把这代码放在sheets3中

41000144

1032446692 发表于 2013-6-8 11:51
Private Sub Worksheet_Change(ByVal Target As Range)
   If  Target.address = $C$10 and Target.Value  ...

呵呵~可以啦 谢谢版主~