Question

vba宏输入中文乱码

我使用vba编写宏程序时输入中文会乱码
比如我在代码窗口输入
label1.caption="您好"
代码窗口会显示
label1.caption="?úo?"
后来我尝试一下先把代码在记事本里写出来
在复制粘贴进去，似乎就不会乱码了
但每次都要这样实在是太浪费时间了
故想请教一下高手这是什么原因造成的？
是否有解决方案？

Answer 1

看一下label1的Font属性，换一种字体试试。

追问

不好使啊，而且我觉得肯定不是这问题，因为不只是定义label时乱码，

单引号后面写备注也乱码

追答

调整一下字体试试。

Answer 2

解压文件出现中文乱码怎么办解决办法

华为Mate50 Pro曲面旗舰手机

¥6799

苹果 AirPods Pro 2代

¥1699

索尼65英寸4K HDR专业游戏电视

¥7499

惠普战66五代15.6英寸轻薄本

¥4399

查

看

更

多

Answer 3

这个我这是家常便饭了

追问

哪阁下是怎么解决的呢？
也是像我一样先写再粘贴？
如果有更好的方法还望不吝赐教

追答

这个一般是由于系统环境变量和语言系统的不对造成的，环境变量中的语言项可能是被某些软件修改了，导致VBA中的字符识别为乱码，也可能是系统自身的语言就不对，毕竟我们都是GHOST的系统，做过很多优化和修改，建议你装下微软为解决多语言乱码出的那个插件，名字记不清了，或者找下有没有VBA 或者VB 语言sp6的升级补丁打打看。会好些的。

追问

我的win8
office也是2013的
vba是最新版的了
估计这个问题不好解决了
不过用visual studio倒是不存在这个问题，而且日语都能打
但是那样的话还得连接一下，似乎也没有直接做宏方便

Answer 4

估计你系统里有某个dll文件被换成英文的了

Answer 5

代码模块里的汉字和实际显示出来的往往不同，这是因为系统内部编码不兼容。
我一般的处理方法是把文本放在一个隐藏的工作表中，通过公共模块里公开声明的一个特殊的自定义函数获取文本值，同时，这样也可以方便的切换中英文文本
比如sheet1中[a1]="中文",[b1]="English",[a2]="姓名",[b2]="name",[a3]="您好",[b3]="hello",
函数可以这样写：
function myString(RowID as integer, LanguageID as integer) as string
myString=sheet1.range("A1").offset(RowID-1,LanguageID).value
end function
则myString(2,0)="姓名",myString(3,1)="hello",
象你的情况，这样处理就好：label1.caption=myString(3,0)