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

[µo°Ý] Àx¦s®æ¥X²{®æ¦¡¬°¤å¦r©Î¶}ÀY¬°³æ¤Þ¸¹ªº¿ù»~

¦^´_ 10# Hsieh

§Ú­è¤~¥Î³o¼Ë´N¥i¥H¤F¡A§Ú·Q¬OLeft((Worksheets("Oracle").Cells(1, 2).Value), 3) ¹q¸£¤£»{±o¬O¼Æ­È

    Worksheets(customer).Cells(2, 3).Value = Left((Worksheets("Oracle").Cells(1, 2).Value), 3)
  Worksheets(customer).Cells(1, 3).Value = Worksheets("Oracle").Cells(1,1).Value * Worksheets(customer).Cells(2, 3).Value

¥t¥~§Ú·Q°Ý
A1Àx¦s®æ¤º¬O¡GCCLU8596520/J624353/001128
§Ú·QB1Àx¦s®æ¤ºÅã¥ÜCCLU8596520
¦]¬°/«e­±¤£¤@©w¬O11­Ó¦ì¡A§Ú¦p¦óÅý¹q¸£À´±o¿ë»{Ū¨ú²Ä¤@­Ó/²Å¸¹«eªº¼Æ­È¡AÅã¥Ü¦bB1Àx¦s®æ¤º?

TOP

¦^´_ 11# 198188


    [B1]=Split([A1],"/")(0)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh


    ·PÁ¡A½Ð°Ý¥i§_¸ÑÄÀ¤@¤U¥Îªk¡A¨º§Ú¥H«á´N¥i¥HÀ´±o¦p¦ó¹B¥Î³o­Ó»yªk¡C

TOP

  1. Sub MARCO()
  2. Worksheets(RUI).Range("A16:N66").Select
  3. Selection.Sort Key1:=Range("D16"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal

  4. End Sub
½Æ»s¥N½X
¥¼©R¦W.png
2013-2-9 12:14




½Ð°Ý³o­Ó»yªk­þ¸Ì¥X²{°ÝÃD¡H§Ú·Q¥HDÄ檺预计¨ì´ä¤é¥Ñ¤p¨ì¤j±Æ§Ç¡A±Æ§Ç½d³ò¬OA16:N66

TOP

¦^´_ 12# Hsieh

°ª¤H¡A½ÐÀ°¦£¬Ý¬Ý­þ¸Ì¥X²{°ÝÃD
    http://forum.twbts.com/viewthrea ... amp;page=2#pid51110

TOP

¦^´_ 12# Hsieh


    ¦pªG¨Ã«D¨C­ÓÀx¦s®æ³£¦³/³o­Ó²Å¸¹
½Ð°Ý¦p¦óÅý¹q¸£¿ë»{¡A¦]¬°¦pªG§Ú¥Î³o­Ó¤½¦¡¡A·í¹J¨ìµL/³o­Ó²Å¸¹ªº¨ºÄæ´N·|°±¦í¡C

¨Ò¦p¡G
¸ê®Æ®w¡G
HONGKONG, DO DELIVERY ­»´ä, ¥æ´£³f³æ
HONG KONG / ­»´ä
YANTIAN,CHINA/盐¥Ð
XINGANG,TIANJIN,CHINA/¤Ñ¬z·s´ä
SHANGHAI-CHINA/¤W®ü
XINGANG,TIANJIN,CHINA-¤Ñ¬z·s´ä

¦p¦ó¿ë»{¤¤¤å¤Î­^¤å¡A
1¡^¥uÅã¥Ü¤¤¤å
­»´ä, ¥æ´£³f³æ
­»´ä
盐¥Ð
¤Ñ¬z·s´ä
¤W®ü
¤Ñ¬z·s´ä

©ÎªÌ
2¡^¥uÅã¥Ü­^¤å       
HONGKONG, DO DELIVERY
HONG KONG
YANTIAN,CHINA
XINGANG,TIANJIN,CHINA
SHANGHAI-CHINA       
XINGANG,TIANJIN,CHINA

TOP

¦^´_ 16# 198188
  1. For Each a In Range([A1], [A1].End(xlDown)) '³B²zAÄæ¤å¦r
  2. d = IIf(InStr(a, "/") > 0, "/", IIf(InStr(a, " ") > 0, " ", "-")) '¨ú±o¤À¹j²Å¸¹
  3. b = IIf(InStr(a, ", ") > 0, Replace(a, ", ", ","), a) '­Y¥HªÅ¥ÕÁ䬰¤À¹j¡A«h±N³r¸¹«áªºªÅ¥Õ®ø°£
  4. mystr = Split(b, d)(UBound(Split(b, d))) '¥H¤À¹j²Å¸¹¤À¹j«á³Ì«áªº¦r¦ê
  5. a.Offset(, 1) = Trim(Replace(b, d & mystr, "")) '¼g¤JBÄæ
  6. a.Offset(, 2) = Trim(mystr) '¼g¤JCÄæ
  7. Next
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

[/code][b]¦^´_ [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=52598&ptid=8765]17#[/url] [i]Hsieh[/i] [/b]

Desktop.rar (193.92 KB)
¥¼©R¦W.png
2013-4-17 11:01

[code]Sub Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim i As Integer
Dim LastRec As Integer
Dim Sh As Worksheet, C As Range, Ar()
  
fs = "C:\Users\patrick.HKG\Desktop\DOCS RECEIVED N RELEASED RECORD.xlsx" 'ÙYÁÏ

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2013-4-17 11:09 ½s¿è
  1. Sub Detail()
  2. Dim FRng As Range
  3. Dim a As Range, Rng As Range
  4. Dim i As Integer
  5. Dim LastRec As Integer
  6. Dim Sh As Worksheet, C As Range, Ar()
  7.     fs = "C:\Users\patrick.HKG\Desktop\DOCS RECEIVED N RELEASED RECORD.xlsx"
  8. With Workbooks.Open(fs)
  9.    Set Sh = .Sheets("¦¬¥ó°O¿ý")
  10.        With ThisWorkbook.Sheets("OHC")
  11.           For Each a In .Range(.[C2], .Cells(.Rows.Count, 1).End(xlUp))
  12.              Set Rng = Sh.Columns("D").Find(a, lookat:=xlWhole)
  13.              If Not Rng Is Nothing Then
  14.                 For Each C In Sh.Range(Rng, Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
  15.                    If C = a And InStr(UCase(C.Offset(, 4).MergeArea(1)), "OHC") > 0 Then
  16.                       ReDim Preserve Ar(s)
  17.                       Ar(s) = C.Offset(, 4).MergeArea(1)
  18.                       s = s + 1
  19.                    End If
  20.                  Next
  21.              If s > 0 Then
  22.                a.Offset(, 9) = Join(Ar, "¡¢")
  23.                 Erase Ar
  24.                 s = 0
  25.                   Else
  26.                a.Offset(, 9) = ""
  27.              End If
  28.              End If
  29.           Next
  30.        End With
  31.   .Close
  32.   End With
  33.    End Sub
½Æ»s¥N½X
[/code][quote][/code]¦^´_  Hsieh
·í­nŪªºªíªºDÄæ¬OªÅ®æ¡A¦ÓHÄ榳OHC³o­Ó¦r¡A´N·|¥X²{ªþ¹Ïªº°ÝÃD

TOP

¥¼©R¦W.png
2013-4-17 11:22
¦^´_ 17# Hsieh


NANSHA-CHINA ¤¤国«n¨F                                               NANSHA-CHINA                          ¤¤国«n¨F
NANSHA-CHINA ¤¤国«n¨F                                               NANSHA-CHINA                          ¤¤国«n¨F
NANSHA-CHINA/¤¤国 «n¨F                                               NANSHA-CHINA                          ¤¤国 «n¨F
NANSHA-CHINA ¤¤国«n¨F                                               NANSHA-CHINA                          ¤¤国«n¨F
KAOHSIUNG TAIWAN PORT                                               KAOHSIUNG TAIWAN        PORT
OSAKA - JAPAN                                                                  OSAKA -                                              JAPAN
"HONG KONG / ­»´ä "                                               HONG KONG                          "­»´ä "
HONG KONG                                                                  HONG                                              KONG
OSAKA - JAPAN                                                                  OSAKA -                                              JAPAN
HONG KONG                                                                  HONG                                              KONG
HONG KONG, CY DELIVERY / ­»´ä, Âd³õ¥æ³f        HONG KONG,CY DELIVERY        ­»´ä,Âd³õ¥æ³f
HONG KONG, CY DELIVERY / ­»´ä, Âd³õ¥æ³f        HONG KONG,CY DELIVERY        ­»´ä,Âd³õ¥æ³f
HONG KONG, CY DELIVERY / ­»´ä, Âd³õ¥æ³f        HONG KONG,CY DELIVERY        ­»´ä,Âd³õ¥æ³f
HONG KONG, CY DELIVERY / ­»´ä, Âd³õ¥æ³f        HONG KONG,CY DELIVERY        ­»´ä,Âd³õ¥æ³f
HONG KONG, CY DELIVERY / ­»´ä, Âd³õ¥æ³f        HONG KONG,CY DELIVERY        ­»´ä,Âd³õ¥æ³f
NARITA, JAPAN (NRT)                                               NARITA,JAPAN                            (NRT)
·PÁ¡A¦ý¬O¦³¨Ç¦r¤£À³¸Ó©î¶}«o©î¶}¨Ò¦p¡GHONG KONG

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD