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

[µo°Ý]½Ð°Ý¦p¦ó³]©w¤£¦C¦L³¡¥÷cell

[µo°Ý]½Ð°Ý¦p¦ó³]©w¤£¦C¦L³¡¥÷cell

¤ñ¦pA1 cell, §Ú·Q¦bworksheet¤º¥i¥H¬Ý¨ì¡A¦ý¥´¦L®É·|ÁôÂð_¨Ó¡AÁÂÁÂ

¦^´_ 1# CyberKeith


    ³]©w¦C¦L½d³ò
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 2# ML089

¥t¤@­Ópost§Û¨Ó
  1. Sub print123() ' ¿ï¨ú¦C¦L
  2. Dim RNG As Range, address As String
  3. Set RNG = Application.InputBox("½Ð¿é¤J ¦C¦L½d³ò", "½d³ò", address, , , , , 8)
  4.     ActiveSheet.PageSetup.PrintArea = RNG.address
  5.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  6.         IgnorePrintAreas:=False
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# CyberKeith

©Î¬O¦C¦L«e±N A1®æªº¤å¦rÃC¦â§ï¦¨¥Õ¦â¡A´N¦C¦L¤£¥XA1¤º®e

¦¹¬q¥i¥H¿ý¦¨¥¨¶°¡A¨C¦¸¦C¦L«ö¥¨¶°´N¯à¦Û°Ê §ïA1¤å¦rÃC¦â¬°¥Õ¦â - ¦C¦L - §ïA1¤å¦rÃC¦â¬°¶Â¦â
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 3# genes

¥i§_±N4¼Óªº¤è¦¡¼g¦¨¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD