返回列表 上一主題 發帖

請教判斷中文字的語法 ?

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
1# 跳轉到 »
發表於 2015-5-1 09:57 | 顯示全部帖子
謝謝
我找到一個最簡單的，供參考
If Asc(mid([a1],2,1)) < 0 Then [a2]=1
t8899 發表於 2015-5-1 08:59



你可以 Run 下面看看

Sub xx()

[a1] = "1布2"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = 1
[a1] = "123"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = 1

End Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2015-5-1 10:19 | 顯示全部帖子
你一定要執行我這個
我把 Sub Name 改成 MA3333_Click() 了
請你再用滑鼠點點看

Sub MA3333_Click()

[a1] = "1布2"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = "1  第2字=中文"
[a1] = "123"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = "1  第2字=中文"

End Sub

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
3#
發表於 2015-5-1 10:53 | 顯示全部帖子
回復 8# t8899

你的用意是條件不成立時, 不要讓 [A2] 由 1 變回 0, 是這樣的話, 那就是我誤會你的原意囉

不然正常是應該這樣寫

If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = 1 else  [a2] = 0

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題