Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
用VBA插入符号_Vba_Excel_Symbols - Fatal编程技术网

用VBA插入符号

用VBA插入符号,vba,excel,symbols,Vba,Excel,Symbols,我想用VBA插入一个符号。以下措施效果良好: Sub testver() Sheets("mapping").Cells(1, 10) = ChrW(&H634) end sub 。。但是现在我想让字符代码变为变量。它从映射表中获取数字。我简化了代码并排除了映射部分,因为这对我的问题并不重要。但如果在ChrW部分使用“codec”,则会出现错误。编解码器应该是634。有人知道如何正确编写这部分vba代码吗 Sub testver2() codec = Sheets("mappi

我想用VBA插入一个符号。以下措施效果良好:

Sub testver()    
Sheets("mapping").Cells(1, 10) = ChrW(&H634)
end sub
。。但是现在我想让字符代码变为变量。它从映射表中获取数字。我简化了代码并排除了映射部分,因为这对我的问题并不重要。但如果在ChrW部分使用“codec”,则会出现错误。编解码器应该是634。有人知道如何正确编写这部分vba代码吗

Sub testver2()
codec = Sheets("mapping").Cells(11, 1)
Sheets("mapping").Cells(1, 10) = ChrW(&H"codec")
end sub
提前谢谢! 阿米尔

这应该是可行的:

Sub testver2()
    codec = Sheets("mapping").Cells(11, 1)
    Sheets("mapping").Cells(1, 10) = ChrW("&H" & codec)
End Sub
这应该起作用:

Sub testver2()
    codec = Sheets("mapping").Cells(11, 1)
    Sheets("mapping").Cells(1, 10) = ChrW("&H" & codec)
End Sub