返回列表 上一主題 發帖

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

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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 的結果是小數就讓字體以紅色顯示,該如何判斷?


tt.rar (8.14 KB)
收藏 分享
Jess

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
2#
發表於 2011-8-4 00:36 | 顯示全部帖子
感謝oobird
這段程式好像會在所有的工作表中執行，可是我只想在其中的一個工作表中執行，該怎麼辦?
Jess

TOP

jesscc

帖子
162 
主題
44 
精華
0 
積分
244 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-4-4 
最後登錄
2022-10-3 

論壇贊助勳章
3#
發表於 2011-8-4 10:21 | 顯示全部帖子
感謝 oobird 熱心幫忙
Jess

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題