[已解决]为什么Application.SendKeys "{Esc}" 不起作用?

qdzbk

在“明细”表的A2至A4中双击，为什么Application.SendKeys "{Esc}" 不起作用?请老师们看看，谢谢！
不执行“打印”模块是正常的，执行“打印”模块就不不起作用了，光标在双击的地方闪闪了，不知为什么？请老师们看看，谢谢！

不执行“打印”模块
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行
If T.Column = 1 And T.Row > 1 And T.Row <= Sheet2.Range("A65536").End(xlUp).Row Then
   If T <> "" Then
      Sheet3.Range("B1") = T
      Call 记录
      Call 打印
   End If
End If
Application.SendKeys "{Esc}"
End Sub

执行“打印”模块
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行
If T.Column = 1 And T.Row > 1 And T.Row <= Sheet2.Range("A65536").End(xlUp).Row Then
   If T <> "" Then
      Sheet3.Range("B1") = T
      Call 记录
     ' Call 打印
   End If
End If
Application.SendKeys "{Esc}"
End Sub

用户电量电费统计.rar (15.09 KB, 下载次数: 10)

2015-9-16 22:44 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-9-25 09:54

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行
    If T.Column = 1 And T.Row > 1 And T.Row <= Sheet2.Range("A65536").End(xlUp).Row Then
        If T <> "" Then
            Application.ScreenUpdating = False
            Sheet3.Range("B1") = T
            Call 记录
            Call 打印
            Application.SendKeys "{Esc}"
        End If
    End If
End Sub



移动了Application.SendKeys "{Esc}"的位置，加了句禁用屏幕刷新。你觉得可以了吗？

跳转到最佳答案楼层

爱疯

1）1楼的说明，反了吧？
第1段代码，不执行“打印”模块，实际是执行
第2段代码，执行“打印”模块，实际是不执行


2）有没有下句，有什么区？我的电脑没连打印机
Application.SendKeys "{Esc}"


3）什么叫做闪闪了？

qdzbk

爱疯 发表于 2015-9-17 09:05
1）1楼的说明，反了吧？
第1段代码，不执行“打印”模块，实际是执行
第2段代码，执行“打印”模块，实际 ...

1）1楼的说明，反了吧？ 第1段代码，不执行“打印”模块，实际是执行 第2段代码，执行“打印”模块，实际是不执行 回复：对不起！是说反了。 2）有没有下句，有什么区？我的电脑没连打印机 Application.SendKeys "{Esc}" 回复：没这句，怎么能退出光标在单元格内的输入状态？这正是我要解决的问题，请老师指教，谢谢！ 3）什么叫做闪闪了？ 回复：就是双击后光标在单元格内一闪一闪的等待输入的状态。

爱疯

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行
    If T.Column = 1 And T.Row > 1 And T.Row <= Sheet2.Range("A65536").End(xlUp).Row Then
        If T <> "" Then
            Application.ScreenUpdating = False
            Sheet3.Range("B1") = T
            Call 记录
            Call 打印
            Application.SendKeys "{Esc}"
        End If
    End If
End Sub



移动了Application.SendKeys "{Esc}"的位置，加了句禁用屏幕刷新。你觉得可以了吗？

qdzbk

爱疯 发表于 2015-9-25 09:54
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行
    I ...

从语句上看没问题，但运行起来还是老样子，不执行“打印”是可以的，请老师运行测试一下，谢谢！！！
      

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)  '双击单元格执行     If T.Column = 1 And T.Row > 1 And T.Row <= Sheet2.Range("A65536").End(xlUp).Row Then         If T <> "" Then             Application.ScreenUpdating = False             Sheet3.Range("B1") = T             Call 记录             'Call 打印       ' 这句不执行是正常的，但执行了就不行了             Application.SendKeys "{Esc}"         End If     End If End Sub

     

爱疯

前面我测试过，又测试了1次。

不知你说的不正常是什么，我这里就是这样的。