標題: [發問] 程式碼寫在個別的 Sheets 中,輸入資料後會自動判斷執行結果 [打印本頁]

---

作者: jesscc    時間: 2011-8-3 22:49     標題: 程式碼寫在個別的 Sheets 中,輸入資料後會自動判斷執行結果

如果以E7以下,有資料的儲存格往下做判斷，直到最後一筆資料
將K7填入公式"=I7/G7"，往下一直延伸
要如何寫在個別的 Sheets 中讓它自動執行?

Private Sub test()
For i = 7 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(i, 5).Offset(0, 6).FormulaR1C1 = "=RC[-2]/RC[-4]"
Next
End Sub

我用上面的寫法沒辦法執行,但是寫在巨集裡就可以執行了

另外一個問題,如果公式 I / G 的結果是小數就讓字體以紅色顯示,該如何判斷?


[attach]7263[/attach]

---

作者: oobird    時間: 2011-8-3 23:58

回復 1# jesscc

你要的是輸入資料後會自動判斷執行結果，就不要循環了
附件在任何一個工作表的e欄任意列輸入後都在該列的k欄寫入公式
[attach]7264[/attach]

---

作者: jesscc    時間: 2011-8-4 00:36

感謝oobird
這段程式好像會在所有的工作表中執行，可是我只想在其中的一個工作表中執行，該怎麼辦?

---

作者: oobird    時間: 2011-8-4 08:32

那是我會錯意了，以為你要在每個工作表都能執行。
這個程式是放在Workbook_SheetChange事件中
移到工作表的Worksheet_Change事件即可！

---

作者: jesscc    時間: 2011-8-4 10:21

感謝 oobird 熱心幫忙

---

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