VBA 入门级问题

MJTD_7777

Sub ggg()
On Error Resume Next
Err.Clear
ThisDrawing.Utility.GetReal ("fff")
End Sub

上面的程序能让他报错(使用"ESC",但是不弹出对话框吗?

MJTD_7777

果然是入门级问题,刚刚发完帖就解决了.