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

[µo°Ý] ®æ¦¡¤Æ±ø¥ó,¦³­È«hÅã¥Ü¾ã¼Æ¦C®Ø¬[

¦^´_ 20# jackson7015

1.¿ïCÄæ~IÄæ
    ³]©w®æ¦¡¤Æ±ø¥ó
    ¤½¦¡¬°  =(ROW()-5)<=ROUNDUP(COUNTA($C$3:$C$65536),-1)

2.Thisworkbook ¬¡­¶Ã¯¼Ò²Õ
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. If [C6] = "" Then
  3.    LR = 5
  4. Else
  5.    LR = Application.CountA([C6:C65535])
  6.    LR = Application.RoundUp(LR, -1) + 5
  7. End If
  8. ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 21# register313

·PÁÂregister313¤j¤j¤£Ã㨯³ÒªºÀ°¦£...

®æ¦¡¤Æ±ø¥ó§Ú§ó§ï¬°¤U¦C¤½¦¡¥i¥¿±`ø»s®æ½u
=(ROW()-5)<=ROUNDUP(COUNTA($C$6:$C$65535),-1)

Thisworkbook ¬¡­¶Ã¯¼Ò²Õ§Ú¿é¤J«á,¦C¦L®æ¦¡¨S¦³¤ÏÀ³¤]¨S¦³§ïÅÜ

½Ð°Ý¬O§_ÁÙ­n§ó§ï­þ¨Ç³¡¥÷©O?

TOP

¦^´_ 22# jackson7015

Private Sub Workbook_BeforePrint(Cancel As Boolean)
¦¹¬°¦C¦L«e¥h³]©w¦C¦L½d³ò

¹wÄý¦C¦L ©Î ¦C¦L §Y·|¥Í®Ä

TOP

¦^´_ 23# register313

¨Ï¥Î¹wÄý¦C¦L©Mª½±µ¦C¦L«á,¥u¥X²{¤@­¶ªº¦C¦L½d³ò,¨S¦³Åܧó¦C¦L½d³ò

ªþ¤Wªí®æ,¦b·Ð½Ðregister313¤j¤jÀ°¦£...
¤é³øªí.rar (494.86 KB)

TOP

¦^´_ 24# jackson7015

µ{¦¡½X¥[¦bThisWorkbook¤º


¨ä¥L¤u§@ªí¤ºªºµ{¦¡§R°£

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-4-10 08:43 ½s¿è

¦^´_ 25# register313

½Ð°Ýregister313¤j¤j,¤u§@¼Ò²Õªº¦U¶µÄݩʬO§_­n§ó°Ê?

§Ú±N¤½¦¡¿é¤JThisworkbook «á¨ÌµM¬O¨S¦³¤ÏÀ³

­ì¥»¥H¬°¬O§_¬O¤§«e³]©w¤FC:Iªº¦C¦L½d³òªº¼vÅT
©Ò¥H¨ú®ø¥þ³¡¦C¦L½d³ò«á,¦C¦L½d³òÅܬ°200­¶!?
¦Ó­«·s¤â°Ê³]©w¤FC:I¦C¦L½d³ò«á,Åܦ^¦³¦r¤¸³¡¤À¤~¦³¦C¦L½d³ò

¶µ¥Ø¤@¬O¤â°Ê¿é¤JCÄæ¼Æ­È´ú¸Õ,¦C¦L½d³ò¤â°Ê¿é¤J¤FC:I=>¦³¦r¤¸³¡¤À¤~¦³¦C¦L½d³ò
¶µ¥Ø¥|¬O­«·s¾ã²z¼Ï¯Ã¤ÀªRªí´ú¸Õ,¦C¦L½d³ò¤â°Ê¿é¤JC:I=>¦³¦r¤¸³¡¤À¤~¦³¦C¦L½d³ò
¶µ¥Ø¤»¬O¨ú®ø©Ò¦³¦C¦L½d³ò=>¦C¦L±i¼ÆÅܬ°200­¶..
¶µ¥Ø11¬OCÄæµL¼Æ­È,¨ú®ø©Ò¦³¦C¦L½d³ò=>¦C¦L±i¼Æ¬°200­¶

ªþ¤WÀɮ׷нФj¤j
¬Ý¬Ý¬O§_¦³¤p§Ì¤â©å³]©w¿ù»~ªº¦a¤è
¤é³øªí.rar (479.38 KB)

TOP

¦^´_ 26# jackson7015

1.¤£¥Î¤â°Ê¥h³]©w¦C¦L½d³ò
2.¤u§@ªí§ï¦n«á,
   §@ ¹wÄý¦C¦L ©Î ¦C¦L,¨ä¦C¦L½d³ò·|¦Û°Ê½Õ¾ã³]©w

TOP

¦^´_ 27# register313

°Ê§@´ú¸Õ¥X¨Ó«á¡G
1.²M°£¤â°Ê³]©w¦C¦L½d³ò
2.Thisworkbook ­×§ï«á
    ¹wÄý¦C¦L¬O¬°27#¼Ó©Ò¦^ÂЪº¦C¦L½d³ò
    ª½±µ¦C¦L¥X¨Óªº½d³ò«h¬O¤j¤j©Òªí¥Üªº½d³ò¡A¥B¦C¦L«á·|Åܧ󬰩һݭn¤§½d³ò¡A§Y¬O¥»¤H©Ò»Ýªº¦C¦L½d³ò°Ê§@
·PÁÂregister313¼ö¤ßÀ°¦£¡A²×©ó¸Ñ¨M©Ò¦³°ÝÃDÂI

±Nµ{¦¡½X¨Ï¥Î¦b§Úªº§¹¾ã¤u§@³øªí¤º«á¡A¨ä¥Lªº¤u§@­¶­±·|¦Û°Ê±N¤w³]©wªº¦C¦L½d³ò¡A§ó§ï¬°Thisworkbook µ{¦¡½Xªº¦C¦L½d³ò
½Ð°Ý¥i¥H¥u¦b¶µ¥Ø1¡ã¶µ¥Ø11ªº³o¨Ç¤u§@­¶­±°µ¦C¦L½d³ò°Ê§@´N¦n¤F¶Ü¡H
³o¼Ë¤~¤£·|¼vÅT¨ì¨ä¥L¤u§@­¶­±
±Nµ{¦¡¼g¦b¶µ¥Ø¤u§@ªí¤º¡A¦C¦L¥X¨Óªº½d³ò¤£·|¦³Åܧó

TOP

¦^´_ 28# jackson7015

¥\¯à:"¶µ¥Ø1" ©Î "¶µ¥Ø4" ©Î "¶µ¥Ø6" ©Î "¶µ¥Ø11"  4±i¤u§@ªí¦b§@¹wÄý¦C¦L©Îª½±µ¦C¦L®É,·|¦Û°Ê³]©w½Õ¾ã¦¨©Ò»Ý¤§¦C¦L½d³ò
ThisWorkbookµ{¦¡½X§ï¬°¤U¦C§Y¥i
  1. Private Sub Workbook_BeforePrint(Cancel As Boolean)
  2. Sh = ActiveSheet.Name
  3. If Sh = "¶µ¥Ø1" Or Sh = "¶µ¥Ø4" Or Sh = "¶µ¥Ø6" Or Sh = "¶µ¥Ø11" Then
  4.   If [C6] = "" Then
  5.      LR = 5
  6.   Else
  7.      LR = Application.CountA([C6:C65535])
  8.      LR = Application.RoundUp(LR, -1) + 5
  9.   End If
  10.   ActiveSheet.PageSetup.PrintArea = "C1:I" & LR
  11. End If
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 29# register313

µ{¦¡½X¦C¦L½d³ò¤w¯à§¹¥þ¥¿±`¨Ï¥Î
©Ò¼g¤º®e¤]·|ºCºC¥h¸ÑªR
¦A¦¸¸U¤À·PÁÂregister313¤j¤j­«ÀY¨ì§Àªº¨ó§UÀ°¦£
¤p§Ì·P¿E¤£ºÉ

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD