請教判斷中文字的語法 ? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教判斷中文字的語法 ?

返回列表下一主題上一主題發帖

請教判斷中文字的語法 ?

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

1^# 跳轉到 »

發表於 2015-4-30 22:12 | 顯示全部帖子

本帖最後由 luhpro 於 2015-4-30 22:13 編輯

假如[a1]的第2個字為中文字則[a2]=1 的語法 ?

if mid([a1],2,1) like ???? then [a2]=1
t8899 發表於 2015-4-30 15:17

這樣也可以 :

Sub nn()
Dim sStr$, lPos&
sStr = Mid([A1], 2, 1)
If sStr <> "" Then
lPos = Asc(sStr)
If lPos <= 0 Then [A2] = 1 Else [A2] = 0
End If
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

2^#

發表於 2015-5-3 07:46 | 顯示全部帖子

謝謝
我找到一個最簡單的，供參考
If Asc(mid([a1],2,1)) < 0 Then [a2]=1
t8899 發表於 2015-5-1 08:59

我之所以會用
If sStr <> "" Then
這一行的原因是 :
如果 [A1] 儲存格的內容只有 1 個英數字或是沒有資料,
那麼 Asc(mid([a1],2,1)) 會出現錯誤訊息.

當然, 原式若要簡化是可以把 lPos 拿掉:

Sub nn()
Dim sStr$
sStr = Mid([A1], 2, 1)
If sStr <> "" Then
If Asc(sStr) <= 0 Then [A2] = 1 Else [A2] = 0
End If
End Sub

複製代碼

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題