返回列表 上一主題 發帖

請教判斷中文字的語法 ?

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-30 15:17 | 顯示全部帖子

請教判斷中文字的語法 ?

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

if mid([a1],2,1) like ???? then  [a2]=1
收藏 分享

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
2#
發表於 2015-5-1 08:59 | 顯示全部帖子
這樣也可以 :
luhpro 發表於 2015-4-30 22:12

謝謝
我找到一個最簡單的，供參考
If Asc(mid([a1],2,1)) < 0 Then [a2]=1

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
3#
發表於 2015-5-1 10:08 | 顯示全部帖子
你可以 Run 下面看看

Sub xx()

[a1] = "1布2"
If Asc(Mid([a1], 2, 1)) < 0 Then [a2] = 1
[ ...
bobomi 發表於 2015-5-1 09:57

我把您的值 "1布2"  "123"放入 a1 測試沒問題
Sub MA3333_Click()
Dim k As Integer
For k = 1 To Len([A1])
If Asc(Mid([a1], k, 1)) < 0 Then
MsgBox Mid([a1], k, 1)
End If
Next
End Sub
另外再補判斷其他 英文，數字........的方法
判斷0-9 ===>    If Mid([a1], 2, 1) Like "[0-9]" Then
[^A-Za-z]非英文字  [^0-9] 非數字   [^0-9A-Za-z] 除了英文和數字之外的字元  
^表示不是

TOP

t8899

帖子
766 
主題
256 
精華
0 
積分
1035 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2026-10-2 
4#
發表於 2015-5-1 10:41 | 顯示全部帖子
你一定要執行我這個
我把 Sub Name 改成 MA3333_Click() 了
請你再用滑鼠點點看

Sub MA3333_Click()
...
bobomi 發表於 2015-5-1 10:19

沒問題啊! Book2.zip (7.93 KB)

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題