麻辣家族討論版版 » Excel程式區 » 請問要如何檢查是否含有 "簡體中文"

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

[發問] 請問要如何檢查是否含有 "簡體中文"

中學生 Rank: 2

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-5-21 15:20 | 只看該作者

[發問] 請問要如何檢查是否含有 "簡體中文"

我用下列來檢查資料是否含有中文,

請問要如何檢查是否含有 "簡體中文"

' 檢查是否有中文
str1 = Worksheets("sheet2").Cells(i, 5).Value
str2 = Worksheets("sheet2").Cells(i, 1).Value
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.ignorecase = True
.Pattern = "[\u4e00-\u9fa5]"
End With
If reg.test(str1) Or reg.test(str2) Then
MsgBox ("第" & i & "行有錯誤")
Rows(i).Select
MsgBox str1 & " 錯誤 !! 資料包含中文"
Exit Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

4^#

發表於 2015-5-22 13:25 | 只看該作者

1.zip (10.31 KB)
偷雞法

中學生 Rank: 2

帖子: 41
主題: 8
精華: 0
積分: 64
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
註冊時間: 2015-3-11
最後登錄: 2020-10-7

3^#

發表於 2015-5-22 10:44 | 只看該作者

那請問有單獨針對簡體中文的編碼嗎？

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 4
點名: 0
作業系統: windows
軟體版本: 8
閱讀權限: 10
註冊時間: 2015-5-9
最後登錄: 2016-8-29

2^#

發表於 2015-5-21 16:32 | 只看該作者

.Pattern = "[\u4e00-\u9fa5]" 是unicode繁簡所有中文的編碼，
用這個沒辦法單獨挑出簡體字

靜思自在 : 口說好話、心想好意、身行好事。

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