返回列表 上一主題 發帖

[發問] 程式碼寫在個別的 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 

論壇贊助勳章
5#
發表於 2011-8-4 10:21 | 只看該作者
感謝 oobird 熱心幫忙
Jess

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-8-4 08:32 | 只看該作者
那是我會錯意了，以為你要在每個工作表都能執行。
這個程式是放在Workbook_SheetChange事件中
移到工作表的Worksheet_Change事件即可！

TOP

jesscc

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

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-3 23:58 | 只看該作者
回復 1# jesscc

你要的是輸入資料後會自動判斷執行結果，就不要循環了
附件在任何一個工作表的e欄任意列輸入後都在該列的k欄寫入公式
tt.rar (7.67 KB)

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題