如何用Excel VBA代码模拟键盘按键的组合键（如：alt+41455,得到★）

Excel2119

如何用Excel VBA代码模拟键盘按键的组合键（如：alt+41455,得到★）


在工作中，经常会遇到平方米的写法，如㎡，这个用【M键】输入m，用【alt+数字键178】组合键得到²。我想知道用vba代码如何模拟键盘按键的组合键，得到更多的特殊字符。


比如：

1. Sub alt()
   
2.     dim i
   
3.     For i = 0 To 5000
   
4.         Range("A" & i + 1) = i
   
5.         Range("B" & i + 1) = Application.SendKeys("%{i}")
   
6.         ' Debug.Print ChrW(i)
   
7.     Next
   
8. End Sub

复制代码

可惜的是：Range("B" & i + 1) = Application.SendKeys("%{i}")错误。用【keybd_event &H11, 0, 0, 0】之类的也不行。


请老师们给予帮助。

Excel2119

参考1（未实现）：excel VBA中如何模拟键盘输入https://blog.51cto.com/chcchb/1341988

wanghan519

ChrW(9733)是这个字符，但chrw接受的是unicode编码，41455则是对应的gbk编码
---------------------------------------
可能说的有点绕，ChrW是vba里的函数，但参数要是unicode编码，但给的41455是gbk编码，所以需要先把二进制的41455解码GBK，然后可以直接输入excel或者获取unicode编码都行，只是转GBK这一步用vba不会写。。。下面用金山文档写了一下

Excel2119

wanghan519 发表于 2024-1-16 16:48
ChrW(9733)是这个字符，但chrw接受的是unicode编码，41455则是对应的gbk编码

首先感谢wanghan519老师，针对这个问题我想要的是通用性。

                                alt + 数字键，举几个例子：
        -------------------------------------------------------------------------
        |  alt + 178 = ²        |  alt + 41434 = ≮        |  alt + 41442 = ♀        |
        |                          |                        |                        |
        |  alt + 179 = ³        |  alt + 41435 = ≯        |  alt + 41443 = °        |
        |                          |                        |                        |
        |  alt + 41428 = ≡        |  alt + 41436 = ≤        |  alt + 41451 = ‰        |
        |                          |                        |                        |
        |  alt + 41429 = ≌        |  alt + 41437 = ≥        |  alt + 41452 = §        |
        |                          |                        |                        |
        |  alt + 41430 = ≈        |  alt + 41438 = ∞        |  alt + 41453 = №        |
        |                          |                        |                        |
        |  alt + 41431 = ∽        |  alt + 41439 = ∵        |  alt + 41454 = ☆        |
        |                          |                        |                        |
        |  alt + 41432 = ∝        |  alt + 41440 = ∴        |  alt + 41455 = ★        |
        |                          |                        |                        |
        |  alt + 41433 = ≠        |  alt + 41441 = ♂        |  alt + 41456 = ○        |
        -------------------------------------------------------------------------
        说明：请不要用Excel函数ChrW（），用VBA代码模拟键盘来实现。

                                                  ExcelHome：Excel2119于2024-1-16

通用：无论是在Excel还是在txt或其他，要通用。

yynrzwh

SendKeys好像没有返回值

wanghan519

Excel2119 发表于 2024-1-16 16:57
首先感谢wanghan519老师，针对这个问题我想要的是通用性。

                                alt + 数字键，举几个例子：

是通用的，二进制数据解码GBK就可以输入了，比如wps在线文档里

Excel2119

wanghan519 发表于 2024-1-16 16:59
是通用的，二进制数据解码GBK就可以输入了，比如wps在线文档里

wanghan519老师，这是用Python实现的吧，用VBA如何实现呢？纯纯的vba代码

Excel2119

yynrzwh 发表于 2024-1-16 16:58
SendKeys好像没有返回值

yynrzwh老师：我也是试了好多种方法，都实现不了

wanghan519

Excel2119 发表于 2024-1-16 17:04
wanghan519老师，这是用Python实现的吧，用VBA如何实现呢？纯纯的vba代码

问了一下ai给出了很神奇的代码

1. Function PackUint16BE(ByVal value As Long) As String
   
2.     Dim packedBytes(0 To 1) As Byte
   
3.    
   
4.     packedBytes(0) = (value \ 256) And 255
   
5.     packedBytes(1) = value And 255
   
6.    
   
7.     PackUint16BE = StrConv(packedBytes, vbUnicode)
   
8. End Function

复制代码

Excel2119

wanghan519 发表于 2024-1-16 17:11
问了一下ai给出了很神奇的代码

wanghan519老师，好神奇，这就成了。感谢啊      （神奇的ai）
老师，您用哪款ai，能推荐一下吗？还有如何使用也是个很操心的问题

我做了一下循环，测试如下：


代码如下：（共享资源是一件很开心的事，感谢wanghan519老师）

1. Sub text()
   
2. 
   
3.     Dim i
   
4.    
   
5.     For i = 41425 To 41460
   
6.         
   
7.         n = Range("A" & i - 41423).value
   
8.         
   
9.         b = PackUint16BE(Range("A" & i - 41423).value)
   
10.         
    
11.         Range("B" & i - 41423) = b
    
12.     Next
    
13. 
    
14. End Sub
    
15. 
    
16. Function PackUint16BE(ByVal value As Long) As String
    
17.     Dim packedBytes(0 To 1) As Byte
    
18.    
    
19.     packedBytes(0) = (value \ 256) And 255
    
20.     packedBytes(1) = value And 255
    
21.    
    
22.     PackUint16BE = StrConv(packedBytes, vbUnicode)
    
23. End Function

复制代码