返回列表 上一主題 發帖

EXCEL 扣除總數

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2026-8-12 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2014-6-24 13:02 | 顯示全部帖子
本帖最後由 owen06 於 2014-6-24 13:05 編輯

回復 1# ylcrimp

你試試
    例如
      A      B     C     D
1           庫存
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
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2026-8-12 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2014-11-4 12:06 | 顯示全部帖子
回復 3# gca78000


  
   If .Row > 1 And .Column > 2 Then  =====>只要大於第一列且大於第二欄，就會觸發條件(從C欄到最後一欄都會觸發)
   
   if .Row > 1 And .Column > 2 And .Column <= 15 Then  =====>只要大於第一列且大於第二欄但小於等於第十五欄(C到O欄)，才會觸發條件

   依此類推

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題