假如 [a1]的第3個字是中文則 ..........
- 帖子
- 745
- 主題
- 242
- 精華
- 0
- 積分
- 1000
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-4-17
|
假如 [a1]的第3個字是中文則 ..........
假如 [a1]的第3個字是中文則 ..........
語法是??? |
|
|
|
|
|
|
|
- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-15
|
2#
發表於 2016-7-18 21:47
| 只看該作者
中文字? 還是全型字都算?
T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)") <> T Then MsgBox "第三字是全型字" |
|
|
|
|
|
|
|
- 帖子
- 745
- 主題
- 242
- 精華
- 0
- 積分
- 1000
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-4-17
|
3#
發表於 2016-7-19 06:32
| 只看該作者
中文字? 還是全型字都算?
T$ = Mid([A1], 3, 1)
If Evaluate("leftB(""" & T & """)") T Then MsgBox ...
准提部林 發表於 2016-7-18 21:47 
中文字 跟全型字有何差別 ?? 全型字包含簡體字嗎???
您的答案是全型字的答案? |
|
|
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
     
|
4#
發表於 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 三鍵輸入公式
|
|
|
|
|
- 帖子
- 745
- 主題
- 242
- 精華
- 0
- 積分
- 1000
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-4-17
|
5#
發表於 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 碼 中文字(繁體字)的範圍是多??? |
|
|
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
|
6#
發表於 2016-7-19 12:53
| 只看該作者
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
- 帖子
- 745
- 主題
- 242
- 精華
- 0
- 積分
- 1000
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-4-17
|
7#
發表於 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 這碼是??
語法是?? |
|
|
|
|
|
|
|
- 帖子
- 2025
- 主題
- 13
- 精華
- 0
- 積分
- 2053
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office2007
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台北市
- 註冊時間
- 2011-3-2
- 最後登錄
- 2024-3-14
|
8#
發表於 2016-7-20 06:43
| 只看該作者
回復 7# t8899
MsgBox Chr(55) --- 7
MsgBox Chr(65) --- A |
|
|
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式
|
|
|
|
|
