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

[µo°Ý] ¦h¥Ø¼ÐReplace«ç»ò¼g³Ìºë²?

[µo°Ý] ¦h¥Ø¼ÐReplace«ç»ò¼g³Ìºë²?

¦U¦ì°ª¤â

¦pªG§Ú·Q¼g¹ïA1:B10½d³òªºÀx¦s®æ°µ¦h¥Ø¼ÐReplace¡A§â "¡B" , "¡C" , "¡A" , "!" , "?"³£¥h±¼¡AÃþ¦üReplace(array("¡B" , "¡C" , "¡A" , "!" , "?") , "")ªº°Ê§@¡A¸Ó«ç»ò¼g·|³Ìºë²?

ÁÂÁ¦^ÂÐ
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

¦^´_ 1# VBALearner
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR(), St As String, e As Variant
  4.     AR = Array("¡B", "¡C", "¡A", "!", "?")
  5.     St = "ABCD¡B¡CeFg¡A!Hijk?"
  6.     For Each e In AR
  7.         St = Replace(St, e, "")
  8.     Next
  9.     MsgBox St
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

·PÁª©¤j¦^ÂÐ~
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD