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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2016-7-19 06:33 | 顯示全部帖子

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2016-7-19 12:53 | 顯示全部帖子

回復 5# t8899

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

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2016-7-20 06:43 | 顯示全部帖子

回復 7# t8899

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

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。