標題: 請問自訂格式問題 [打印本頁]

---

作者: danny001    時間: 2010-8-24 02:15     標題: 請問自訂格式問題

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

---

作者: kimbal    時間: 2010-8-24 22:18

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

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)