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

[µo°Ý] ³o­Ó¥i¥H¨Ï¥ÎIF¤½¦¡¶Ü?

¦^´_ 7# appr

¥ý¦bVBA½s¿è¾¹·s¼W¤@­Ó¼Ò²Õ¡A§â¤U­±ªºFunction¶K¤W

Function E2_equal_D2(SelectValue)
E2_equal_D2 = SelectValue
End Function

ÂI¿ïE2¡A´¡¤J¨ç¼Æ¡A§A·|µo²{¦h¤@­Ó¡i¨Ï¥ÎªÌ©w¸q¡j¿ï¶µ¡AÂI¤U¥h´N¥i¥H¬Ý¨ì³o­Ó¦Û­q¨ç¼Æ E2_equal_D2

¦]¬°¦³³]©w¤Þ¼Æ¡A©Ò¥H­n§â¤Þ¼Æ«ü©wD2¡A¸ò¥­±`¨Ï¥Î¨ç¼Æ¤@¼Ë¡AÂI¤@¤UD2´N¥i¥H¤F

§A¥i¥H¸Õ¤@¤U¡A¦p¦¹D2ªº¼Æ­È¤@§ïÅÜ¡AE2·|ÀHµÛ§ïÅÜ

­ì¥»ªº =SUM(D2+F2-(C2)) ¨ÌÂÂ¥i¥H­pºâ

TOP

¦Û­q¨ç¼Æ?¬O­n¥Î­þ¤@­Ó???   ©êºp§Ú¬O¯uªº¤~¤S­è¶}©l­«¾Çªº.....©Ò¥Hº¡¦h¤£À´±o!!!

¤è«Kªº¸Ü¡A¥i¥H¦A¸Ô²Ó¸Ñµª¤@¤U¶Ü?   ·PÁÂ!!!!

TOP

§Ú¥H«e³£¦Û¤v³]¤@­Óbutton¡A¦ý¬O³o¼Ë­n«ö¤@¤U¤~¯à§ó·s

¦pªG­nÀx¦s®æªº¼Æ­È§Y®É§ó·s¡A«Øij¨Ï¥Î¦Û­q¨ç¼Æªº¤èªk·|¤ñ¸û¦n

TOP

°ò¥»¤WD2¸òE2­È¬O¤@¼Ëªº¡A¬O½T©wªº!!!!¦pªG­n¥Î¦P¤@­ÓÅܼƬO¥i¥Hªº!!!

¥u¬O®t¦b©óE2¬OD2ªþÄÝ»¡©ú©³¤Uªº²Ó¶µ!!!¦pªG¥i¥Hªº¸Ü§Ú¤]¤£·Q~"~

©Ò¥H¤£Åã¥Ü¥X¨Ó!!!¦³®É­Ô·|³y¦¨¶µ¥Ø¤Wªº²V¶Ã

«z~~~~~­n°Ê¥Î¨ìVBA ¨º§Ú¯uªº¥²¶·¦n¦n¬ã¨s¤@¤U!!!·PÁ¦U¦ìªºÀ°¦£

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-1-1 22:49 ½s¿è

¦^´_ 3# appr
D2»PE2¨âÅܼƤ§­È¬JµM¤@©w¬Ûµ¥ ¬°¦ó¤£¥u¥Î¤@­ÓÅܼƩO?

¦pªG¤@©w­nD2»PE2¨âÅܼƳs°Ê ¨º¥i¯à¤@©w­n¥ÎVBA¤~§@ªº¨ì
  1. Private Sub worksheet_change(ByVal target As Range)
  2. If target.Address = "$D$2" Then
  3.    Range("E2") = Range("D2")
  4. End If
  5. If target.Address = "$E$2" Then
  6.    Range("D2") = Range("E2")
  7. End If
  8. End Sub
½Æ»s¥N½X
Book1.rar (5.76 KB)

TOP

©êºp¬O§Ú¤Ö»¡¤F

E2¬O§Ú¦h¼W¥[ªº¤@­Ó°²³]­È     ¥¦·|¥ýD2ªº­È¬Û¤¬©IÀ³¡A ¤]´N¬O»¡D2 ªº­È©ÎªÌ¬OE2 ¥u­n§ó°Ê¨ì¨ä¤¤¤@­Ó

¨º¥t¥~¤@­Ó­È¤]·|§ó°Ê

°²³]D2 ¬° 20    E2 À³¬°20     ­YD2§ó¥¿¬°15    E2À³¥ß§Y§ó°Ê¬°15

¤§«á¦A±a¤J²Ä¤@­Ó¤½¦¡¤¤ ¡A ¤]´N¬O=SUM(D2+F2-(C2))

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-1-1 19:12 ½s¿è

¦^´_ 1# appr
¤½¦¡1 :   =D2+F2-C2  ©Î =SUM(D2,F2,-C2)
¤½¦¡2 :   E2=D2   
             E2ªº¼Æ­È·|¸òµÛD2¨«¡AµM«á¦A±a¤J¨ì²Ä¤@­Ó¤½¦¡¥h¹Bºâ

¤½¦¡1¸Ì¨Ã¨S¦³¥X²{E2 ¦p¦ó§âE2¥N¤J¤½¦¡1¥h¹Bºâ???

¬O³o¼Ë¶Ü
¤½¦¡1 :   =D2+E2-C2  ©Î =SUM(D2,E2,-C2)
¤½¦¡2 :   E2=D2

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD