麻辣家族討論版版 - Powered by Discuz! Board

標題: 假如 [a1]的第3個字是中文則 .......... [打印本頁]

作者: t8899 時間: 2016-7-18 15:22 標題: 假如 [a1]的第3個字是中文則 ..........

假如 [a1]的第3個字是中文則 ..........
語法是???

作者: 准提部林 時間: 2016-7-18 21:47

中文字? 還是全型字都算?

T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)") <> T Then MsgBox "第三字是全型字"

作者: t8899 時間: 2016-7-19 06:32

中文字? 還是全型字都算?

T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)") T Then MsgBox ...
准提部林發表於 2016-7-18 21:47

中文字跟全型字有何差別 ?? 全型字包含簡體字嗎???
您的答案是全型字的答案?

作者: ML089 時間: 2016-7-19 06:33

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "第三字是全型字"

作者: t8899 時間: 2016-7-19 08:42

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "第三字是全型字"
ML089 發表於 2016-7-19 06:33

請教asc 碼中文字(繁體字)的範圍是多???

作者: ML089 時間: 2016-7-19 12:53

回復 5# t8899

我對中文字碼不是很懂，中文字碼有 BIG5、unicode ...好多種，可以上網查看看。

BIG5字碼可以參考
http://www.me.tnu.edu.tw/study/m ... tutor/r05/index.htm

作者: t8899 時間: 2016-7-20 06:37

t$ = Mid(Cells(i, 1), 3, 1)
If Asc(t) < 0 Or Asc(t) > 255 Then MsgBox "第三字是全型字"
ML089 發表於 2016-7-19 06:33

我又想反推回來
asc 的值是 55 這碼是??
語法是??

作者: ML089 時間: 2016-7-20 06:43

回復 7# t8899

MsgBox Chr(55) --- 7
MsgBox Chr(65) --- A

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)