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

[µo°Ý] ½Ð±ÐÃö©ó±N¸ê®Æ²Î¤@¤§³B²z

[µo°Ý] ½Ð±ÐÃö©ó±N¸ê®Æ²Î¤@¤§³B²z

§Ú¦³¼Æµ§¸ê®Æ,¨C­ÓÀx¦s®æ¤¤ªº¸ê®Æ­Y¦³¦h­Ó¦r¦ê¬O¥H¤À¸¹°Ï¹j,¦³¥H¤U±¡ªp:
1)­Y¦r¦ê¤¤§t¦³USA,«h²Î¤@§ï¬°USA
1.1)¦r¦ê¬°¥Ñ--¤G­Ó¦r¥À+ªÅ¤@®æ+¤­¦ì¼Æ¦r+ªÅ¤@®æ+USA--²Õ¦¨,¨ÒA 15213 USA
1.2)¦r¦ê¬°¥Ñ--¤G­Ó¦r¥À+ªÅ¤@®æ+USA--²Õ¦¨,¨Ò:WI USA
2)¦r¦ê¤¤¥¼§tUSA,¦ý¥Ñ--¤G­Ó¦r¥À+ªÅ¤@®æ+¤­¦ì¼Æ¦r--²Õ¦¨,¨Ò:FL 32816,¥ç²Î¤@§ï¬°USA

­ì¸ê®Æ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@­×§ï«á¸ê®Æ
CA 94720 USA¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA
CA 94305 USA; MA 02139 USA¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@  USA; USA
IL 61801 USA; France¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA; France
CA 93106 USA; Japan; Japan¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA; Japan; Japan
FL 32816        ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA
CA USA        ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA
IN USA; MS USA; MS USA        ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@USA; USA; USA
JAPAN; PA 19104; CANADA        ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@Japan; USA; Canada

ÁöµM¤w³z¹LWord¤Î¤H¤u¤è¦¡¸Ñ¨M¤F,¦ý¤´·Qª¾¹D¦³¨S¦³¿ìªk¦bExcel¤¤³z¹L¨ç¼Æ©Î¨ä¥L¤è¦¡¸Ñ¨M,ÁÂÁÂ!

990820-2.rar (4.42 KB)

°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona



Option Explicit

Function MyX(MyStr As String)
    Dim Myarr() As String
    Myarr() = Split(MyStr, ";")
   
    Dim i As Integer
    For i = 0 To UBound(Myarr)
        If InStr(1, Myarr(i), "USA") > 0 Then Myarr(i) = "USA"
        If Val(Right(Myarr(i), 5)) > 0 Then Myarr(i) = "USA"
    Next
   
    MyX = Join(Myarr(), ";")
End Function

TOP

¦^´_ 2# ivanyung

ÁÂÁÂ[ivanyung],¥i¥H¸Ñ¨M§Úªº°ÝÃD!
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD