希望大大幫忙一下下如何標記

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-10-5 09:04 | 顯示全部帖子

回復 1# lbs1252
用工作表指令格式->設定格式化條件, 也可達到你的期望.
VBA程式碼

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-10-5 18:34 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-10-5 18:36 編輯

回復 9# lbs1252

Option Explicit
Sub Ex()
Dim Rng As Range, C As Integer, Font_Color As Integer
Set Rng = Sheets("東運－資料範例").[B2] '品名
Do
If Rng = "衣服" And Rng.Interior.ColorIndex = 6 Or _
Rng = "鞋" And Rng.Interior.ColorIndex = 15 Then 'Rng = "衣服" AND(且) 圖樣.顏色值= 6(黃色) OR(或) Rng = "鞋" AND(且) 圖樣.顏色值= 15(灰色)
'1#的檔案品名是 "鞋" 非 "鞋子"
Font_Color = xlAutomatic '字體顏色
Select Case Rng.Offset(, 2).Value '品名右移2欄為數量
Case 1 To 10 '數量 1-10的為紅色
C = 3
Font_Color = 6
Case 11 To 20 '數量 11-20為綠色
C = 10
Case 21 To 30 '數量 21-30為藍色
C = 5
Font_Color = 2
Case 31 To 40 '數量 31-40為淡藍色
C = 8
Case Else '其餘數量
C = xlAutomatic
End Select
Rng.Offset(, 2).Interior.ColorIndex = C
Rng.Offset(, 2).Font.ColorIndex = Font_Color
End If
Set Rng = Rng.Offset(1) '品名下移一列
Loop While Rng <> "" '離開迴圈 : 品名=""
End Sub

複製代碼

靜思自在 : 受人點水之恩，須當湧泉以報。

希望大大幫忙一下下 如何標記