谁能解释一下如何在 VBA Excel 中插入表情符号？

Question

在VBA Excel中打印

" & Chr(34) & "

用于定义

"

。我搜索过，它说第 34 个字符是

"

，根据 这个网站。

以同样的方式👍竖起大拇指签名，代码是

👍 👍

我已经尝试过：

" & Chr(#128077) & "  
" & Chr(128077) & "  
" & Chr(#x1f44d) & "
" & Chr(x1f44d) & "

但它说错误是语法错误或期望）或无效参数

任何人都可以建议我解决方案吗

Answer 1

在 Excel 中，字符是使用 Unicode 存储的

UTF-16

。 “竖起大拇指”对应Unicode字符

U+1F44D

，编码如下:

UTF-16（十六进制）：0xD83D 0xDC4D (d83ddc4d)

UTF-16（十进制）：55357、56397

所有非经典拉丁字符 (ASCII) 的字符均应使用

chrW

和

ascW

进行处理。

所以，就你而言

ChrW(55357) & ChrW(56397)
or
ChrW(&HD83D) & ChrW(&HDC4D)

会竖起大拇指。另请注意，您不会在 VBA IDE 中获得该信息。您必须将其放入工作表中才能看到。

澄清

' Puts a thumbs up symbol in A1
ActiveSheet.Range("A1").Value = ChrW(55357) & ChrW(56397)

' Will not produce a thumbs up symbol, since VBA can't handle it
Debug.Print ChrW(55357) & ChrW(56397)

' Will not produce a thumbs up symbol, since VBA can't handle it
MsgBox ChrW(55357) & ChrW(56397)

HTML
如果您希望点赞是 HTML 格式，请这样做：

HtmlString = "<p>something something &#128077;</p>"
Print #1, HtmlString ' <-- replace with your output method

（

👍

或

👍

）

Answer 2

老问题，但我想我可以澄清一下。前往 https://emojiguide.org/ 并搜索您的表情符号，例如“Star-Struck”。向下滚动到 UTF-16 hex 并复制代码“0xd83e 0xdd29”。现在将“0x”替换为“&H”，并将其余部分设置为大写字母，就像这样

Range("A1") = ChrW(&HD83E) & ChrW(&HDD29)

。