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

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

¦^´_ 9# GBKEE


   ­ì²z§Ú¤j­P¤W¤F¸Ñ¤F!!
«öª©¤jªº³Wµe§Ú¥ý¸Õ¹B¦æ¤@¤U!
¦ý¦ê±µDDE¤§«á
§âA2Àx¦s®æ«ü©w¬°¦ê±µ¶i¨ÓªºDDE
¦ü¥GµLªkIJµo~~¤â°Ê¿é¤J¤~¥iIJµo
ÁٽЪO¤j¨ó§U¬Ý¤@¤U¦³¦ó²§¼Ë¤§³B!!·PÁÂ!!!
00000001.rar (15.57 KB)

TOP

¦^´_ 11# laieven


   
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


    ­ì¨Ó§Ú·d¿ù!!!­×¥¿¤@¤U!!
¦ý~~¦n¹³¦³ÂI°ÝÃD!!!ÁٽЬݤ@¤U!


00000001.rar (15.57 KB)

TOP

¦^´_ 13# laieven
  1. Integer ¸ê®Æ«¬ºAInteger ÅܼƫY¥H½d³ò¬° -32,768 ¨ì 32,767 ¤§ 16 ¦ì¤¸ (2 ­Ó¦ì¤¸²Õ) ¼Æ¦rªº§Î¦¡Àx¦s¡CInteger ªº«¬ºA«Å§i¦r¤¸¬O¦Ê¤À¤ñ²Å¸¹(%)¡C
½Æ»s¥N½X
  1. Single ¸ê®Æ«¬ºASingle (³æºë«×¯BÂI¼Æ) ÅܼƫY¥H IEEE 32 ¦ì¤¸ (4 ­Ó¦ì¤¸²Õ) ¯BÂI¼Æ¦rªº§Î¦¡Àx¦s¡A¥¦ªº½d³ò¦b­t¼Æªº®É­Ô¬O±q -3.402823E38 ¨ì -1.401298E-45¡A¦Ó¦b¥¿¼Æªº®É­Ô¬O±q 1.401298E-45 ¨ì 3.402823E38¡CSingle ªº«¬ºA«Å§i¦r¤¸¬° !¡C
½Æ»s¥N½X
Integer ¤£°÷¥Î ­×§ï¤@¤U
  1. DimÁ`¦¨¥æ¶q As Single
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ laieven ©ó 2015-9-15 11:43 ½s¿è

¦^´_ 14# GBKEE


    ­ì¨Ó¦p¦¹~~Ãø©Ç·|¥X²{"·¸¥X"ªº°T®§

¨º½Ð°Ý~~
1.¬°¦óDDE°O¿ý³oÃ䬰¦ó¦n¹³¨S¦³ IJµo¬ö¿ý©O?
2.DDE¬ö¿ýªºRCÀx¦s®æ¬OTIME¨S¿ù§a!!¬°¦ó¥L¤@ª½Åã¥Ü¬O2ÂI¦h?¦Ó¤£¬O²{¦bªº¨t²Î®É¶¡©O?
3.Application.EnableEvents======>§Ú¬d¤F¤@¤U»¡©ú---¨Æ¥ó³£¤w¸g±Ò¥Î«ü©wªºª«¥ó!!¯à¤£¯à¸ÑÄÀ¤@¤U

TOP

¨º½Ð°Ý~~
1.¬°¦óDDE°O¿ý³oÃ䬰¦ó¦n¹³¨S¦³ IJ ...
laieven µoªí©ó 2015/9/15 11:33

§A¬Ý¬Ý¦³¨S¦³¦b°õ¦æ Worksheet_Calculate
  1. Option Explicit
  2. Dim Á`¦¨¥æ¶q As Single
  3. Private Sub Worksheet_Calculate()
  4.     If IsError([b2]) Then Exit Sub      'dee ³nÅé¦b¶}½L«e­«¾ã®É·|¶Ç¦^¿ù»~­È
  5.     If Time <= #8:45:00 AM# Then Exit Sub  '¶}½L«e¤£²z·|
  6.     If Á`¦¨¥æ¶q <> [E2].Value Then
  7.         Application.EnableEvents = False
  8.         Stop  'µ{¦¡¼È°±¦b³o¸Ì «öF8³v¨B°õ¦æµ{¦¡½X.
  9.         'Stop µ¹§AÆ[¹î DDE°O¿ý¦³Ä²µo¬ö¿ý,µ{¦¡¥¿±`«á,§R±¼¥¦
  10.         With [C65536].End(xlUp).Offset(1)
  11.             .Cells(1, 1) = Time
  12.             .Cells(1, 2) = [D2]
  13.             .Cells(1, 3) = [E2]
  14.         End With
  15.         Á`¦¨¥æ¶q = [E2]
  16.         Application.EnableEvents = True
  17.     End If
  18. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


¹B§@¥¿±`~~~~~@_@
§Ú¸Óµ¹§A´X­ÓÆg©O?·PÁÂ
¥t¥~§Ú¸Ó«ç»ò±N10¤f¥H¤W¥H¤Î10¤f¥H¤Uªº¦¨¥æ³æ¤À¶}
¨Ã¨C1¤ÀÄÁ¥[Á`¤@¦¸©O?

TOP

¦^´_ 17# laieven
'?? 10¤f¥H¤Wªº¦ì¸m  ¦Û¤v³]
'?? 10¤f¥H¤Uªº¦ì¸m  ¦Û¤v³]
  1. If Á`¦¨¥æ¶q <> [E2].Value Then
  2.         Application.EnableEvents = False
  3.         If ¦¨¥æ³æ >= 10 Then
  4.             With [??].End(xlUp).Offset(1) '?? 10¤f¥H¤Wªº¦ì¸m
  5.                 .Cells(1, 1) = Time
  6.                 .Cells(1, 2) = [¦¨¥æ³æ]
  7.             End With
  8.         Else
  9.             With [??].End(xlUp).Offset(1) '?? 10¤f¥H¤Uªº¦ì¸m
  10.                 .Cells(1, 1) = Time
  11.                 .Cells(1, 2) = [¦¨¥æ³æ]
  12.             End With
  13.         End If
  14.         Á`¦¨¥æ¶q = [E2]
  15.         Application.EnableEvents = True
  16.     End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# GBKEE


¤F¸Ñ¤F!!
·PÁª©¥DÀ°¦£!
¦¬¤U¬ã¨s©ú¤Ñ¶}½L¨Ó´ú¸Õ¤@¤U!
·PÁÂ!

TOP

¦^´_ 9# GBKEE


    ½Ð°Ý¬O§_­n©w¸q¤@¤U"¦¨¥æ³æ"¦]¬°¥X²{!!

§Ú§â¤j³æ¦ì¸mÂ\¦bi~~~¤p³æ¦ì¸mÂ\¦bj
¬O¤£¬O§â¦¨¥æ³æ©w¸q¦¨
i2©Mj2©O?

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD