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

[µo°Ý] ¨â­Ófunction,­þ­Ó¬ÙÂI¸ê·½?

[µo°Ý] ¨â­Ófunction,­þ­Ó¬ÙÂI¸ê·½?

Function ShtName(R As Range)
Application.Volatile
ShtName = R.Parent.Name
End Function

Function ShtName2(R As Range, T As Date)
    ShtName = R.Parent.Name
End Function

***¨Ï¥Îshtnamne2  T:=now()

¦¹function¤å¥ó¨½¥Î¤F1000¦¸,¥Î­þ­Ó¦³§Q¸ê·½? ½Ð±Ðª©¥D,¦hÁÂ
lmh

µ{¦¡°õ¦æ®É¤£µoı¦³¤°麽©ìºC,¦ý¦bvbe¥Î³v¨B°õ¦æ®É,°õ¦æ¤@¨B­n°µShtname´X¦¸,©Ò¥Hı±o´X®ö¶O®É¶¡©Ò¥H·Q¤ñ¸û¨â­Ó,¦Ûı¦n¹³,now()¨C¬íÄÁ³£¦b°õ¦æ,volatile¤£·|¨C¬í´N§ó·s¤@¦¸§a
³Ìªñ¼g¤F­Óexcel,open5¬í,«Üº¡·N,¦ý¬O¸ÕµÛ¸ÕµÛ,¶V¨Ó¶VºC,open20¬í,§Ú¤£¥Ì¤ß,´N§âÅܺCªºª©¥»¨½¸ê®Æcopy¨ì³Ìªìªºª©¥»,¤S§âmodule§Û¨ì³Ìªìª©¥»,·Ó²z²{¦b¨â­Óª©¥»¬O¤@¼Ò¤@¼Ë¤F,¦ý¬O´N¬O³Ìªì¨º­Ó§Ö¹L¥H«áª©¥»´X­¿(§Ú«üopen®É¶¡),·Q¤£¥X­ì¦],¥u¯à®IÀYcopy,2010,2011,2012,2013......
lmh

TOP

¦^´_ 4# oobird


    thank you
lmh

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD