ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý­n¦p¦óÀˬd ¬O§_§t¦³ "²Å餤¤å"

[µo°Ý] ½Ð°Ý­n¦p¦óÀˬd ¬O§_§t¦³ "²Å餤¤å"

§Ú¥Î¤U¦C¨ÓÀˬd¸ê®Æ¬O§_§t¦³¤¤¤å,

½Ð°Ý­n¦p¦óÀˬd ¬O§_§t¦³ "²Å餤¤å"
  1. ' Àˬd¬O§_¦³¤¤¤å

  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 & "  ¿ù»~ !! ¸ê®Æ¥]§t¤¤¤å"
  16.      Exit Sub
½Æ»s¥N½X

.Pattern = "[\u4e00-\u9fa5]" ¬OunicodeÁc²©Ò¦³¤¤¤åªº½s½X¡A
¥Î³o­Ó¨S¿ìªk³æ¿W¬D¥X²Åé¦r

TOP

¨º½Ð°Ý ¦³³æ¿W°w¹ï ²Å餤¤å ªº½s½X¶Ü¡H

TOP

1.zip (10.31 KB)
°½Âûªk

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD