ªð¦^¦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

¦^´_ 4# oobird


    thank you
lmh

TOP

¨âªÌ§@¥Î¤£¦Pªº
«eªÌApplication.Volatile¦b©ó§â¨ç¼Æ¼Ð¥Ü¬°©ö¥¢©Ê¨ç¼Æ¡A¤è«K¦bÀx¦s®æ§ïÅÜ®ÉIJµo¹Bºâ
«áªÌ¬O¦b¤½¦¡¤¤¥[¤Wnow()¨ç¼Æ¡A¨Ï±o¨C¬í±j­¢¤½¦¡­«ºâ¤@¦¸¡C
²z½×¤W·íµM«áªÌ¯Ó¸ê·½°Õ¡C
open®É¶¡¤S¬O¥t¤@¦^¨Æ¡AÀɮץΤ[¤F´NªÎ¤jÁs¸~¡Aopen®É¶¡¦ÛµM¶V¨Ó¶VºC¡I

TOP

µ{¦¡°õ¦æ®É¤£µ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

10000¦¸¤w²{¦bªºCPU¯à¤O¬Ý¤£¥X®t§O
ss

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD