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

¦p¦ó¦bExcel¤¤´¡¤J¤j¼g¦r¥À¤§«eªºªÅ®æ¡H

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
  1. Sub Test()
  2.     Dim reg As Object
  3.     Set reg = CreateObject("vbscript.regexp")
  4.     reg.Pattern = "([A-Z])"
  5.     s1 = "(n) À]ªø¡FºÞ²zªÌThe director gave us work to do."
  6.     s2 = reg.Replace(s1, " $1")
  7.     MsgBox s2
  8. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD