198188

¦^´_ 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®æ¤º?

Hsieh

¦^´_ 11# 198188


    [B1]=Split([A1],"/")(0)

198188

¦^´_ 12# Hsieh


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

198188

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. 
   
5. End Sub

½Æ»s¥N½X

¤U¸ü (150.88 KB)

2013-2-9 12:14

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

198188

¦^´_ 12# Hsieh

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

198188

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

Hsieh

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

198188

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

¤U¸ü¦¸¼Æ: 2

2013-4-17 10:59

¤U¸ü (190.13 KB)

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ÁÏ

198188

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

198188

¤U¸ü (183.83 KB)

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