內碼 

                  璉璉 2006-06-03 09:51:56 UTC
PermalinkRaw Message
VBA:
? Hex(Asc("心")) ' Big5
A4DF
? Hex(AscW("心")) ' Unicode
5FC3

所以用 VBA 包一個函數：
Function MyAsc(ByVal strChar As String) As String
MyAsc = Hex(Asc(strChar))
End Function

在工作表用
=MyAsc(A1)

http://microsoft.public.tw.excel.narkive.com/t730ls1c/big-5

https://www.youtube.com/watch?v=kcxK2xw6N0g
https://msdn.microsoft.com/zh-tw/library/s2dy91zy.aspx
http://www.programmer-club.com.tw/ShowSameTitleN/vb/21620.html
View Oscar's Profile