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

[µo°Ý] ¥H"«ü©w¦r"§@¬°copy¨Ã¶K¤W­Èªº«ü©w½d³ò

[µo°Ý] ¥H"«ü©w¦r"§@¬°copy¨Ã¶K¤W­Èªº«ü©w½d³ò

¥¨¶°¤¤ªº«ü©w½d³ò§@copy¨Ã¶K¤W­Èªº°Ê§@,¯à§_¥H"«ü©w¦r"§@¬°copy¨Ã¶K¤W­Èªº«ü©w½d³ò?³o­Ó¥Î·N¬O¦b©ó¤u§@ªíªº¸ê®Æ¦³¼W¥[©Î´î¤Ö®É,¥Î"«ü©w¦r"§@¬°½d³ò¤~¤£»Ý­n¤£Â_ªº¥h­×§ï¥¨¶°µ{¦¡,½Ð¤j®aÀ°À°¦£!
¨Ò¦p:D19:O133
¥H"Shipped per SS: "¦r¼Ë¬°¶}©l(D19),¥H"PACKING:"¦V¥k+11­ÓÀx¦s®æ(§YO133)¬°µ²§ô
PKG.zip (19.34 KB)

¦^´_ 1# PJChen
  1. Sub Ex()
  2.     Dim Rng(1 To 2) As Range
  3.     With ActiveSheet
  4.         Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
  5.         Set Rng(2) = .Range("D:D").Find("PACKING:")
  6.         If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
  7.             MsgBox "§ä¤£¨ì"
  8.         Else
  9.             .Range(Rng(1), Rng(2)).Resize(, 11).Copy
  10.          End If
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
G¤j,±z¦n

§Ú§â±z¼gªºµ{¦¡®M¨ì§Úªº¤u§@ªí¥¨¶°¤¤,¦ý¥L°õ¦æ®É,µLªk §@copy¨Ã¶K¤W­Èªº°Ê§@,§Ú¦b¤u§@ªí¤¤¥´¤F¤½¦¡§@¬°¹êÅç,µ²ªG¥t¦s«á´N³£¶Ã½X¤F,¯à§_À°§Ú¬Ý¬Ý°ÝÃD¥X¦b­þ?

PKG2.zip (20.5 KB)
    Windows("PKG.xlsx").Activate
  
    Sheets("PKG").Select
   
    Dim Rng(1 To 2) As Range
    With ActiveSheet
        Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
        Set Rng(2) = .Range("D:D").Find("PACKING:")
        If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
            MsgBox "§ä¤£¨ì"
        Else
            .Range(Rng(1), Rng(2)).Resize(, 11).Copy
         End If
    End With
   
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q122:Q122").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Rows("143:143").Select
    Selection.ClearContents
    Range("C1").Select
    End With
ActiveWorkbook.SaveAs "P:\Shipping Doc\PJ\" & [Q5] & "_" & [C6] & " PO#" & [V7] & " by " & [C19] & " to " & [C22] & ".xlsx"
        
    Sheets("PKG").Select
    Columns("R:AC").Select
    Selection.Delete Shift:=xlToLeft
    Columns("A:C").Select
    Range("C11").Activate
    Selection.Delete Shift:=xlToLeft
   
   
    ActiveWorkbook.Save

   
End Sub

TOP

¦^´_ 3# PJChen
½Ð¥ý±NÀɮצs¦³¥¨¶°¥\¯àªº¬¡­¶Ã¯¬°   .xlsm ¬Ý¬Ý

TOP

¦^´_ 2# GBKEE
­è­è®³ÁA³o­Ó½d¨Ò°µ´ú¸Õ¡Aµo²{ Resize(, 11) À³¬° Resize(, 12)¡A¦p¦¹½d³ò¤~¯à¨ì¹F D19:O133
  1. Sub Ex()
  2.     Dim Rng(1 To 2) As Range
  3.     With ActiveSheet
  4.         Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
  5.         Set Rng(2) = .Range("D:D").Find("PACKING:")
  6.         If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
  7.             MsgBox "§ä¤£¨ì"
  8.         Else
  9.             .Range(Rng(1), Rng(2)).Resize(, 12).Copy Destination:=Sheets(2).Range("A1")
  10.         End If
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# GBKEE
¦^´_ 5# c_c_lai
VBA TEST.zip (35.57 KB)

¤G¦ì¦n,
¤GºØ¤è¦¡§Ú³£¸Õ¤F,ÁÙ¬O¦æ¤£³q,§Úªº¥¨¶°µ{¦¡³£¬O¥t¦sªº,§Ú»Ýªº¬O«ü©w½d³ò§@copy¨Ã¶K¤W­Èªº°Ê§@,µ²ªG¥t¦s«á´N³£¶Ã½X¤F,ªí¥Ü¥¨¶°¤¤ªº"copy¨Ã¶K¤W­Èªº°Ê§@"¨Ã¨S¦³¥Í®Ä!
²{¦b§Ú±N§@¦nªºÀɮפW¶Ç,¯àÀ°§Ú¬Ý¬Ý¥X¤F¤°»ò°ÝÃD¶Ü?

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2012-4-28 19:29 ½s¿è

¦^´_ 6# PJChen
¸Õ¸Õ³o­Ó¡G  ³Ì©³¤U¨º±i¹Ï¬O¤£¤p¤ßªþ¤Wªº¡A©p´N·í§@¨S¬Ý¨ì¡I
01.png
2012-4-28 19:26

02.png
2012-4-28 19:26

Shipping Doc.rar (55.72 KB)
01.gif

TOP

¦^´_ 7# c_c_lai
Hi,

§Ú¬Ý¨ì§A¤W¶Ç°õ¦æ¥¨¶°«áªºÀÉ,´N¸ò§Ú°õ¦æªºµ²ªG¬Û¦P,¦³¤½¦¡ªº¦a¤è³£¬O¶Ã½X,§Úª¾¹D¥¨¶°¥i¥H°õ¦æ¦ý§Ú»Ýªº¬O«ü©w½d³ò§@copy¨Ã¶K¤W­Èªº°Ê§@,µ²ªG¥t¦s«á´N³£¶Ã½X¤F,ªí¥Ü¥¨¶°¤¤ªº"copy¨Ã¶K¤W­Èªº°Ê§@"¨Ã¨S¦³¥Í®Ä!

TOP

¦^´_ 4# GBKEE
¦^´_ 8# PJChen
­ì¨Ó«üªº¬O³o­Ó¡AG¤j¤j³o¤è­±±z¤ñ¸û¦b¦æ¡A´«±z¤W³õ¤F¡I
01.png
2012-4-28 19:58

TOP

¦^´_ 4# GBKEE
¦^´_ 8# PJChen
§Ú§ä¨ì­ì¦]¤F¡A¦p¹Ï¥Ü¡B¤Î¥N½X (¹Bºâ¤½¦¡)¡G
  1.     ' Sheets("PKG").Select                           ' *****************
  2.     ' Columns("R:AC").Select                      ' *****************
  3.     ' Selection.Delete Shift:=xlToLeft       ' *****************
  4.     Columns("A:C").Select
  5.     Range("C11").Activate
  6.     Selection.Delete Shift:=xlToLeft
½Æ»s¥N½X
01.png
2012-4-28 20:25

VBA TEST.rar (56.61 KB)

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD