- 帖子
- 41
- 主題
- 8
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 註冊時間
- 2015-3-11
- 最後登錄
- 2020-10-7
|
我用下列來檢查資料是否含有中文,
請問要如何檢查 是否含有 "簡體中文"- ' 檢查是否有中文
- 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
複製代碼 |
|