Excel使用VBA替換單元格格式

Question

好的，所以我想找到一種方法來改變Excel 2007后面的工作表中的單元格與VBA，所以如果我在單元格A1和B1中有一些東西，那么C1將自動填充答案，而框中沒有任何公式。

我試過了

Private Sub Worksheet_Change()
dim weekCost as integer
dim monthCost as integer
dim salesTax as integer
dim totalCost as integer

weekCost = Range("$A$1")
monthCost = Range("$B$2")

salesTax = (weekCost + monthCost) * .08
totalCost = weekCost + monthCost

totalCost = salesTax + totalCost

totalCost = range("$C$1")

end sub

我不能讓總成本堅持到任何一個人都知道的那個細胞？

Answer 1

您的作業聲明是向后的，請嘗試：

Range("C1") = totalCost

Answer 2

最明顯的解決方法是將最后一行更改為range("$C$1").Value = totalCost 。

如果這不起作用，可以考慮以下其他一些事項：

1. 我在代碼中看到的一個直接問題是，Worksheet_Change子實際上應該被定義為Private Sub Worksheet_Change(ByVal Target As Range)

2. 確保該功能位於您希望捕獲事件的特定工作表的代碼頁中 。 如果將它放入常規代碼模塊中，則不會調用它。

3. 您可能想要解決的另一個問題是，現在每次修改任何單元格時，代碼都會重新計算，而不僅僅是A1或B1。 您可以將代碼放在If語句中以限制何時執行重新計算。

Answer 3

或工作表（“Sheet1”）。單元格（3,1）.Value = totalCost