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

[µo°Ý] ½Ð°ÝÃö©ó¸ê®ÆÅçÃÒ¤¤¤U©Ô²M³æªº°ÝÃD

[µo°Ý] ½Ð°ÝÃö©ó¸ê®ÆÅçÃÒ¤¤¤U©Ô²M³æªº°ÝÃD

¦U¦ì¤j¤j¦n

¥Ñ©ó¥Ø«e¤½¥q©Ô¤F¤@­Ó¸ê®ÆÅçÃÒªº²M³æ
¤º®e¬OºI¨úÀx¦s®æN1-N4¦@¥|­Ó¤l²Ó¶µªº¤U©Ô¦¡¿ï³æ
¨C¤@­Ó¤l²Ó¶µ³£¤w¸g¤À§O³sµ²¤@­Ó¸ê®Æªí®æ
¦Ó¤@­Ó¸ê®Æªí®æ¤]¹ïÀ³¦Ü¨â­Ó¹Ïªí

©Ò¥H²{¦b¥u­nÂI¿ï¤U©Ô¦¡¿ï³æ¤¤¥|­Ó¤l²Ó¶µ¥ô¦ó¤@¶µ¡A´N¯àÅÜ´«ªí®æ¤Î¹Ïªí
¦ý²{¦b§Æ±æ¯à°÷¹LVBAªº¤è¦¡¡A§Q¥Îµ{¦¡½XÅý³o­Ó¤U©Ô¦¡¿ï³æªº¥|­Ó¤l²Ó¶µ¯à°÷¨C¹j©T©w¬í¼Æ(¦p3~5¬í¤º)¦Û°Ê´«¤@¦¸¤l²Ó¶µ¡A§K°£¤F¤H­û¤â¤uÂI¿ï¤l²Ó¶µªº¤è¦¡¡A¤p§Ì¦bgoogle§ä´M¤F³\¤[¤´µM¨S¦³¿ìªk¯à°÷Åý³o­Ó²M³æ¦Û°ÊÅܧó¸Ì­±ªº¥|­Ó¤l²Ó¶µ¡A§Æ±æ¦U¦ì¯à°÷À°¦£¸Ñ°£°g«ä
¼B®Ê

¦^´_ 1# ¼B®Ê
¤@¯ë¼Ò²Õ
  1. Public k
  2. Sub auto_open()
  3. Dim A As Range
  4. With Range("D1") 'ÅçÃÒªºÀx¦s®æ
  5. Set A = Range(.Validation.Formula1)
  6. .Value = A((k Mod A.Count) + 1)
  7. k = k + 1
  8. End With
  9. Application.OnTime Now + TimeValue("00:00:05"), "auto_open" '5¬í«á¦A°õ¦æ¤@¦¸
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ­º¥ý¡AÁÂÁ±zªº¦^ÂСA¥Ñ©ó§Ú¨S¦³¾Ç¹LVBAªºµ{¦¡»y¨¥¡A©Ò¥H·Q½Ð±Ð±z¨C¤@¦æµ{¦¡½Xªþ±aªº·N²[¬°¦ó¡H¦]¬°¥Ø«e²M³æ¤¤¶È¦³¥|­Ó¿ï¶µ¡A³o¦êµ{¦¡½X¬O§_¯à°÷®M¥Î¡H
¼B®Ê

TOP

¦^´_ 2# Hsieh


    ¤£¦n·N«ä¡A·Q½Ð°Ý±z§Ú³]©w¬°5¬í§ó´«¤@¦¸¡A¦ý§Ú¦b°õ¦æ¥¨¶°®É¡A¤­¬í«á¥L·|Åã¥Ü¤@­Óĵ¥Ü¤è®Ø»¡"µLªk°õ¦æ¥¨¶°¡A¸Ó¥¨¶°¥i¯àµLªk¦b¦¹¬¡­¶Ã¯¤¤¨Ï¥Î¡A©ÎªÌ¤w°±¥Î©Ò¦³¥¨¶°"¡A·Q½Ð°Ý­ì¦]¬°¦ó?   ·Ð½Ð¤j¤j¦^ÂСAÁÂÁÂ!
¼B®Ê

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD