Excel问题：输入“1”，弹出对话框，你输入的是“1”，怎么制作？

显示全部楼层 · 2013-6-21 20:12:05

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRow As Integer
myRow = Target.Row
mycol = Target.Column
If myRow <= 10 And mycol <= 10 Then '设置监测范围
MsgBox ("输入的是" & Target)
End IfEnd Sub见附件下载...

千问 · 2013-6-21 20:12:05

VBA做写在change事件下大致代码如下Private Sub Worksheet_Change(ByVal Target As Range)MsgBox ("你输入的是：" & Target.Value)End Sub...