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

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

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

[/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

Desktop.rar (440.64 KB)
  1.   fs = "W:\Payment Daily Report\HK ETA update.xlsm"
  2. Set wb = Workbooks.Open(fs)
  3. With ThisWorkbook.Worksheets("State")
  4. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
  5.      Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
  6.      If Not FRng Is Nothing Then
  7.           A.Offset(, 1) = FRng.Offset(, 11).Value
  8.           If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
  9.         End If
  10.         Set FRng = Nothing
  11. Next
  12. End With
  13. wb.Close 0
½Æ»s¥N½X
¦^´_ 17# Hsieh
³o­Óµ{¦¡À³¸Ó¬O·|¦Û°Ê§ó·sMaster.xlsxªºBÄæ¸ê®Æ¡A¦ý¬O§Úµo²{¦³¨Ç°µ¤£¤F¡A¨Ò¦p209519 Master.xlsx¬O22/3¡A¦ý¬OHK HAIPONG sheet ¬O21/3¡A ¤£À´±o§ó·s¡A½Ð°Ý­þ¸Ì¦³°ÝÃD¡H

¥t¥~¦pªG¦bHK HAIPONG sheet ¤¤§ä¨ì¦³¡A¦ý¬OOffset(, 11).Value¬OªÅ®æ¡A´N¤£ÅÜ,§Ú§ï¤F³o¥yIf Trim(FRng.Offset(, 11).Value) <> "" then  A.Offset(, 1) = FRng.Offset(, 11).Value¡A¦ý¬O¨S¦³§@¥Î¡A½Ð°Ý¬O§_¦³¿ù¡H

fs = "W:\Payment Daily Report\HK ETA update.xlsm"
Set wb = Workbooks.Open(fs)
With ThisWorkbook.Worksheets("State")
For Each A In .Range(.[A2], .Range("A1").End(xlDown))
     Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
     If Not FRng Is Nothing Then
        If Trim(FRng.Offset(, 11).Value) <> "" then  A.Offset(, 1) = FRng.Offset(, 11).Value
          If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
        End If
        Set FRng = Nothing
Next
End With
wb.Close 0

TOP

¦^´_ 22# Hsieh


    ³o­Óµ{¦¡À³¸Ó¬O·|¦Û°Ê§ó·sMaster.xlsxªºBÄæ¸ê®Æ¡A¦ý¬O§Úµo²{¦³¨Ç°µ¤£¤F¡A¨Ò¦p209519 Master.xlsx¬O22/3¡A¦ý¬OHK HAIPONG sheet ¬O21/3¡A ¤£À´±o§ó·s¡A½Ð°Ý­þ¸Ì¦³°ÝÃD¡H

TOP

  1. Sub Load_State_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. fs = "W:\Payment Daily Report\HK ETA update.xlsm"
  7. Set wb = Workbooks.Open(fs)
  8. With ThisWorkbook.Worksheets("State")
  9. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
  10.      Set FRng = wb.Sheets("HK HAIPONG").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
  11.      If Not FRng Is Nothing Then
  12.      If Trim(FRng.Offset(, 11).Value) <> "" Then
  13.           A.Offset(, 1) = FRng.Offset(, 11).Value
  14.           If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
  15.         End If
  16.         End If
  17.         Set FRng = Nothing
  18. Next
  19. End With
  20. wb.Close 0

  21.   fs = "W:\Payment Daily Report\Mainland ETA Update.xlsm"
  22. Set wb = Workbooks.Open(fs)
  23. With ThisWorkbook.Worksheets("State")
  24. For Each A In .Range(.[A2], .Range("A1").End(xlDown))
  25.      Set FRng = wb.Sheets("MAILAND ETA").Range("A:A").Find(A, lookat:=xlWhole, SearchDirection:=xlPrevious)
  26.       If Not FRng Is Nothing Then
  27.        If Trim(FRng.Offset(, 11).Value) <> "" Then
  28.      A.Offset(, 1) = FRng.Offset(, 11).Value
  29.      
  30.            If rng Is Nothing Then Set rng = A.Offset(, 1) Else Set rng = Union(rng, A.Offset(, 1))
  31.         End If
  32.         End If
  33.        Set FRng = Nothing
  34. Next
  35. End With
  36. wb.Close 0
  37. end sub
½Æ»s¥N½X
¦^´_ 24# Hsieh

With ThisWorkbook.Worksheets("State") ³o¥y¬O¤£¬O«ü¥Ü¤FMaster.xlsm¤ºªºState Sheet¶Ü¡H

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2013-4-22 11:23 ½s¿è

¥¼©R¦W.png
2013-4-22 11:23
b]¦^´_ 26# Hsieh


    ¬O§r¡A§Úµ{¦¡¬O©ñ¦bMASTER.XLSM¤º¡A¦]¬°§Ú©È©ñµ{¦¡·|¾É­PEXCEL¤Ó¤j¡AµLªk¤W¸ü¡A©Ò¥H¤~¤À¥X¨Ó¤W¸ü

TOP

¦^´_  198188
Hsieh µoªí©ó 2013-4-16 19:32



    ¥t¥~¥i§_À°§Ú¬Ý¬Ý²Ä18¡A19ªº¶K¤å¡H
²Ä18½g¬O°ÝÃD¡A²Ä19½g¬Oµ{¦¡¡C¬°¦ó¸ê®Æ®w¦³ªÅ®æ®É¡A·|Åܦ¨³o¼Ë¡A¦ì¸m¤£¹ï

TOP

[/code]¦^´_  Hsieh


[code]Sub Detail()
Dim FRng As Range
Dim a As Range, Rng As Range
Dim ...
198188 µoªí©ó 2013-4-17 11:04


¥t¥~¥i§_À°§Ú¬Ý¬Ý²Ä18¡A19ªº¶K¤å¡H
²Ä18½g¬O°ÝÃD¡A²Ä19½g¬Oµ{¦¡¡C¬°¦ó¸ê®Æ®w¦³ªÅ®æ®É¡A·|Åܦ¨³o¼Ë¡A¦ì¸m¤£¹ï
½Ð°Ý¦³¤èªk¸Ñ¨M³o­Ó°ÝÃD¶Ü¡H

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD