Discussion:
是否有函數可將文字之內碼(BIG-5)顯示出來
(时间太久无法回复)
robert7884
2006-06-02 10:45:01 UTC
Permalink
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼

或許是笨問題 但誠心求教 謝謝!!
璉璉
2006-06-03 09:51:56 UTC
Permalink
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)
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝
robert7884
2006-06-03 10:05:01 UTC
Permalink
感謝!! 受益良多。

再謝!!

"璉璉" 來函:
Post by 璉璉
? 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)
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝!!
robert7884
2007-01-23 06:47:01 UTC
Permalink
請問?如果是相反時要如何作?
意思是說 [將內碼轉為中文字]

"璉璉" 來函:
Post by 璉璉
? 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)
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝!!
robert7884
2007-01-24 01:08:48 UTC
Permalink
了解了!!
非常感謝!!
另外由此產生一種想法,目前繁轉簡或簡轉繁,大部分使用字碼對照表
若透過ASC ASCW CHR CHRW是否更方便?

"璉璉" 來函:
Chr / ChrW
--
請移轉至微軟程式設計、系統管理使用新技術論壇討論區,提供網友回覆後即時簡訊、電子郵件通知:
程式開發設計:http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14
操作管理技術:http://forums.microsoft.com/technet-cht/default.aspx?siteid=23
Post by robert7884
請問?如果是相反時要如何作?
意思是說 [將內碼轉為中文字]
"璉璉" 來函:
Post by 璉璉
? 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)
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝!!
unknown
2006-06-08 13:09:02 UTC
Permalink
工具 >> 增益集 >> 勾選「分析工具箱」>> 確定
公式 =DEC2HEX(CODE("心"))


"robert7884" 來函:
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝!!
robert7884
2007-01-24 01:12:03 UTC
Permalink
感謝您!!
若是反向是否用 CHAR(HEX2DEC(A4DF))-->心

"沙拉油" 來函:
Post by unknown
工具 >> 增益集 >> 勾選「分析工具箱」>> 確定
公式 =DEC2HEX(CODE("心"))
"robert7884" 來函:
Post by robert7884
例如 =code('A') 結果為(65)
=???(心) 結果為(A4DF) <------BIG-5碼
或許是笨問題 但誠心求教 謝謝!!
Loading...