GBKEE

¦^´_ 3# jackson7015

1. '¤ä²¼ ¤u§@ªí¼Ò²Õ ªºµ{¦¡½X
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address = "$B$3" And [B3] > 0 Then
   
4.        If MsgBox("¦L¦C ¤ä²¼ " & Target & "µ§", vbYesNo + vbInformation) = vbYes Then
   
5.             Sheet_PageSetup
   
6.             Sheet_PrintOut
   
7.        End If
   
8.     End If
   
9. End Sub
   
10. Private Sub Sheet_PageSetup()      '¦L¦Cªº³]©w
    
11.     With PageSetup
    
12.         .PrintArea = "$I$44:$W$65"  '¦L¦C½d³ò   "¤@±i¤ä²¼ªº½d³ò"
    
13.         .CenterHorizontally = True  '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O¤ô¥­¸m¤¤ªº«h¬° True
    
14.         .CenterVertically = True    '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O««ª½¸m¤¤ªº«h¬° True
    
15.         .PaperSize = xlPaperB4      '³]©w¯È±i¤j¤p  '¥i¬ÝPaperSize »¡©ú
    
16.         .FitToPagesWide = 1         '³]©w­¶¼e=1­¶
    
17.         .FitToPagesTall = 1         '³]©w­¶°ª=1­¶
    
18.     End With
    
19. End Sub
    
20. Private Sub Sheet_PrintOut()
    
21.     For I = 1 To [B3]
    
22.         [L50] = Cells(I + 6, "C")
    
23.         [M50] = Cells(I + 6, "D")
    
24.         [O50] = Cells(I + 6, "E")
    
25.         [P50] = Cells(I + 6, "F")
    
26.         [Q50] = Cells(I + 6, "G")
    
27.         PrintOut Copies:=5    '"¤@±i¤ä²¼ªº½d³ò"  ¦L¦C ¤­Áp³æ
    
28.     Next
    
29. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# jackson7015

¤ä²¼ ¤u§@ªí¼Ò²Õ ªºµ{¦¡½X

¤U¸ü (114.83 KB)

2014-4-10 15:46

GBKEE

¦^´_ 9# jackson7015
¦C¦L½d³òªº³¡¥÷¦³¿ù»~
²Ä¤@Áp­n±qJ:X¡F²Ä¤GÁp­n±qY:AN¡FÃþ±À..
¦C¦L³¡¤ÀÅܦ¨²Ä¤@ÁpªºJ:W¦³¤­¥÷
À³¸Ó­n1~5Áp¦U¤@¥÷¡A¨CÁpªº¦C¦L½d³ò¬°22R*16C

§A1¼ÓªºªþÀÉ,¸ê®Æ¥u¦³A:H Ä榳¸ê®Æ¥i¥H­«·sªþÀÉ»¡©ú¬Ý¬Ý¶Ü.

GBKEE

¦^´_ 11# jackson7015


¸Õ¸Õ¬Ý

    Ex.rar (120.47 KB)

¤U¸ü¦¸¼Æ: 7

2015-6-8 15:23

GBKEE

¦^´_ 13# jackson7015
[¹wÄý¦C¦L] ¥iÃö³¬¥¦©Î¬O¿ï¾Ü¦L¦C,¦ýµLªk¶Ç¦^°Ñ¼Æ¨Ñµ{¦¡§@¤¤Â_¦L¦C©ÎÄ~Äò¦L¦Cªº§PÂ_.

¥B¨Ï¥Î:¨Ï¥Îµøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À­¶²Å¸¹¹wÄý ¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Rng As Range, Ar(1 To 5), i As Integer, x As Integer
   
3.     With Sheets("¥¼¨ì´Á¤ä²¼¼Ð·Ç")
   
4.         If .Range("B3") = 0 Then
   
5.             MsgBox "¨S¦³¸ê®Æ¥i¦L¦C ?"
   
6.             Exit Sub
   
7.         End If
   
8.         ActiveWindow.View = xlPageBreakPreview  '¨Ï¥Î¤¤µøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À­¶²Å¸¹¹wÄý
   
9.         Ar(1) = "²Ä¤@Áp"
   
10.         Ar(2) = "²Ä¤GÁp"
    
11.         Ar(3) = "²Ä¤TÁp"
    
12.         Ar(4) = "²Ä¥|Áp"
    
13.         Ar(5) = "²Ä¤­Áp"
    
14.         .ScrollArea = "I6:x27"
    
15.         With .PageSetup
    
16.             .PrintArea = "I6:x27"  '¦L¦C½d³ò   "¤@±i¤ä²¼ªº½d³ò"
    
17.             .CenterHorizontally = True  '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O¤ô¥­¸m¤¤ªº«h¬° True
    
18.             .CenterVertically = True    '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O««ª½¸m¤¤ªº«h¬° True
    
19.             .PaperSize = xlPaperA4      '³]©w¯È±i¤j¤p  '¥i¬ÝPaperSize »¡©ú
    
20.             .FitToPagesWide = 1         '³]©w­¶¼e=1­¶
    
21.             .FitToPagesTall = 1         '³]©w­¶°ª=1­¶
    
22.         End With
    
23.         
    
24.         For i = 1 To .[B3]
    
25.             Set Rng = .Range("C6:g6").Offset(i)
    
26.             .Range("L12") = Rng(1, 1)  '²¼¾Ú¸¹½X
    
27.             .Range("M12") = Rng(1, 2)  'ª÷ÃB
    
28.             .Range("O12") = Rng(1, 3)  '¦~
    
29.             .Range("P12") = Rng(1, 4)  '¤ë
    
30.             .Range("Q12") = Rng(1, 5)  '¤é
    
31.             .Range("X10") = Ar(1)
    
32.             If MsgBox(.Range("L12") & " ¦L¦C", vbYesNo, "²¼¾Ú¸¹½X") = vbYes Then
    
33.                 For x = 1 To 5
    
34.                     .Range("X10") = Ar(x)
    
35.                     .PrintOut Copies:=1      '¤@±i¤ä²¼ªº½d³ò¦L¦C¤­¦¸
    
36.                 Next
    
37.             End If
    
38.         Next
    
39.         .ScrollArea = ""
    
40.     End With
    
41.     ActiveWindow.View = xlNormalView
    
42. End Sub

½Æ»s¥N½X