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

½Ð±ÐÀx¦s®æ¤º®e¤ñ¸û»P¹Bºâ°ÝÃD(¤w¸Ñ¨M)

if [A1]<=[B1] then
[D1]=[C1].value:[F1]=[C1]+[D1]
else
[G1]=[C1]+[E1]
end if
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

1.Worksheet_Calculate¬O¥Ñ¤½¦¡­«ºâIJµo¡A¿é¤J¼Æ­È¬OIJµoChange¨Æ¥ó
2.ÅܼƻPÀx¦s®æ¼Ð¥ÜÆ[©À²V²c
[bid_t1]§A¨S¦³³o¼Ëªº¦WºÙ
bid_t1¬OÅܼƤ£¯à¥Î¤¤¨í©·¥]¸Ë
­YÅܼƭn«ü©w¬°Àx¦s®æª«¥ó¥²¶·¨Ï¥ÎSet³¯­z¦¡
¨Ì·Ó§Aªº±Ô­z¡AA1¸òB1À³¸Ó¬O¥Î¤½¦¡¨ú±o¤~¯à¨Ï¥ÎCalculate¨Æ¥ó
µ{¦¡½X:
  1. Private Sub Worksheet_Calculate()
  2. If [A1] <= [B1] Then
  3. [D1] = [C1].Value: [F1] = [C1] + [D1]
  4. Else
  5. [G1] = [C1] + [E1]
  6. End If
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD