¶: [1]
|
 |
|
§@ªÌ
|
¥DÃD: ªÑ²¼°ÊºA³sµ²©Mvbªº°ÝÃD (¾\Ū 1369 ¦¸)
|
michaelia

Â÷½u
¤å³¹: 3
|
TO¡G¦U¦ì¤j¤j¡G
¤£¦n·N«ä¡A§Ú¬OVBªºªì¾ÇªÌ¡A²{¦b¹J¨ì¤@¨Ç°ÝÃD·Q½Ð±Ð¦U¦ì ¬O³o¼Ëªº¡A§Ú§âªÑ²¼³nÅ餺ªºDDE°ÊºA³sµ²©Ô¨ìEXCEL¡A§Æ±æ¯à¥ÎVB§â°ÊºA³sµ²ªº¸ê®Æ¯d¦s¤U¨Ó¡A¨Ã°µ¦¨5¤ÀÄÁ¬°¤@¦Cªº¶}°ª§C¦¬¡A§Ú¥Îªº¤è¦¡¬O³o¼Ëªº
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A65536").End(xlUp).Offset(1, 0) = Range("A2").Value:
Range("B65536").End(xlUp).Offset(1, 0) = Range("B2").Value
Application.EnableEvents = True
Call °ªÂI: Call §CÂI: Call ¦¬½L
End Sub
Function °ªÂI()
'08:50:00
If Range("A2") <= "0.368055555555556" And Range("E2").Value < Range("B2").Value Then Range("E2") = Range("B2").Value: Exit Function
¡K
¡K
¥H¦¹Ãþ±À¡C
¦ý§Úµo²{§Ú°ªÂI´Nn¼g60Ó±ø¥ó¡A§CÂI¡B¦¬½L´N¦U60Ó¡Aµ²ªG¤@¥¹°ÊºA³sµ²ªº¸ê®ÆÅܰʮɡA®Ú¥»¨Ó¤£¤Î°õ¦æµ{¦¡¡A¬O¤£¬O§Ú¨ºùذµ¿ù¤F¡A¥i¥H½ÐÓ«ü¾É§Ú¤@¤U¦n¶Ü¡H«ô°U¡A«ô°U¡AÁÂÁ¦U¦ì¡A·P¿E¤£ºÉ~~~~~(PS.~~SORRY¡AVB§Ú¯uªºÀ´±o¤£¦h¡A©Ò¥Hn³Â·Ð¥Î¤ñ¸û²³æªº¤è¦¡§i¶D§Ú¦n¶Ü¡Hªü¨½ªü¦h)¡@
|
|
|
|
|
¤w°O¿ý
|
|
|
|
johnnyho

Â÷½u
¤å³¹: 3
|
«¢«¢§Ú¤]¬O, ÁöµM¹ïEXCEL VBAºâ¤£±o¬O°ª¤â ¦ý¬O¤]¼g¤F¤£¤Ö¿ïªÑ¥H¤Î´Á³fµ{¦¡¥æ©ö°T¸¹ªºµ{¦¡ ³Ìªñ¤@ª½·Q³z¹L¨é°ÓªºDDE³sµ²¨ìEXCEL°µEXCEL§Y®É¸ê®Æ§ó·s¨Ã²£¥Í¥æ©ö°T¸¹ ±z²{¦b°µªº¥¿¬O§Ú¯Êªº ¥i¥H¥æ¬y¤@¤U¶Ü ¦ý¬O§Ú»Ýn§¹¾ãªºµ{¦¡½X¥H¤ÎDDE¨Ó·½¤~¦æ ¤@°_¬ã¨s§a
|
|
|
|
|
¤w°O¿ý
|
|
|
|
¶: [1]
|
|
|
|
|