检测和触发事件 - Excel答案

【问题标题】：To detect and trigger event - Excel检测和触发事件 - Excel
【发布时间】：2016-02-02 22:05:03
【问题描述】：

我有一个条形码扫描仪。因此，当使用枪扫描条形码时，通常会将值输入到放置在屏幕上的文本字段中。

所以我做了一个excel宏。并且当扫描条形码时，文本会出现在以new line 字符结尾的单元格上（文本+“\r\n”由扫描仪本身提供）。因此触发了一个事件并完成其余的工作。

问题是该事件仅由换行符触发。如果条码扫描器在每次条码输出后都没有提供\r\n 怎么办？我该如何处理这种情况？如何检测并触发事件？

【问题讨论】：

标签： vba excel

【解决方案1】：

如果您创建一个用户表单来接受输入，您可以使用keydown 或keypress 事件来检测按下的键。您必须知道条形码的结束条件是什么，这样您才能知道何时将值发送到要处理的单元格。

Keydown 将为您提供切换状态，并捕获 pageup/pagedown/其他特殊键

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
    ByVal Shift As Integer)

Keypress 仅适用于产生可键入字符的键

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

如果没有用户表单，您将不得不依靠输入/换行来触发工作表中的Change 事件

【讨论】：

【解决方案2】：

在工作表模块中添加如下 Worksheet_Change 事件：

Private Sub Worksheet_Change(ByVal Target As Range)

    ' Add code here to check for
    ' new line and add if not present

End Sub

或者，如果您在用户表单文本框中有数据，请使用以下内容：

Private Sub TextBox1_Change()

    ' Add code here to check for
    ' new line and add if not present

End Sub

【讨论】：