- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
¦^´_ 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 |
|