Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

Airman
Lv 4
Airman 發問時間: 電腦與網際網路軟體 · 9 年前

VBA~R欄依據條件標示底色的語法。

http://www.funp.net/350983

需求︰

主檔執行後產生的總表~依據$R$5的數值顯示在B︰H的欄位~

將$R7(含)以下的期數(=mthcount(即=$R$6)期數除外)標示指定底色。

$R$5的數值顯示在B欄時,則其顯示在R欄的A欄期數標示40號底色。

$R$5的數值顯示在C欄時,則其顯示在R欄的A欄期數標示39號底色。

$R$5的數值顯示在D欄時,則其顯示在R欄的A欄期數標示45號底色。

$R$5的數值顯示在E欄時,則其顯示在R欄的A欄期數標示4號底色。

$R$5的數值顯示在F欄時,則其顯示在R欄的A欄期數標示38號底色。

$R$5的數值顯示在G欄時,則其顯示在R欄的A欄期數標示37號底色。

$R$5的數值顯示在H欄時,則其顯示在R欄的A欄期數標示8號底色。

請詳見附檔。

請問︰以上需求語法應該如何添寫? 謝謝!

3 個解答

評分
  • 顯栓
    Lv 7
    9 年前
    最佳解答

    For Each a In .Range("B7", "H" & e)  If a = .[R5] Then   If a.Column = 2 Then    a.Interior.ColorIndex = 40    Mycolor = 40   ElseIf a.Column = 3 Then    a.Interior.ColorIndex = 39    Mycolor = 39   ElseIf a.Column = 4 Then    a.Interior.ColorIndex = 45    Mycolor = 45   ElseIf a.Column = 5 Then    a.Interior.ColorIndex = 4    Mycolor = 4   ElseIf a.Column = 6 Then    a.Interior.ColorIndex = 38    Mycolor = 38   ElseIf a.Column = 7 Then    a.Interior.ColorIndex = 37    Mycolor = 37   ElseIf a.Column = 8 Then    a.Interior.ColorIndex = 8    Mycolor = 8   End If   .Cells(q, 17) = a.Offset(-1, 0).Value   .Cells(q, 18) = Cells(a.Row, 1).Value   .Cells(q, 18).Interior.ColorIndex = Mycolor   .Cells(q, 19) = a.Offset(1, 0).Value   .Cells(4, t) = .Cells(q, 17)   .Cells(5, t) = .Cells(q, 18)   .Cells(6, t) = .Cells(q, 19)   .Cells(3, t) = mthcount - .Cells(a.Row, 1).Value   .Cells(1, t) = "=IF(Count(offset(A7,,COLUMN()-1,243)),"""",1)" 'T1~Tn公式   .Cells(1, t + 1) = "=1"   .Cells(1, t).Interior.ColorIndex = 6 'T1標示Color   t = t + 1   q = q + 1  End If

  • Airman
    Lv 4
    9 年前

    冰淇淋大大︰

    感謝您的回應和解答。

    貴解原則上是小弟所需~但要放在49R(MF)主檔裡,另R欄沒有如提問需求標示底色~將$R7(含)以下的期數(=mthcount(即=$R$6)期數除外)標示指定底色。

    即在程式碼列107完成總表(49R_12_500_leading schedule)的A欄︰S欄資料後~總表因公式所產生的的個工作表都要如需求標示底色。

    >>續>>

    2012-06-27 10:19:37 補充:

    請在主檔點COPY鍵後>>起迄序號填入11-12>>確定>>起迄期數填入500>>確定。

    二個資料夾中的第一個效果檔(49R_11_500期&49R_12_500其)即是總表。

    因為以中文名稱上傳,常會變成亂碼,所以都以數字或英文字母命名上傳。

    沒有事先註明說清楚~尚請見諒!

    煩請不吝再次賜教!謝謝您!

    ^^

  • 冰淇
    Lv 6
    9 年前

    http://www.funp.net/103119

    不知是否為版主所需

還有問題?馬上發問,尋求解答。