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

½Ð°Ýµ{¦¡¦b¬ö¿ý¸ê®Æ,¦p¦óÅý³Ì·s¸ê®Æ«O«ù¥i¨£

½Ð°Ýµ{¦¡¦b¬ö¿ý¸ê®Æ,¦p¦óÅý³Ì·s¸ê®Æ«O«ù¥i¨£

¦p´£

·í§Ú¨Ï¥Îvba¦Û°ÊÀ°§Ú¨Ì§Ç¬ö¿ý¸ê®Æ®É

·í¸ê®Æµ§¼Æ·U¨Ó¶V¦h~~·|©¹¤U¤@ª½±Æ§Ç¬ö¿ý

©ó¬O§Ú´N¬Ý¤£¨ì³Ì·sªº¸ê®Æ¤F

1.§Ú¦p¦óÅý¸ê®Æ¤@Ãä¬ö¿ý~~~¤@ÃäÅý³Ì·sªº¸ê¾ú«O«ù¦b©¼¬J¥K©MÆ[¬Ýªº¦ì¸m
¤£»Ý­n§Ú¦A¥h±²°Ê¥L¤~¯à¬Ý¨£³Ì·sªº¸ê®Æ©O?

2.§Ú¦pªG§Æ±æ°O¿ýªº°µ¦¨¤£¬O³æ¯Âªº¦V¤U±Æ§Ç~~¨Ò¦p»¡¬ö¿ý20¦æ©Î3¦æ«á
¦V¥kÃä²¾°Ê­Ó2-3¦æ~~Ä~Äò±q¤ñ¸û¤W­±ªº¦a¤è¶}©l°O¿ý
(¤ñ¤è»¡~~§Ú¬Ob6-c6¦æ¨Ì§Ç¬ö¿ý¡ã°O¿ý¨ì20¦æ©Î¨C¤@¤p®É¾ãÂIÅÜ´«¤@¦¸~~~¸ê®Æ¤£¦b©¹¤U¤@ª½±Æ§Ç
§ï±qd6-e6¶}©l±Æ§Ç

ªþÀɽЦU¦ì¥ý¶i¨ó§U¸Ñ´b!!!·PÁÂ!!
«O«ù¥i¨£.rar (17.66 KB)

§Ú¶Ç¿ùÀɮ׶Ü?@_@

§Ú¥H¬°ÃöÁä¥u¬O¦b³o¤@¦ê
If ActiveSheet.Name <> X.Name Then X.Activate

TOP

¦^´_ 5# laieven
§A»¡: ¦Û¤v®Ú¾Ú²z¸Ñ¼g¤F¤@¬qµ{¦¡½X,¦ýªþÀɪºSub ©e¶R©e½æ¬ö¿ý()»P²Ä¤@©«ªº¤@¼Ò¤@¼Ë.
·íµM¨S¿ìªk¹F¨ì§A­nªº«O«ù¥i¨£ªº®ÄªG.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# stillfish00


        ·PÁ¼ö¤ß¨ó§U!!!
­Y¤è«K¥i§_À°¦£¥[¤Wµù¸Ñ!!!§Ú¬Ý±o¦³ÂI¦üÀ´«DÀ´!!
µæ³¾·s¤âÁٽХ]²[!!

TOP

¦^´_ 2# GBKEE


    ¦³³Òª©¥D~~§A¼gªº¤º®e§Ú¬ã¨s¤F¦n¤@·|
¦Û¤v¾Õ¦Û®Ú¾Ú²z¸Ñ¼g¤F¤@¬qµ{¦¡½X
¦ý¬O¨S¿ìªk¹F¨ì§Ú­nªº«O«ù¥i¨£ªº®ÄªG

²{§âÀɮ׶ǤW¨Ó~~~~~¦³³Òª©¥D°·¶E¤@¤U!!¬Ý¬Ý¨º¨à¦³°ÝÃD!!

·PÁ¤F!!
«O«ù¥i¨£.rar (17.66 KB)

TOP

¦^´_ 1# laieven
    Range("A999").Value = "See me"
    Application.Goto Reference:=Range("A999"), Scroll:=True
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# GBKEE


·PÁª©¥DªºÀ°¦£~~²Ä2ÂI§Ú·Q¤F¤@¦­¤W~~ÁÙ¬O¼È½w¦n¤F!
¦pªG²Ä1ÂI¯àÀò±o¸Ñ¨M~~À³¸Ó¬O³Ì¦nªºµ²ªG
²Ä2ÂI´Nºâ¯à°µ¨ì,®£©È¤]·|¦³¨ä¥L°ÝÃD
¦b¦¹¥ý·PÁª©¥DªºÀ°¦£!!ÁÂÁÂ!

TOP

¦^´_ 1# laieven

½Ð¦A¸Ô­z­n??: 2.§Ú¦pªG§Æ±æ°O¿ýªº°µ¦¨¤£¬O³æ¯Âªº¦V¤U±Æ§Ç~~¨Ò¦p»¡¬ö¿ý20¦æ©Î3¦æ«á
  1. Option Explicit
  2. Sub ©e¶R©e½æ¬ö¿ý()
  3.     Dim X As Worksheet
  4.     Set X = ThisWorkbook.Sheets("¤u§@ªí1")
  5.     'StartT = "08:44:50"
  6.     'endt = "13:45:10"
  7.     X.Range("a2").Value = Time
  8.     If X.Range("h1") = 1 Then Exit Sub
  9.     If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
  10.         If ActiveSheet.Name <> X.Name Then X.Activate
  11.         With X.Range("b1045786").End(xlUp).Offset(1, 0)
  12.             .Value = Range("b1")
  13.             .Offset(0, 1).Value = Range("c1")
  14.             .Select
  15.         End With
  16.     End If
  17.     Application.OnTime Now + TimeValue("00:00:01"), "thisworkbook.©e¶R©e½æ¬ö¿ý"
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD