求一个VBA代码

1007890405 · 发表于 2022-9-3 07:53

有一个身份证阅读器，在excel当中可以用快捷件输入

ctrl+1 是姓名
ctrl+2 是身份证号
现在想求一个vab代码
在A1输入姓名
A2输入身份证号

jinlei2006 · 发表于 2022-9-3 10:17

上附件，你想表达什么？

582766 · 发表于 2022-9-3 10:38

看附件或者示例

1007890405 · 发表于 2022-9-3 12:06

jinlei2006 发表于 2022-9-3 10:17
上附件，你想表达什么？

没法上传附件啊，我有一个身份证阅读器，在打开excel的时候，我可以通过ctrl+1 ，ctrl+2在某个单元格办理入姓名身份证号。现在我想用VBA实际这个功能。

盼盼198310 · 发表于 2022-9-3 13:35

祝:工作顺利

xzcdcak · 发表于 2022-9-5 22:47

我猜想，你这个事vba作不了。是他读卡软件的快捷键。
你可以去下了按键精灵试一下。应该可以满足你的要求。
还过话又说回来了。你就两个键点就是了。折腾什么？

1007890405 · 发表于 2023-3-11 10:27

xzcdcak 发表于 2022-9-5 22:47
我猜想，你这个事vba作不了。是他读卡软件的快捷键。
你可以去下了按键精灵试一下。应该可以满足你的要求 ...

您猜的对，确实是软侦探的快捷键。但是是高频使用的地方，且工作环境不让安按键精灵，还有就是不止这一个快捷键，F9 F10 F11 F2F3 都是。只是和这个原理差不多，所以只发了一个求助。

xzcdcak · 发表于 2023-3-15 12:38

1007890405 发表于 2023-3-11 10:27
您猜的对，确实是软侦探的快捷键。但是是高频使用的地方，且工作环境不让安按键精灵，还有就是不止这一个 ...

试试quicker

mx33917 · 发表于 2023-3-15 15:14

可以试一下模拟在键盘上输入的代码

SendKeys "^{1}", True       ' 模拟在键盘上输入ctrl + 1
SendKeys "^{2}", True       ' 模拟在键盘上输入ctrl + 2
ThisWorkbook.Activate       ' 激活工作簿
Sheet1.Range("a1").Select ' 选中 A1 单元格
ActiveSheet.Paste          ' 粘贴复制的内容

		自动登录	找回密码
密码			免费注册

[求助] 求一个VBA代码