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

EXCEL ¦©°£Á`¼Æ

EXCEL ¦©°£Á`¼Æ

§A¦n¡A

§Ú¬Oªì¾ÇªÌ¡A§Ú¦³¤@­Ó°ÝÃD·Q½Ð±Ð¤j¤j¡C
¦p¦ó§âÁ`®w¦s±±¨î¦bEXCEL ªºBÄæ §Ú¥u­n¦bc,d,e,f,g,h,i....¿é¤J®³¨«¦h¤Ö ¡AÁ`®w¦s´N·|¦Û°ÊÅÜ´«?
¨Ò¦p : BÄæ¿é¤J100 c¿é¤J10 ¡AB´N·|¦Û°Ê¸õ°Ê90 ?

«ô°U! ½Ð¤j¤j±Ð§Ú³o­Ó°ÝÃD !

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-6-24 13:05 ½s¿è

¦^´_ 1# ylcrimp

§A¸Õ¸Õ
    ¨Ò¦p
      A      B     C     D
1           ®w¦s
2           500
3           400
4           600
5           800
6           900
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. On Error Resume Next
  3. With Target
  4.    If .Row > 1 And .Column > 2 Then
  5.     Range("b" & .Row) = Range("b" & .Row) - .Value
  6.    End If
  7. End With
  8. End Sub
½Æ»s¥N½X

TOP

¤p§Ì¤S¾Ç¨ì¤@©Û­Û¾Â¯u¬O°ª¤â¶³¶°¦b½Ð°Ý¤@¤U¦p­nC¨ìO¦ÓB·|¦Û°Ê¦©´î­n¦p¦ó¼gÁÂÁ«ü¾É

TOP

¦^´_ 3# gca78000


  
   If .Row > 1 And .Column > 2 Then  =====>¥u­n¤j©ó²Ä¤@¦C¥B¤j©ó²Ä¤GÄæ¡A´N·|IJµo±ø¥ó(±qCÄæ¨ì³Ì«á¤@Äæ³£·|IJµo)
   
   if .Row > 1 And .Column > 2 And .Column <= 15 Then  =====>¥u­n¤j©ó²Ä¤@¦C¥B¤j©ó²Ä¤GÄæ¦ý¤p©óµ¥©ó²Ä¤Q¤­Äæ(C¨ìOÄæ)¡A¤~·|IJµo±ø¥ó

   ¨Ì¦¹Ãþ±À

TOP

·PÁÂowen06 ªü°a¦Ñ®v«ü¾É¤p§Ì¨ü¯q¨}¦h¦Ó«á½Ð¦h¦h«ü¾É·P®¦§A:)

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD