[µo°Ý]½Ð°Ý¦p¦ó³]©w¤£¦C¦L³¡¥÷cell
- ©«¤l
- 45
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2013-4-16
- ³Ì«áµn¿ý
- 2013-12-30
|
¦^´_ 2# ML089
¥t¤@Ópost§Û¨Ó- Sub print123() ' ¿ï¨ú¦C¦L
- Dim RNG As Range, address As String
- Set RNG = Application.InputBox("½Ð¿é¤J ¦C¦L½d³ò", "½d³ò", address, , , , , 8)
- ActiveSheet.PageSetup.PrintArea = RNG.address
- ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
- IgnorePrintAreas:=False
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|