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

[µo°Ý] ¦³Ãö³oºØªí®æ

[µo°Ý] ¦³Ãö³oºØªí®æ


§Ú¦³¤@­Ó¥ªÃ䨺ºØªí®æ
¦³¨S¦³¬ÛÃöªº¨ç¼Æ©Î¥¨¶°¥i¥H°µ¥X¥ªÃ䨺ºØªí
´N¬O¥´¥X¤é´Áªº°Ï¶¡
«ö¤U¦C¦L
¥ªÃ䪺ªí®æ´N¯à¦Û°Ê§â°Ï¶¡ªº¤é´Á¤@¤Ñ¤@¤Ñªº¦C¦L¥X¨Ó
¸÷¨D¤j¤j±Ð¾Ç

¦^´_ 6# problem909

¦b¤W­±«ö¥kÁä -> «ü©w¥¨¶° -> ·s¼W

TOP

¦^´_ 5# diolin


    ¤£¦n·N«ä¦b½Ð°Ý¤@¤U
§â¸Ì­±ªº code ©ñ¦b§A"¦C¦L"ªº¨º­Ó¸Ì´N¦n¤F
³o­n«ç»ò©ñ¶i¥h@@??

TOP

¦^´_ 3# problem909

CommandButton1 ¬O§Ú©Ô¥X¨Óªº«ö¶s¦W¦r

§â¸Ì­±ªº code ©ñ¦b§A"¦C¦L"ªº¨º­Ó¸Ì´N¦n¤F

TOP

§Ú³£·Qª¾ÂI°µ
ABC

TOP

¦^´_ 2# diolin


  ¤j¤j¤£¦n·N«ä
½Ð°Ý¤@¤U
§Ú§â¦C¦L«ö¶s®M¶i§Aµ¹§Úªº¥¨¶°¸Ì
«ö¤U¦C¦L
¥L¥X²{
µo²{¤£½T©wªº¦WºÙ:CommandButton1_Click

½Ð°Ý³o¬O­þ¸Ì¥X¿ù¤F.....

TOP

¦^´_ 1# problem909

¤j·§¬O³o¼Ë

    Private Sub CommandButton1_Click()
    Dim i As Long
   
    For i = [V8] To [X8]
        [N3] = i
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
End Sub

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD