返回列表 上一主題 發帖

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

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

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

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

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

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

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

TOP

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

TOP

1.zip (10.31 KB)
偷雞法

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題