返回列表 上一主題 發帖

[發問] VBA 成績低於60標示紅字

yuras

帖子
16 
主題
10 
精華
0 
積分
41 
點名
0  
作業系統
WINDWOS 7 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
來自
台灣 
註冊時間
2010-10-12 
最後登錄
2014-7-7 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-27 22:23 | 只看該作者

[發問] VBA 成績低於60標示紅字

又來請教各位高手 !!
IF then 一直都程式失敗:Q ，如何vba撰寫在成績欄位低於60標示紅字
謝謝!!:)
Book1.rar (1.35 KB)
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
2#
發表於 2011-9-27 22:43 | 只看該作者
Sub test()
Dim c As Range
For Each c In Range([b2], [b65536].End(3))
If c.Value < 60 Then c.Font.ColorIndex = 3
Next
End Sub

TOP

yuras

帖子
16 
主題
10 
精華
0 
積分
41 
點名
0  
作業系統
WINDWOS 7 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
女 
來自
台灣 
註冊時間
2010-10-12 
最後登錄
2014-7-7 

論壇贊助勳章
3#
發表於 2011-9-28 06:59 | 只看該作者
回復 2# oobird


    謝謝 ^^

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
4#
發表於 2011-9-28 13:44 | 只看該作者
可以的話盡量用格式化條件
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
5#
發表於 2011-9-28 15:07 | 只看該作者
不好意思,可以問一下嗎?For Each c In Range([b2], [b65536].End(3))最後的(3)是什麼意思呢?
50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
6#
發表於 2011-9-28 17:04 | 只看該作者
[b65536].End(3)=[b65536].End(xlup)

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題