Sub TextBox1_Change()
''判断A1单元格是否11位
If Len(ActiveSheet.Range(“A1”)) = 11 Then
ActiveSheet.PrintOut
DoEvents
''如果A1为11位,进行打印并将数值+1
ActiveSheet.Range(“A1”) = ActiveSheet.Range(“A1”) + 1
End If
End Sub
Excel中textbox内用扫描枪扫入内容后自动打印
于 2022-01-20 19:59:09 首次发布