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

¨Ì¦C¦L¥÷¼Æ¦Û°Ê²£¥Í¬y¤ô¸¹

¨Ì¦C¦L¥÷¼Æ¦Û°Ê²£¥Í¬y¤ô¸¹

¥»©«³Ì«á¥Ñ sping ©ó 2010-7-9 14:43 ½s¿è

¦]¤u§@¤W»Ý­n¡A°µ¤F¤@­Ó·|¦Û°Ê¨Ì¦C¦L¥÷¼Æ²£¥Í¬y¤ô¸¹ªºÀɮסA¬y¤ô¸¹¥i¥H¶¶§Q²£»s¡A¥i¬O¦pªG¦C¦L10¥÷«h¤]·|²£¥Í10¦¸ªº¡u¦C¦L°T®§¤è¶ô¡v(¦]¬°¦³®É·|¦C¦L100¥÷¡A¤]·|²£¥Í100¦¸¡u¦C¦L°T®§¤è¶ô¡v)¡A¤£¾å±o¦U¦ì¤j¤j¦³¸Ñ¨Mªº¿ìªk¶Ü?
¨Ì¦C¦L¥÷¼Æ²£»s¬y¤ô¸¹.zip (23.28 KB)

¦^´_ 1# sping


    ©êºp, ¦³­Ó¦a¤è¬Ý¤£À´ :

With ws
.
.
.
End With

¤¤ªº ws ¤£ª¾¹D¬O¥Nªí¤°»ò©Î¬O¥Î¦b­þ¸Ì?

¥t¤W­z³¡¤Àµ{¦¡«Øij­Y§ï¦¨ :

With Sheets("¥Ó½Ð®Ñ")
  For skb = 1 To w5
     .PrintOut
     .Range("x24").Value = .Range("x24").Value + 1
  Next skb
End With

¥i¯à·|§ó²¼ä¤@¨Ç.


¦]¬°­è¤U¯Z¨ì®a¥Ø«e¤âÀY¤W¨S¦³¦Lªí¾÷¥i¥H¼ÒÀÀ§A©Ò»¡ªº±¡§Î,
©Ò¥H¼È®É¥u¯à¥ý¥Î²q´úªº.

§A©Ò»¡ªº ¡u¦C¦L°T®§¤è¶ô¡v¤£ª¾¹D¬O¤£¬O¿ï¾Ü¦Lªí¾÷ªº°T®§?
¦pªG¬Oªº¸Ü¥i¥H¦b expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName) ¤ºªº ActivePrinter °Ñ¼Æ¤Wª½±µ«ü©w§A­n¥Îªº¦Lªí¾÷¦WºÙ,
³o¼Ë´N¤£·|¦A¥X²{°T®§µøµ¡°Ý§A­n¥Î­þ¤@¥x¦L¤F.

¦ý¦pªG¥u¬O³æ¯ÂÅã¥Ü¥¿¦b¦C¦L¸ê®Æªº°T®§,
¦Ó "µL»Ý¤H¤u¤¶¤J¾Þ§@" ¤~·|Ä~Äò¦C¦L¤U¤@±iªº¸Ü,
«Øij§AÁÙ¬Oª½±µµLµø¸Ó°T®§§a,
²¦³º´N¦p¦P Office ªº¦U­Ó¦¨­û¤@¼Ë,
·í§A¦C¦L®É¦P¼Ë·|¥X²{¡u¦C¦L°T®§¤è¶ô¡v,
³o¬OWindows¨t²Î¥»¨­±µ¦¬¨ì¦C¦L­n¨D®É©Ò²£¥Íªº¦^À³¾÷¨î.

TOP

¦^´_ 2# luhpro

§Ú»¡ªº¦C¦L°T®§¤è¶ô´N¬O«ü¡u³æ¯ÂÅã¥Ü¥¿¦b¦C¦L¸ê®Æªº°T®§¡v¡A´N¬O§A»¡ªº«áªÌ¡A§Ú¬O·Q§ä¬Ý¦³¨S¦³¹³Ãþ¦ü¡yApplication.DisplayAlerts = False ¡z Ãö³¬Äµ¥Ü°T®§ªº»yªk¡A¦pªG¨S¦³³oºØ»yªk¡A¨º¥u¦nµLµø°T®§ªº¦s¦b¡A¥u¬O¦³®É­Ô¦C¦L50¥÷¸ê®Æ¡A°T®§´N¶]50¦¸¡A¤ñ¸û°Q¹½¡A¦ýÁÙ¬O¥i¥H§¹¦¨¤u§@¡C
ÁÙ¦³ÁÂÁ§AÀ°§Ú§âµ{¦¡½X§ï±o§ó²¼ä¤F¡C§Ú¦bvbaÁÙºâªì¾ÇªÌ¡AÁٻݭn¦h¸ò¦U¦ì«e½ú¾Ç²ß¾Ç²ß¡C

TOP

§Ú²{¦b«D±`»Ý­n³o¶µ¤u¨ã
¥i¬O   §Ú«o¤£¯à¤U¸ü

«ç¿ìªü

TOP

¦^´_ 3# sping

¥u¥X²{¤@¦¸¦C¦L¹ï¸Ü¤è¶ô
  1. Sub ¦C¦L¥Ó½Ð®Ñ()
  2. Dim sh()
  3. Application.DisplayAlerts = False
  4. Sheets("¥Ó½Ð®Ñ").Range("x24") = Sheets("¿é¤J°Ï").Range("b13")
  5. w5 = Application.InputBox("¦C¦L¥Ó½Ð®Ñ¦h¤Ö¥÷¡H ", Type:=1)
  6. If w5 < 1 Then
  7. MsgBox "¥¼¿é¤J¥¿½T¤§¦C¦L¥÷¼Æ¡AµLªk¦C¦L¥Ó½Ð®Ñ"
  8. Else
  9. With ws
  10.        For skb = 1 To w5
  11.        Sheets("¥Ó½Ð®Ñ").Range("x24").Value = Sheets("¥Ó½Ð®Ñ").Range("x24").Value + 1
  12.        Sheet2.Copy after:=Sheets(Sheets.Count)
  13.        ReDim Preserve sh(s)
  14.        sh(s) = ActiveSheet.Name
  15.        s = s + 1
  16.        Next skb
  17. End With
  18. End If
  19. Sheets(sh).PrintOut
  20. Sheets(sh).Delete
  21. Application.DisplayAlerts = True
  22. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# sping

¤u§@¤W¥¿¦n·|¥Î¨ì~¥u¬O¤£¯à¤U¸ü~~

TOP

        ÀR«ä¦Û¦b : «Î¼e¤£¦p¤ß¼e¡C
ªð¦^¦Cªí ¤W¤@¥DÃD