- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
本帖最後由 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
|
|
發表於 2012-10-5 09:04
| 