請問自訂格式問題

danny001

如A1:A500格內我想輸入50自動減20要如何做ㄋ
自訂儲存格好像做不到這個功能喔!!
請問有別的辦法ㄋ，目前我是使用在B2欄位寫=20-A1

kimbal

自訂格式不能改動值,
如果覺得公式不方便, 可以考慮一下用代碼:

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3.     For Each c In Target
   
4.         If c.Column = 1 And (c.Row >= 1) And (c.Row <= 500) Then
   
5.                 c.Value = c.Value - 20
   
6.         End If
   
7.     Next
   
8.     Application.EnableEvents = True
   
9. End Sub

複製代碼