- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 13# jackson7015
[¹wÄý¦C¦L] ¥iÃö³¬¥¦©Î¬O¿ï¾Ü¦L¦C,¦ýµLªk¶Ç¦^°Ñ¼Æ¨Ñµ{¦¡§@¤¤Â_¦L¦C©ÎÄ~Äò¦L¦Cªº§PÂ_.
¥B¨Ï¥Î:¨Ï¥Îµøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À¶²Å¸¹¹wÄý ¸Õ¸Õ¬Ý- Sub Ex()
- Dim Rng As Range, Ar(1 To 5), i As Integer, x As Integer
- With Sheets("¥¼¨ì´Á¤ä²¼¼Ð·Ç")
- If .Range("B3") = 0 Then
- MsgBox "¨S¦³¸ê®Æ¥i¦L¦C ?"
- Exit Sub
- End If
- ActiveWindow.View = xlPageBreakPreview '¨Ï¥Î¤¤µøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À¶²Å¸¹¹wÄý
- Ar(1) = "²Ä¤@Áp"
- Ar(2) = "²Ä¤GÁp"
- Ar(3) = "²Ä¤TÁp"
- Ar(4) = "²Ä¥|Áp"
- Ar(5) = "²Ä¤Áp"
- .ScrollArea = "I6:x27"
- With .PageSetup
- .PrintArea = "I6:x27" '¦L¦C½d³ò "¤@±i¤ä²¼ªº½d³ò"
- .CenterHorizontally = True '¦pªG¦C¦L®É¶±¤Wªº¤u§@ªí¬O¤ô¥¸m¤¤ªº«h¬° True
- .CenterVertically = True '¦pªG¦C¦L®É¶±¤Wªº¤u§@ªí¬O««ª½¸m¤¤ªº«h¬° True
- .PaperSize = xlPaperA4 '³]©w¯È±i¤j¤p '¥i¬ÝPaperSize »¡©ú
- .FitToPagesWide = 1 '³]©w¶¼e=1¶
- .FitToPagesTall = 1 '³]©w¶°ª=1¶
- End With
-
- For i = 1 To .[B3]
- Set Rng = .Range("C6:g6").Offset(i)
- .Range("L12") = Rng(1, 1) '²¼¾Ú¸¹½X
- .Range("M12") = Rng(1, 2) 'ª÷ÃB
- .Range("O12") = Rng(1, 3) '¦~
- .Range("P12") = Rng(1, 4) '¤ë
- .Range("Q12") = Rng(1, 5) '¤é
- .Range("X10") = Ar(1)
- If MsgBox(.Range("L12") & " ¦L¦C", vbYesNo, "²¼¾Ú¸¹½X") = vbYes Then
- For x = 1 To 5
- .Range("X10") = Ar(x)
- .PrintOut Copies:=1 '¤@±i¤ä²¼ªº½d³ò¦L¦C¤¦¸
- Next
- End If
- Next
- .ScrollArea = ""
- End With
- ActiveWindow.View = xlNormalView
- End Sub
½Æ»s¥N½X |
|