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

[µo°Ý] ¦p¦ó¿z¿ï¬A¸¹¤ºªº­È

[µo°Ý] ¦p¦ó¿z¿ï¬A¸¹¤ºªº­È

°²³]¦³ A Äæ¦ìªº¦r¦êªø«×¤£©T©w ¥B§Î¦¡¦p¤U xxxx( abc )
xxxx ªø«×¤£©w abc ªø«×¤]¤£©w
¬O§_¦³¤èªk¥i¥H¿z¿ï¥X abc ªº­È©O?

¦³·Q¹L¥Î mid ¨ç¼Æ, ¦ýµo²{ªø«×¤£©T©w¨S¿ìªk¨Ï¥Î
¤]¦³·Q¹L¥Î split, ¦ý ¥ª¬A¸¹¥k¬A¸¹¬O¤£¤@¼Ëªº¤]¨S¿ìªk¿z¿ï
½Ð°Ýª©¤W°ª¤â¥i¥H«üÂI¤@¤U¶Ü? ÁÂÁ !

¦^´_ 1# sasho
  1. Option Explicit
  2. Sub Ex()
  3.     Dim S As String
  4.     S = "xxxx ( abc )"
  5.     S = Split(S, "(")(1)
  6.     S = Replace(S, ")", "")
  7.     S = Trim(S)
  8.    ' S = Trim(Replace(Split(S, "(")(1), ")", ""))
  9.     MsgBox "¶Ç¦^ " & Len(S) & " ¦r¦ê """ & S & """"
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¨ç¼Æ¥Îªk¦p¤U
=MID(A1,SEARCH("(",A1)+1,SEARCH(")",A1)-SEARCH("(",A1)-1)
ù

TOP

¦^´_ 2# GBKEE


¤j¤j½Ð°Ý¤@¤U¡A
¦bSplit(S, "(")(1)¤¤ªº(1)¬O¥Nªí¦ó·N??

TOP

¦^´_ 4# ashan0418
Split(S, "(")=>°}¦C
VBA µøµ¡ «ö F8³v¨B°õ¦æµ{¦¡½X


·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

·PÁÂGBKEE ¤j¤jªº«ü¾É!!

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD