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

[µo°Ý] ¦p¦ó±NA5¯È±i®æ¦¡¤@¦¸¦C¦L©óA4¯È±iª½±µ²£¥Í¤G¥÷ªí®æ

[µo°Ý] ¦p¦ó±NA5¯È±i®æ¦¡¤@¦¸¦C¦L©óA4¯È±iª½±µ²£¥Í¤G¥÷ªí®æ

¦U¦ì¤j¤j¦n¡G

  ¤p§Ì¤w§¹¦¨¤@¥÷ªí®æ¡AÅý¨Ï¥ÎªÌ¥i
¥Ñ¸ê®Æ®w¨ú¥X«ü©w¸ê®Æ¨Ã¶ñ¤Jªí®æ¤º
ªºÄæ¦ì¦ì¸m¡C
  ¦¹ªí®æ¹w³]¥i¦C¦L A5¯È±i¡A¥Ñ©ó
¶·¦L¦¹ªí®æ¬°¤@¦¡¤G¥÷¡A¤S¤½¥q¼v¦L¾÷
¥d§¨¤º¬° A4 ¯È±i¡F¥¿¦n²Å¦X A5 X 2= A4
¦ý¤p§Ì¤@ª½µLªk¥H¤@¥÷ªí®æª½±µ¦b A4 ¯È±i
¦L¥X¦¹ªí®æ¬°¤G¥÷¡C
  ¤p§Ì·Q½Ð°Ý¦¹±¡§Î¬O§_¶·²Å¦X¤U¦C¨º¤@
ºØ¤èªk¤~¥i逹¦¨¤W­zªº¶·¨D¡C

¤@¡B¥i¦bª©­±³]©w¨Ó逹¦¨¤@±iA4¯È
    ª½±µ¦L¦C¦¨¤G¥÷ªí®æ

¤G¡B¥ý§¹¦¨¦¹¥÷ªí®æ¦A½Æ»s¦Ü¥t¤@¤u§@ªí
    ³sÄò½Æ»s¤G¦¸¨Ó逹¦¨¦C¦L©óA4¯È±i
    逹¦¨¦L¦¨¤G¥÷ªí®æ

¤T¡B¥ý¦b¦¹¤u§@ªí»s¦¨¤G¥÷ªÅ¥Õªí®æ¡A±N
    ¥Ñ¸ê®Æ®w¨ú¥Xªº¸ê®Æ§¹¦¨¶ñ¤J¤@¥÷ªí®æ
    ¤º¡A¨Ã©ó¦C¦L®É¦A±N²Ä¤@¥÷ªí®æªº
    ¸ê®Æ¶ñ¤J¥t¤@¥÷ªÅ¥Õªºªí®æ¤º¦b¤@°_¦C¦L

¦p¬O²Ä¤@ºØ¤è¦¡®ÉÀ³¦p¦ó³]©w¡A
¦p¬O²Ä¤G¡B¤TºØ¤è¦¡®ÉVBA»yªk¤S¦p¦ó
³]­p©O¡H

ÁÂÁ¦U¦ì¤j¤j¡I

PRINTTEST.rar (11.11 KB)

¦^´_ 2# luhpro


    ¤j¤j±z¦n¡G

ÁÂÁ±zªº»¡©ú
±z¦³´£¨ì
1. ±N­n¦C¦Lªº¨â­¶¸ê®Æ©ñ¦b¤@°_.
2. ³]©w­n¦C¦Lªº°Ï°ì½d³ò:
¨ä¹ê¤p§Ì¦b¤u§@ªí¤WÅã¥Ü¤G­Ó
­n¦C¦Lªºªí®æ¡A¬O¤£ª¾­n¦p¦ó±Æ°£¥t¤@­Ó
ªí®æ¡C´N¯à¦P®É¦b¤@±iA4¯Èª½±µ¦C
¦L¥X¤G¥÷ªí®æ¥X¨Ó¡CÅý¨Ï¥ÎªÌ¤]¤£·|
·Pı¦³¦h¥X¤@¥÷ªí®æ¡C

¤p§Ì¬Q¤Ñ¥ý¥H·s¼W¤@¤u§@ªí¡A
¨Ã¦b¸Óªí¤W¼W³]¤G¥÷ªí®æ¡C
µ¥¨ì¸Ó¨Ï¥ÎªÌ­n¶ñªºªí®æ
§¹¦¨¶ñ¼g¤§«á¡A¦A³]©w¤@«ö¶s
Åý¨Ï¥ÎªÌ¦C¦L¡A¦P®É¤]±N¨Ï¥ÎªÌªº
¶ñ¼gªí®æ¸ê®Æ¦AÂà¼g¦Ü·s¼Wªº¤G¥÷ªí®æ¤º
§¹¦¨¦C¦L¤u§@¡C

¤p§Ì¬O§Æ±æ¯à´î¤Ö¤W­zªº¤@¨Ç¨BÆJ¡C

·P®¦¤j¤j¡I

TOP

¦^´_ 4# GBKEE


    ª©¥D¤j¤j±z¦n¡G

   ·PÁ±zªº¬Û§U¡A¦¹¤èªk¹ê¦b
¤Ó§¹¬ü¡C°ß¿W¦³¤@»yªk¤p§Ì¤]
¤Wºô§ä¤F«Ü¦h½d¨Ò»¡©ú
Application.Caller¤§¥Îªk
«o¤´µLªk»â·|¡Aºô¸ô¤Wªº½d¨Ò
¤]¤£ª¾¦p¦ó°õ¦æ¡C
·Q ½Ðª©¥D¤j¤j¯à¶}¥Ü«üÂI°g¬z
application caller¤§À³¥Î
¤Î¨ä§t·N¬°¦ó¡H

ª©¥D»yªk¦p¤U¡G
ActionShape = .Shapes(Application.Caller).Name  '°õ¦æ¦¹µ{¦¡ªº«ö¶s¦WºÙ

ºô¸ô¤Wªº½d¨Ò¡G
Function Sheetname()
       Application.Volatile
       Sheetname = Application.Caller.Parent.Name
End Function

Function Test()

      Application.Volatile
      ' Returns the cell one column to the left of the active cell. Note
      ' that the active cell is not necessarily the cell that is calling
      ' the function.
      Test = ActiveCell.Offset(0, -1).Value
   End Function

change it to the following:

   Function Test()
      Application.Volatile
      ' Returns the cell one column to the left of the cell that is
      ' actually calling the function.
      Test = Application.Caller.Offset(0, -1).Value
   End Function

·P®¦¤j¤j¡I¡I

TOP

¦^´_ 6# GBKEE


    ·PÁª©¥D¤j¤j
´£¨Ñ½Ñ¦h½d¨Ò¡C
  ¤p§Ì·|§Q¥Î¶g¥½ªº®É¶¡
¥Î¤ß¾Ç²ß¬ÛÃö½d¨ÒªºÅܤơC

´N·P¤ß¡I¡I
·P®¦¤j¤j¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD