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

sasho

°²³]¦³ 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¶Ü? ÁÂÁ !

GBKEE

¦^´_ 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

rouber590324

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

ashan0418

¦^´_ 2# GBKEE


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

GBKEE

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

¤U¸ü (101.28 KB)

2014-12-8 13:39

ashan0418

¦^´_ 5# GBKEE

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