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

½Ð°Ýª©¤W¤j¤j¡Aexcel¥i¥H°õ¦æ³oºØ¸ê®Æªº¼È¦s¶Ü??

½Ð°Ýª©¤W¤j¤j¡Aexcel¥i¥H°õ¦æ³oºØ¸ê®Æªº¼È¦s¶Ü??

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-1-20 18:14 ½s¿è

½Ð°Ýª©¤W¤j¤j¡A¦pªGA1=5¡BB1=4¡A¤U¤@¬íA1=7¡BB1=1¡A¦pªG§Ú·Q­n¦bA2¡BB2±o¨ì³o¤@¬í¸ò«e¤@¬íªº®t­È(7-5=2¡B1-4=-3)­n«ç»ò°µ??

¦^´_ 1# ÂŤÑÄR¦À

­n¦Û¤v§âªº­È¦s°_¨Ó, ¦A¸ò·sªº­È¤ñ

·§©À¦p¤U,  ¦A¥[ column ©M row ªº§PÂ_, ´N®t¤£¦h¤F
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldValue= Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    NewValue= Target.Value
    '¦A¥h­pºâ§Y¥i
End Sub

TOP

¦^´_ 2# diolin


    ¤£¤ÓÀ´¡A¥i¥H½Ð¤j¤j¼g­Ó¨Ò¤lÅý§Ú°Ñ¦Ò¶Ü??

TOP

¦^´_ 3# ÂŤÑÄR¦À

§Aªº»Ý¨D, ¤j·§¬O³o¼Ë

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1": A1 = Target.Value
        Case "$B$1": B1 = Target.Value
    End Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$1": Range("A2") = A1 - Target.Value
        Case "$B$1": Range("B2") = B1 - Target.Value
    End Select
End Sub

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-1-30 13:18 ½s¿è

¦^´_ 1# ÂŤÑÄR¦À
  1. Option Explicit
  2. Option Base 1       '¦b¼Ò²Õ¼h¦¸¤¤¥Î¨Ó«Å§i°}¦C¯Á¤Þªº¹w³]¤U­­
  3. Dim Ar As Variant   '³o¼Ò²Õªºµ·¥Î«KÅܼÆ
  4. Sub Ex() '¤U¤@¬íªºµ{¦¡½X
  5.     With Sheets(1)  '«ü©wªº¤u§@ªí
  6.         If Not IsEmpty(Ar) Then
  7.             If Ar(1) <> .[A1] Then .[A2] = .[A1] - Ar(1)
  8.             If Ar(2) <> .[b1] Then .[b2] = .[b1] - Ar(2)
  9.         End If
  10.         Ar = Array(.[A1].Value, .[b1].Value)
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# diolin


    D¤j·PÁ§A

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-1-28 20:53 ½s¿è

¦^´_ 5# GBKEE


    G¤j®ø¥¢¤F¤@°}¤l¡A®`§Ú¥H¬°³o­ÓÀu½èªº½×¾Â¤S¤Ö¤F¤@¦ì¤j±N¡A¥t¥~½Ð±ÐG¤j¡A§A¸òD¤jªºµ{¦¡½X¬O®t¦b­þ©O??

TOP

¦^´_ 5# GBKEE


    G¤j¡A°õ¦æ«á·|¥X²{°}¦C¯Á¤Þ¶W¥X½d³ò??

TOP

¦^´_ 8# ÂŤÑÄR¦À
µ{¦¡½X¤w§ó·s.
¥Ñ©ó²´·úªø®É¶¡ªº¨n¬Ý¿Ã¹õ,«æ»Ý¥ð¾i,©Ò¥H³o­Ó¤ë¨C¤Ñ¶}¾÷ªº®É¶¡,¶È¬O¬Ýmail,
°¸º¸ÁÙ¬O·|¦b½×¾Â¬Ý¬Ý.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE


    G¤j­n¦n¦n«O­«¨­Åé

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD