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

[­ì³Ð] EXCEL4.0¥¨¶°ªíµ²¦X5.0¹ï¸Ü¤è¶ôÀ³¥Î

[­ì³Ð] EXCEL4.0¥¨¶°ªíµ²¦X5.0¹ï¸Ü¤è¶ôÀ³¥Î

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2010-5-6 20:02 ½s¿è
ªøª¾ÃѤF
³oºØ§Þ¥©ÁÙ¬O²Ä¤@¦¸¨£ÃÑ
4.0¥¨¶°ªí(§»ªí)ªºÀ³¥Î²{¤w¤£¦h¨£
ÁÙ±æªü¦N¯à¦h´£¨Ñ³o¤è­±ªºÀ³¥Î
¦hÁÂ ...
Hsieh µoªí©ó 2010-5-5 23:30


¦^´_Hsieh¥S ³o«h¦³¥[¨ä¥LªF¦è
EXCEL4.0¥¨¶°ªíµ²¦X5.0¹ï¸Ü¤è¶ôÀ³¥Î
³o½g¤å³¹¬O¥|¤­¦~«e§ä¤u§@®É»s§@ªº
¬O­ÓEXCEL4.0¥¨¶°ªíµ²¦X5.0¹ï¸Ü¤è¶ôªº½m²ßÀÉ
¥L¹ï§Úªº·N¸q¬OOFFICE¥u¬O­Ó¤u¨ãÁÙ¬O­n¦h¾Ç¨ä¥¦ªF¦è

½mºë¨S¥Î.rar (20.77 KB)

ªü¦N¥S¡G
    ±z¦n¡A½mºë¨S¥Î.xls½d¨Ò¡A§Ú¸Õ¹L«Ü¤[¡A¤@ª½³£µLªk¶}±Ò¡A¥i§_µy¥[´£¥Ü¡AÁÂÁ¡C
Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-12-23 02:09 ½s¿è

¦^´_ 2# lin

^^³o­Ó¦n¤[¤F ...µy¦³ÂI§Ñ°O¥L¬O¬Æ»ò
1.­º¥ý¶}¤@­Ó·s¤u§@ï¡A
2.«ö¶}±ÒÂÂÀÉ«á«ö¦íSHIFT ¤£©ñ¡A  ¶}±ÒÂÂÀÉ"½mºë¨S¥Î.XLS"
3.©Ò¦³¤u§@ªí/¤u§@ï±K½X¬° 11686106 ¶·¸Ñ°£«OÅ@
4.¨ú®øÁôÂäu§@ªí [4.0¥¨¶°ªí»P5.0¹ï¸Ü¤è¶ôªí]³o3­ÓªíVBE½s¿è¾¹¤º¬Ý¤£¨ì.§â¥¦Åã¥Ü¥X¨Ó¡A¦A¸ÑÄæ¦CÁôÂôN¥i¬Ý¨ìµ{¦¡
¸Ñ°£¤u§@ªí«D±`ÁôÂûyªk³q±`¬°ActiveWorkbook.Sheets("Macro1").Visible = -1

TOP

ªü¦N¥S¡G
    ±z¦n¡A½mºë¨S¥Î.xls½d¨Ò¡A¸g±z´£¥Ü«á¡A¤w¶¶§Q¶}±Ò¨Ã¶i¤Jµ{¦¡¤¤¡A«D±`·PÁ¡C¦ý¦b¨ä¤¤¤]²£¥Í´X­ÓºÃ°Ý¡A¤£¦n·N«ä³Â·Ð±z¡C
   1.¦p¦ó»s³y²£¥Í¥»½d¨Ò¤¤¶}±ÒÀɮ׮ɶȨ£5.0¹ï¸Ü¤è¶ôªí¡A¦ÓµLªk¶}±ÒÀɮסC
   2.sheet0¿é¤J±K½X«á·|Ãö³¬ÀɮסC
  3.maco1¤u§@ªí¤¤¬O§_¬°excel4.0»y¨¥¡C
Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-12-25 00:10 ½s¿è

¦^´_ 4# lin


    Ans¡G
1¡C­n¾Ç·|­n¥ý¾Ç²ßExcel4.0¥¨¶°ªí»yªk¡A³oºØ»yªk¦Ü¤Ö¬O15¦~«eªº»yªk¡A¾Ç²ß³oºØ»yªk­n¥t¥~¾Ç²ß¤u§@ªí内ªº¦WºÙ©w¸q
2¡C³o­Ó¬OExcel4ªº内Âê¤èªk¡A¥Øªº¬OÁקK¤H¶i¤J¥¨¶°ªí¡A¥Ø«e¥u¦³¬Ý¹Lªü¦N®³¨ÓÀ³¥Î¡A½Ð¿ý¨î¤@­Ó¨ìSheet1ªº¥¨¶°¦A§âSheet s¡]¡¨sheet 1¡¨¡^.select §ï¬°Sheet 0¥Î³o­Ó¥¨¶°«I¤J¥¨¶°ªí内¬J¥i
3¡C¬Oªº³o¬O¥¨¶°ªíXLM»y¨¥

Á`¦Ó¨¥¤§³o¨Ç³£¬O»yªk¡A¥»¤H»{¬°¬Ý¬Ýª¾¹D´N¥i¥H¡A²`¤J¬ã¨s®Ä¯q¤£¤j

TOP

ªü¦N¥S¡G
    ±z¦n¡A°O±o¬ù20¦~«e¡A¦]¤u§@»Ý­nlouts 123¡AÁöµM«Ü§xÃø¦ý§V¤O¾Ç²ß¡A³Ì«á¤£¦ý·|¨Ï¥Îlouts 123¦Ó¥B¾Ç·|¥¨¶°¡A¥i±¤«á¨Ó½ü½Õ¡A¹ï©óexcel¾Ç²ß´N¤T¤Ñ¸É»P³½¨â¤ÑÅκô¡A¤@ª½¨S¦³¦n¦n§V¤O¡A¨ä¹ê¤]«ÜÃh©À»yªk¡C ±z»¡Â»yªk¬Ý¬Ýª¾¹D´N¥i¥H¡A²`¤J¬ã¨s®Ä¯q¤£¤j¡A§Ú·QÀ³¬O ±z¹L«×¦ÛÁ¾»¡ªk§a¡I«e´X¤Ñ§Ú¨ì­«¼y«n¸ô¨S§ä¨ìexcel 4.0®ÑÄy¡A¥t·j´M¹Ï®ÑÀ]ÂîѤ]µL´MÀò¡A¤U¶g»ù¤é§Ú·|¥h®ÑÅu§ä¤@§ä¡C­Y¬O¦³°ÝÃD¦A¦V ±z½Ð±Ð¡AÁÂÁ¡C
Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-12-25 18:30 ½s¿è

¦^´_ 6# lin

«ØijªL¥S¤£¥Î¦A¥h ®ÑÅu´M§ä¤F¡A¥xÆW»P¤j³°°ò¥»¤W§ä¤£¨ì³oÃþªº®Ñ
®Ú¾Ú6¦~«eµØ»y°ÏOFFICE½×¾Â¡A¤j®a¾Ç²ßªº¤èªk¡A±z¥i¥H¥ý°Ñ¦Ò³o¤@¶K
http://www.officefans.net/cdb/viewthread.php?tid=59862&extra=&page=1
¸Ì­±¦³·L³nªº¥¨¶°ªí¨ç¼Æ»¡©úÀÉ. ¦³­^¤åª©»P²Å骩 ¥i¥H¤U¸ü¤U¨Ó¬ã²ß
§Ú·Q¦³³o»¡©úÀÉ´N¤ñ ®ÑÄy¦nªº¤Ó¦h¤F

TOP

ªü¦N¥S¡G
     ±z¦n¡A¤S¦³°ÝÃD³Â·Ð±z¡A¦pªþ¹Ï¥Ø¿ý¦p¦ó§¹¦¨[attachimg¡C]13767[/attachimg]¡F¤S¦p¦ó³]©wexcel 4.0 auto_open¡C

1212230201d0d8fd9dfc3e4381_jpg_thumb.jpg (21.88 KB)

1212230201d0d8fd9dfc3e4381_jpg_thumb.jpg

Lin

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2013-1-3 15:39 ½s¿è

¦^´_ 8# lin


ªL¥S¦n

³o¤@½gEXCEL4.0 ½mºë¨S¥Î.XLS ªºÀɮפº
1.ªü¦N¦³«D±`ÁôÂäu§@ªí¡A¦p¤U¹Ï VeryHiddenªº¤u§@ªí(¥¼¤½¶}¤u¨ã)¡A³o¤@­Ó§Þ¥©§i¶D§Ú­Ì 4.0¥¨¶°ªí»P5.0ªí³æ°µ«D±`ÁôÂîɦbvb½s¿è¾¹¤¤¬O¬Ý¤£¨ìªº


2.±z©Ò°Ýªº²Ä¤G­Ó°ÝÃDÄÝ©óEXCE4.0 RunAutoMacros ¤èªk ¦@¦³4¶µ:Auto_Open ¥¨¶°¡CAuto_Close ¥¨¶°¡CAuto_Activate ¥¨¶°¡CAuto_Deactivate ¥¨¶°¡C¦¹¤èªkªº¨Ï¥Î»P«Ø¥ß¦b¤W¤@¼Ó´£¨Ñªº³sµ²¤º¦³«Ü¸ÔºÉªº¤¶²Ð¡A½Ð¥ý¾Ç²ß¡C¦b¦¹Àɤ¤±z¬Ý¤£¨ìªü¦N³]©wªºAutoMacros¡A¦]¬°ªü¦N¹ïAutoMacros°µ¤F©w¸qÁôÂáA¦p¤U¹Ï(¥¼¤½¶}¤u¨ã)


³o­ÓÀɥΤF«Ü¦h¤£¦Pªº§Þ¥©¡A¦pªG±z­n¬Ý¨ì¤u§@ªí»P©w¸q³£»Ý­n¥ý¾Ç²ß¸Ñ°£ÁôÂäu§@ªí»P¸Ñ°£ÁôÂéw¸q¤èªk¡A¸Ñ°£«á¡A¦A¤@¼h¤@¼h¸Ñ¶}Äæ¦Cµ¥µ¥.§Ú·Q±zªº°ÝÃDÀ³¸Ó¬O¥X¦b[¸Ñ°£ÁôÂéw¸q¤èªk]½Ð¥Î³o¦æµ{¦¡¤@¤@¸Ñ¶}©w¸qÁôÂà ActiveWorkbook.Names("1!Auto_Open").Visible = False

³o¬Oªü¦Nªº½m²ßÀÉ®×.ªü¦N½m²ß¤F«Ü¦h¤£¦Pªº¨¾Å@²Õ¦X¡C¤ñ¸û½ÆÂø¡A¬OÀH·N¤§§@¡AÁÂÁ±z¦³¿³½ì¡A³o¦~ÀY·Q­n¾Çªº¤H¤£¦h¤F

TOP

ªü¦N¥S¡G
     ±z¦n¡A¸g ±z¸Ô²Ó¸Ñ»¡¡A§Ú¤w¤j­PÁA¸Ñ¡AÁÂÁ¡C¥t¥~§Ú·Q½Ð°Ý¥»¨Ò¤¤auto_open¬O§_¥i¥H¥[¤JÃö³¬°T®§¤è¶ô¥\¯à¡A¥¨¶°¦p¤U
Private Sub Workbook_Open()   
    Ãö³¬°T®§¤è¶ô
    Application.Visible = False     
End Sub

Sub Ãö³¬°T®§¤è¶ô()
CreateObject("wscript.shell").popup "¥»Àɮפw±Ò°Ê«OÅ@¦æ°Ê¡A±N©ó3¬íÄÁ«á¦Û°ÊÃö³¬", 1, "§i¶D§A", 16
End Sub
Lin

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD