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

½Ð±Ð±µ¦¬¸ê®Æ¥u­n²£¥ÍÅÜ°Ê´N°O¿ý¸Ó«ç»ò¼g

½Ð±Ð±µ¦¬¸ê®Æ¥u­n²£¥ÍÅÜ°Ê´N°O¿ý¸Ó«ç»ò¼g

§Ú·Q¼g¤@­Ó¥¨¶°
¥Ña1Àx¦s®æ±µ¦¬±q¬Ý½L³nÅé¶Ç°e¶i¨Óªº¦¨¥æ³æ¶q¸ê®Æ
¤p©ó10¤fªº¦¨¥æ³æ¶q¬ö¿ý¨ìdÄæ¤j©ó10¤fªº¦¨¥æ³æ¶q¬ö¿ý¨ìeÄæ
¨C¹j1¤ÀÄÁ§â¤p©ó10¤fªº³æ¶q¥[Á`¨Ã°O¿ý¨ìbÄæ§â¤j©ó10¤fªº³æ¶q¥[Á`¨Ã°O¿ý¨ìcÄæ

§Ú¦³¸Õ¹L¥ÎCalculate¨Æ¥ó¥h°µ,¦ý¤£¤j¦¨¥\,ª¦¤F¤å,¦³¤H»¡¥²¶·¥Îchange¨Æ¥ó¥h°µ

½Ð°Ý
1.§Ú¸Ó¥Î­þ­Ó¨Æ¥óµ{§Ç¥h°µ©O?
­ì²z¬Oa1Àx¦s®æ¦³ÅÜ°Ê´N°O¿ý
2.­Õ­Y³sÄò´Xµ§³æ³£¬O1¤f¦¨¥æ¶q¦Ó¤w,µ{¦¡¯à§P§O?Á`¤£¯à³sÄò10­Ó¦¨¥æ¬ö¿ý³£¬O1¦ý§Ú«o¥u°O¿ý1¤f¦Ó¤w
3.³sÄò±ÀÅ|ªºdÄæ©MeÄæ¨C¹j1¤ÀÄÁ¬O§_­n²MªÅ¬ö¿ý,¦nÅý¤U1¤ÀÄÁªº³æ¶q­«·s²Ö­p

·Ð½Ð¦U¦ì°ª¤âÀ°¦£!!·PÁÂ!!

¦^´_ 1# laieven


¬Ý½L³nÅé¦p¦³¦¨¥æ³æÁ`¶q¸ê®Æ,Calculate¨Æ¥ó¥i°Ñ¦Ò¥¦¨Ó°O¿ý¦¨¥æ³æ¶q¸ê®Æ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

1.¯à½Ð±Ð¤ñ¸û¨ãÅ骺²³æ¼gªk,·PÁÂ!!!

2.­Ó¤H«ùÄò¬ã¨s¤¤,§ÚÁÙ¬O¥ÎCHANGE¨Æ¥ó
§â¬Ý½L³nÅé¸ê®Æ©Ô¶iEXCEL~~~§Ú¥ý©w¸qTarget¬°L2Àx¦s®æ,¥u­nL2Àx¦s®æ¦³ÅÜ°Ê,§Ú´NCALL¬ö¿ý³o­Ó¥¨¶°~~~¦Ó"³o­Ó¥¨¶°¬ö¿ý",¥D­n¬O°O¿ýK2Àx¦s®æ, ­YK2Àx¦s®æ¼Æ¦r¬°1-10~~§Ú´N±Æ§Ç°O¿ý¦bEÄæ
­YK2Àx¦s®æªº¼Æ¦r¤j©ó10§Ú´N°O¿ý¦bFÄæ,ÂÇ¥H§â¦¨¥æ¤f¼Æ°Ï¤À¶}¨Ó
¦ý@@@@@¤£·|°Ê!!
ªþ¤WºI¹Ï¤ÎÀɮ׽аª¤âÀ°¦£!!·PÁÂ!
   
00000000.rar (24.48 KB)

TOP

¦^´_ 3# laieven


    ¬Ý½L³nÅ骺¸ê®Æ¬Oª½±µ¶Ç°e¶i¨Ó¡A¦Ó¤£¬O§A¤â°Ê¿é¤J¸ê®Æ¡A©Ò¥H¨Ï¥Îchange·|µL®Ä¡A
    ¥Îª©¥D©Ò»¡ªºCalculate¥h¼gµ{¦¡§a

TOP

¦^´_ 4# owen06


    ­ì¨Ó¦p¦¹~~~¾ÇÃÀ¤£ºë!!!¨£¯º¤F!!

¯à§_«ü¾É¤@¤U"Calculate"ªº¼¶¼gÅÞ¿è!!!
¸U¤À·PÁÂ!!

TOP

¦^´_ 5# laieven


    ¥h¬Ý¬Ý­ã´£³¡ªL¤j¤jªº¤å³¹§a¡A¥i¯à³Ìªñ¦P¼Ë©Ê½èªº°ÝÃD¤Ó¦h¤F¡A¥L¸õ¥X¨Ó¬@±Ï¬°¦¹­W¸£¤£¤wªº¦P­M­Ì¤F¡C
    http://forum.twbts.com/thread-15062-1-1.html

TOP

¦^´_ 6# owen06


    ·PÁ´£¿ô~~§Ú¦A¥hÆ[¼¯¤@¤U!!

TOP

¦^´_ 2# GBKEE


   


½Ð°Ý¯à§_§iª¾¤j·§ªº¼¶¼gÅÞ¿è
§Ú·Q¤F¤@¤Ñ~~ÁÙ¬O¤£¯à²z¸Ñ

¥Îdde¦êÁp¨ìexcel~~¨Ï¥Îcalculate¦p¦ó°»´ú"¦¨¥æ³æÁ`¶qªºÅÜ°Ê"
°²³]¥Ø«e
³æµ§¦¨¥æ¶q¬°1¤f~~¦¨¥æÁ`¶q¬°100¤f
¤S¤@µ§¦¨¥æ³æ¬°1¤f~~¦¨¥æÁ`¶q¬°101¤f

¦¨¥æ¶q¨SÅÜ~~¦ý¦¨¥æÁ`¶q§ïÅÜ!!!
§Ú¸Ó¦p¦ó¼¶¼g¥hºÊ¬Ý³o¼Ëªºª¬ªp¨Ã±N¤§³]©w¬°§Ú·Q­n²¾°Êªºª¬ºA
Àµ½Ð¨ó§U!!!·PÁÂ!!!

TOP

¦^´_ 8# laieven



Ex.rar (7.83 KB)

½Ð¼ÒÀÀ¦b ¼ÒÀÀDEE![A2]  ¿é¤J¦¨¥æ¶q
¼ÒÀÀDEE [¤u§@ªí¼Ò²Õ]  ªºµ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     With Target.Cells(1)
  4.         If .Address(0, 0) = "A2" Then [b2] = [b2] + .Cells
  5.     End With
  6. End Sub
½Æ»s¥N½X
DEE¬ö¿ý [¤u§@ªí¼Ò²Õ]  ªºµ{¦¡½X
  1. Option Explicit
  2. Dim Á`¦¨¥æ¶q As Integer
  3. Private Sub Worksheet_Calculate()
  4.     If IsError([b2]) Then Exit Sub      'dee ³nÅé¦b¶}½L«e­«¾ã®É·|¶Ç¦^¿ù»~­È
  5.     If Time <= #9:00:00 AM# Then Exit Sub '¶}½L«e¤£²z·|
  6.     If Á`¦¨¥æ¶q <> [E2].Value Then
  7.         Application.EnableEvents = False
  8.         With [C65536].End(xlUp).Offset(1)
  9.             .Cells(1, 1) = Time
  10.             .Cells(1, 2) = [D2]
  11.             .Cells(1, 3) = [E2]
  12.         End With
  13.         Á`¦¨¥æ¶q = [E2]
  14.         Application.EnableEvents = True
  15.     End If
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


·PÁÂGBKEE¥SµL¨pªº¨ó§U
§Ú¤Sª¦¤å¤F¤@¦­¤W
¤U¤È´N¨Ó¬ã¨s§AªºÀ°¦£
¥ý·PÁ¤F!!!!

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD