返回列表 上一主題 發帖

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

vanguarx

帖子
41 
主題
8 
精華
0 
積分
64 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
註冊時間
2015-3-11 
最後登錄
2020-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-5-21 15:20 | 只看該作者

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

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

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

  3.    str1 = Worksheets("sheet2").Cells(i, 5).Value
  4.    str2 = Worksheets("sheet2").Cells(i, 1).Value

  6.    Set reg = CreateObject("vbscript.regexp")
  7.    With reg
  8.         .Global = True
  9.         .ignorecase = True
  10.         .Pattern = "[\u4e00-\u9fa5]"
  11.    End With
  12.    If reg.test(str1) Or reg.test(str2) Then
  13.    
  14.      MsgBox ("第" & i & "行有錯誤")
  15.      Rows(i).Select
  16.    
  17.      MsgBox str1 & "  錯誤 !! 資料包含中文"
  18.      Exit Sub
複製代碼
收藏 分享

radys

帖子
3 
主題
0 
精華
0 
積分
4 
點名
0  
作業系統
windows 
軟體版本
8 
閱讀權限
10 
註冊時間
2015-5-9 
最後登錄
2016-8-29 
2#
發表於 2015-5-21 16:32 | 只看該作者
.Pattern = "[\u4e00-\u9fa5]" 是unicode繁簡所有中文的編碼，
用這個沒辦法單獨挑出簡體字

TOP

vanguarx

帖子
41 
主題
8 
精華
0 
積分
64 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
註冊時間
2015-3-11 
最後登錄
2020-10-7 
3#
發表於 2015-5-22 10:44 | 只看該作者
那請問 有單獨針對 簡體中文 的編碼嗎？

TOP

bobomi

帖子
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)
偷雞法

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題