Excel 儲存格改變顏色問題請教

bv8af
個人積分：0分
文章編號：42022040

0分

樓主

2013-02-25 14:21

請問在Excel工作表中，I5:AK5表工作完成情況
若儲存格I5內容為"完成"則將i2:i38底色改為索引顏色20
若儲存格I5內容為"未完成"則將i2:i38底色改為索引顏色19
其他情況則將i2:i38底色改為索引顏色2
小弟初學VBA試寫成如下，不知哪裡出錯，敬請指正，感謝!

Sub check()
Dim a As Integer
For a = 9 To 38
If Range(Cells(Chr(64 + a), 5)).Text = "完成" Then
Range(Cells(Chr(64 + a), 2)).Cells(Chr(64 + a), 48).Interior.ColorIndex = 20
ElseIf Range(Cells(Chr(64 + a), 5)).Text = "未完成" Then
Range(Cells(Chr(64 + a), 2)).Cells(Chr(64 + a), 48).Interior.ColorIndex = 19
Else
Range(Cells(Chr(64 + a), 2)).Cells(Chr(64 + a), 48).Interior.ColorIndex = 2
End If
Next a
End Sub

2013-02-25 14:21 發佈

文章關鍵字 excel 顏色問題儲存格

10

10
個人積分：52分
文章編號：42117410

52分

2樓

2013-03-02 2:06

bv8af wrote:
請問在Excel工作...(恕刪)

To make it more easy, I will suggest to using "Conditional Formatting" instead of VBA...

bv8af

bv8af
個人積分：0分
文章編號：42126018

0分

樓主

2013-03-02 16:45

10 wrote:
To make it...(恕刪)

謝謝您的回應，小弟已經試過格式化條件，但是無法因該儲存格之變化，去指定其他儲存格之底色，還是另有方法?

10

10
個人積分：52分
文章編號：42143793

52分

4樓

2013-03-03 18:42

Deleted the content, sorry!

10

10
個人積分：52分
文章編號：42143973

52分

5樓

2013-03-03 18:55

Deleted the content, sorry!

froce

froce
個人積分：77分
文章編號：42145203

77分

6樓

2013-03-03 20:26

幫你指一下VBA的錯誤...

cells()內的引數用錯了...
請去查明cells()內引數該怎麼寫...
range()的用法也錯了...
這題不需要用到range()也能解決...

不過這題用格式化的確比較正確...
實際在做請用格式化去做...
不要寫VBA...

bv8af

bv8af
個人積分：0分
文章編號：42172183

0分

樓主

2013-03-05 8:03

froce wrote:
幫你指一下VBA的錯...(恕刪)

謝謝指正，確實不清楚的地方還很多。
應該是我的問題說的不夠清楚：
1.A3:Z3 "完成"，"未完成"
2.若"完成"則，整欄底色全部改成某顏色
3.若"未完成"則，整欄底色全部改成另一顏色
小弟愚鈍想不出來，這樣要如何用格式化來設定，或是用VBA來做，還請指點一二。

froce

froce
個人積分：77分
文章編號：42172831

77分

8樓

2013-03-05 9:03

後來看了一下你的要求...不寫vba好像沒辦法做...
就幫你寫了...
請自己看cells和range的用法...
---


Sub check()
If Cells(5, 9).Value = "完成" Then
    Range("I2", "I38").Interior.ColorIndex = 20
Else
    If Cells(5, 9).Value = "未完成" Then
        Range("I2", "I38").Interior.ColorIndex = 19
    Else
        Range("I2", "I38").Interior.ColorIndex = 2
    End If
End If
End Sub