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

Excel¦C¦Lsheet°ÝÃD

Excel¦C¦Lsheet°ÝÃD

½Ð±Ð¥ý¶i¡A¦b¦C¦LexcelÄæ¦ì¤¤¡A§Ú¥Ø«e­n©T©w¦C¦L½d³ò¤À§O¬°¡G(1)AÄæ   (2)A1:N7    (3)¦bsheet²Ä10»P11¦C«h¿ï¾Ü­Ë¼Æ13­ÓÄæ¦ì
½Ð°Ý³o¼Ëªº½d³ò­n¦p¦X°õ¦æ¦X¨Ö¬°¤@­Ó­¶­±¨Ã¦C¦L¥X¨Ó©O?  ÁÂÁÂ

testBook1.rar (9.49 KB)

½Ð±Ð¥ý¶i¡A¦b¦C¦LexcelÄæ¦ì¤¤¡A§Ú¥Ø«e­n©T©w¦C¦L½d³ò¤À§O¬°¡G(1)AÄæ   (2)A1:N7    (3)¦bsheet²Ä10»P11¦C«h ...
Mindyj µoªí©ó 2013-5-10 11:27
  1. Sub owge()
  2. Dim kss  As Integer
  3.    kss = ¤u§@ªí1.Range("A10").CurrentRegion.Columns.Count

  4. ¤u§@ªí2.Range("A1:N7").Value = ¤u§@ªí1.Range("A1:N7").Value
  5. ¤u§@ªí2.Range("A10:A11").Value = ¤u§@ªí1.Range("A10:A11").Value

  6. nn = 2
  7. For bb = kss - 13 To kss
  8.         ¤u§@ªí2.Cells(10, nn) = ¤u§@ªí1.Cells(10, bb)
  9.         ¤u§@ªí2.Cells(10, nn).NumberFormatLocal = "dd/mm/yy;@"
  10.             '=======
  11.         ¤u§@ªí2.Cells(11, nn) = ¤u§@ªí1.Cells(11, bb)
  12.         nn = nn + 1
  13. Next
  14.     ¤u§@ªí2.Select
  15.     Range("A1:O11").Select
  16.     ActiveSheet.PageSetup.PrintArea = "$A$1:$O$11"
  17. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 1# Mindyj
  1. Sub ex()
  2. Application.ScreenUpdating = False
  3. With ¤u§@ªí1
  4. .[B:M].Insert '´¡¤JB:MÄæ
  5. .Range(.[B8], .[M65536]).Delete xlShiftToLeft 'B8:M8¥H¤UÀx¦s®æ§R°£
  6. .Columns("B:M").Hidden = True 'B:MÄæÁôÂÃ
  7. .PrintPreview '¹wÄý¦C¦L
  8. '.PrintOut  '¦C¦L
  9. .Columns("B:M").Hidden = False 'Åã¥ÜB:MÄæ
  10. .Range("B1:M7").Delete xlShiftToLeft '§R°£B1:M7Àx¦s®æ
  11. End With
  12. Application.ScreenUpdating = True
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD