ªð¦^¦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)

ÁÂÁ´£¨Ñ¾Ç²ß«D±`¹ê¥Î
JOYARK

TOP

¦^´_ 21# PJChen
Please check the CI12-460_ACE PO#120309 by FEDEX to .xlsx produced  this morning
in D:\Shipping Doc\PJ subdirectory.

TOP

¦^´_ 20# c_c_lai
µ²ªG¬Ý¨Ó¬O¬Û¦Pªº.

TOP

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

¦^´_ 19# PJChen
³o¬O¤£¬O©p­nªº¡H
01.png
2012-4-29 06:32

02.png
2012-4-29 06:33
  1. Sub Try()
  2.     Dim Rng(1 To 2) As Range
  3.    
  4.     Windows("PKG.xlsx").Activate

  5.      '  ¥[¤J Hsieh ¥ý¶iªº¤Þ¥Î¤èªk
  6.     With Workbooks("PKG.xlsx")
  7.         With .Sheets("PKG")
  8.             Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
  9.             Set Rng(2) = .Range("D:D").Find("PACKING:")
  10.             
  11.             If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
  12.                 MsgBox "§ä¤£¨ì"
  13.             Else     '  ¨Ì·Ó Hsieh ¥ý¶iªº«ü¥Ü¡Aµy¥[­×¹¢
  14.                .Range(Rng(1), Rng(2).Offset(, 11)) = .Range(Rng(1), Rng(2)).Resize(, 12).Value
  15.             End If
  16.         End With
  17.     End With
  18.    
  19.    
  20.     Selection.Copy
  21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  22.         :=False, Transpose:=False
  23.     Range("Q122:Q122").Select
  24.     Selection.Copy
  25.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  26.         :=False, Transpose:=False
  27.     ActiveSheet.Paste
  28.     Rows("143:143").Select
  29.     Selection.ClearContents
  30.     Range("C1").Select
  31.    
  32.     ActiveWorkbook.SaveAs "D:\Shipping Doc\PJ\" & [Q5] & "_" & [C6] & " PO#" & [V7] & " by " & [C19] & " to " & [C22] & ".xlsx"
  33.         
  34.     Sheets("PKG").Select                         ' «ì´_­ìª¬
  35.     Columns("R:AC").Select                    ' «ì´_­ìª¬
  36.     Selection.Delete Shift:=xlToLeft     ' «ì´_­ìª¬
  37.     Columns("A:C").Select
  38.     Range("C11").Activate
  39.     Selection.Delete Shift:=xlToLeft
  40.    
  41.     ActiveWorkbook.Save
  42. End Sub
½Æ»s¥N½X
VBA TEST.rar (55.82 KB)

TOP

¦^´_ 18# Hsieh

ÁÂÁª©¤j,
­ì¨Ó¬O¦Û¤w¤j·N

TOP

¦^´_ 17# PJChen


    D19¬OÅܼÆaªº¦ì¸m¡A¦V¤W11¦C¤]¥u¨ìD8
§A©¿²¤¤F14¨ì18¦C³QÁôÂáA¨Sºâ³o4¦C©Ò¥H½d³ò¨S¥]§tD4
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 16# Hsieh
¤£¦n·N«äª©¤j,
¥Ñ"Shipped per SS:"¦V¤W11®æ(Àx¦s®æD4)¦b§Úªº¤u§@ªí¤W¬O¨S¦³¶W¥X½d³ò,¦ý§Ú¬G·N¦bD4©ñ¸m¤F¤½¦¡,­×§ï¬°¥H¤Uªº¼Ë¤l,
¶K¤W­È¤§«áD4¤½¦¡ÁÙ¦b,©Ò¥H  .Range(a.Offset(-11, 0)¨Ã¨S¦³¦V¤W11®æ,§Ú¸Ó«ç»ò¿ì?
¦pªG§A»Ý­n¬ÝÀÉ®×,§Ú¤W¶Ç¤F   VBA TEST.zip (35.29 KB)
            .Range(a.Offset(-11, 0), b.Offset(, 12)) = .Range(a.Offset(-11, 0), b.Offset(, 12)).Value

TOP

¦^´_ 15# PJChen

¦³2­Ó°ÝÃD
1.¦V¤W11®æ¦¡Offset(-11,0)
2.¦pªGaªº¦ì¸m¦b1¨ì11¦C¤§¶¡¡A¨º»ò¡A¦V¤W11¦C´N·|¶W¥X¤u§@ªí½d³ò¡A©Ò¥H¥X¿ù¡C
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# Hsieh

Áª©¤j,
°õ¦æ«á¨S¦³°ÝÃD,¦ý½Ð«ü±Ð¤@­Ó½d³ò¤Wªº°ÝÃD:
bªº½d³ò³o¼Ë¼g¥i¥H¦V¥k©µ¦ù12®æ....... b.Offset(, 12)
¨º¦pªGaªº½d³ò§Ú·Q¦V¤W¨«11®æ,§Ú§ï¬°¥H¤U,¬°¤°»ò¥¦¤£¯à°õ¦æ?
.Range(a.Offset(, -11), b.Offset(, 12)) = .Range(a.Offset(, -11), b.Offset(, 12)).Value

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD