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

[µo°Ý] ¸ê®Æ§ó·s°ÝÃD

[µo°Ý] ¸ê®Æ§ó·s°ÝÃD

¥»©«³Ì«á¥Ñ appr ©ó 2012-3-12 13:18 ½s¿è

·Q½Ð°Ý¤@¤U!!²{¦b¦pªG§Ú¦³¨â¥x¹q¸£ªº±¡ªp¤U!!!   A ¸òB    ªº¹q¸£  ªº®æ¦¡ ¤½¦¡  ¬Ò¬° ¤@¼Ë  ®t¦b©óA¥x¹q¸£»P B¥x¹q¸£ ªº¶ZÂ÷  «Ü»· ¦ý ¬Ò¦³ºô¸ô

¦pªGA¥x¹q¸£ªº¸ê®Æ¤w¸g°µ§ó·s¡A¨º B¥x¹q¸£­n¦p¦óÅý¥L»PA¥x¹q¸£ª½±µ³s½u  ¨Ã   ¶i¦æ§ó·s?   

¬O­n¥ÎDDEªº¤è¦¡¶Ü?

³o¬O§Ú¥Ø«eªºVBA
  1. Private Sub worksheet_change(ByVal target As Range)
  2. Set RngA = Range("A2:A4")
  3. Set RngB = Range("B2:B4")
  4. Set RngCA = Intersect(target, RngA)
  5. Set RngCS = Intersect(target, RngB)
  6. If Not RngCA Is Nothing Then
  7.    RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
  8.    RngCA.Offset(0, Month(Now) + 4) = RngCA.Offset(0, Month(Now) + 4) + RngCA.Value
  9.    RngCA.Value = ""
  10. End If
  11. If Not RngCS Is Nothing Then
  12.    RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
  13.    RngCS.Value = ""
  14. End If
  15. Set RngD = Range("D2:D4")
  16. Set RngE = Range("E2:E4")
  17. Set RngDE = Intersect(target, RngD)
  18. Set RngED = Intersect(target, RngE)
  19. If Not RngDE Is Nothing Then          'E2~E4=D2~D4
  20.    RngE.Value = RngD.Value
  21. End If
  22. If Not RngED Is Nothing Then          'D2~D4=E2~E4
  23.    RngD.Value = RngE.Value
  24. End If
  25. End Sub
½Æ»s¥N½X

°ÝÃD·|¨ú¨M©óEXCEL·|¤£·|¦P®É¥´¶},
¦pªG¤£¬O¦P®É¥´¶}, ¥u­n§âÀɮצ@¨É¥X¨Ó§Y¥i.
¦pªG­n¦P®É¥´¶}, ­Ó¤H«Øij¥ÎACCESS¨Ó©ñ¼Æ¾Ú,EXCEL©â¥X/¼g¤J.
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# kimbal


    °w¹ï²Ä¤@­Ó°Ýµª

§Ú¤]·Q¹L»¡ª½±µ¥ÎÀɮפÀ¨Éªº¤è¦¡ ¡A¬Æ¦Ü¬Oª½±µ¥Î»·ºÝ»»±±ªº¤è¦¡ !!!!       ´N¹³¦^µª©Ò»¡ªº §Ú¬O¤£ª½±µ¦P¨B¥´¶} ©Ò¥H¨S¦³Ãö«Y

²Ä¤G­Ó°Ýµªªº³¡¤À

ACCESS§ÚÁÙ¥²¶·¾Ç¹L........²{ªp¤U§ÚÁÙ¤£·|.......©Ò¥H¥i¯à­n½Ð§A±Ð±Ð§Ú¤F

²Ä¤T­Ó°ÝÃD¬O¡G

§Ú·Q°Ý°Ý¬Ý¥i¯à©Ê!!!¥H¤Î½ÆÂøµ{«×!!!

TOP

¦^´_ 2# kimbal


    ¤£¦n·N«ä!!!§Ú·Q¦A½Ð°Ý¤@­Ó°ÝÃD!!!

¦pªG²{¦bÅܦ¨§Ú³o¥x¹q¸£¥u¦³¿é¤J¸ê®Æ µM«á¶Ç°eµ¹¨ä¥L¹q¸£

¶Ç°e¤§«á ¡A§Úªº¹q¸£¸ê®Æ¥i¥H¦^Âk 0   ¤]´N¬O ªì©l¤Æ  !!!  ¦ýVBAµ{¦¡½X¨ÌµM¤£ÅÜ

¨º§Ú¸Ó«ç»ò¥h³]©w?

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD