运行为什么宏为什么不能选择单元格

zlumy

请哪位大师分析，为什么呢？
搞不懂为什么运行后就不能选择单元格了呢？



Sub 选择一个单元格()
    Dim irow, irow1, i, j As Integer
    Dim sht As Worksheet
    Dim rngC As Range
    Dim rngR As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set rngC = Application.InputBox("提示：", "任意一个单元格", Type:=8) ‘运行后无法用鼠标选择单元格，为什么呢？
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

zlumy

Sub 选择一个单元格()     Dim irow, irow1, i, j As Integer     Dim sht As Worksheet     Dim rngC As Range     Dim rngR As Range     Application.ScreenUpdating = False     Application.DisplayAlerts = False     Set rngC = Application.InputBox("提示：", "任意一个单元格", Type:=8)     Application.DisplayAlerts = True     Application.ScreenUpdating = True End Sub

taller

zlumy

taller 发表于 2023-2-15 00:08

太感谢了，终于明白原因了！真是大师级的，谢谢了！

Learner2022

禁用屏幕更新