[發問] 請問各位前輩關於for each問題

ii31sakura

不好意思請問各位前輩一下、小弟的資料情況如下：
1. sheet("list")中A欄位下有需處理的分頁名稱
2.將各需處理分頁的內容數值依照各分頁上"e1"儲存格中有一個水準，低於這個水準就將該數值反紅

小弟的程式碼只能處理一個分頁後就會出現錯誤…請問大大們、小弟的程式碼需從哪修改呢？

感謝~
for each 針對特定分頁.rar (20.91 KB)

下載次數: 5

2014-7-21 19:50

程式碼：
Sub test()

    Dim bc As Range
    Dim Customer As String
    Dim cc As Integer, b As Integer
   
     For b = 2 To Worksheets("list").[a65536].End(3).Row
    Customer = Worksheets("list").Cells(b, 1)

   
cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column '算出這範圍最後一筆資料

     For Each bc In Sheets(Customer).Range("c" & 3, Cells(40, cc))

    If bc.Value < Sheets(Customer).Range("e1") Then

    With bc.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

    End If
    Next
    Next
End Sub

ii31sakura

回復 2# ML089

ML089前輩不好意思、請問我目前可執行但卻只能執行"水果"那個分頁而已' 如附件的情況，請問小弟的哪個地方有寫錯呢？
感謝前輩~
   
for each 針對特定分頁.rar (21.77 KB)

下載次數: 4

2014-7-22 10:43

程式碼：
Sub test()

    Dim bc As Range
    Dim Customer As String
    Dim cc As Integer, b As Integer
   
     For b = 2 To Worksheets("list").[a65536].End(3).Row
    Customer = Worksheets("list").Cells(b, 1)

   
cc = Sheets(Customer).Range("b2:cd2").End(xlToRight).Column '算出這範圍最後一筆資料

     For Each bc In Sheets(Customer).Range("c" & 3, Sheets(Customer).Cells(40, cc))

    If bc.Value < Sheets(Customer).Range("e1") Then

    With bc.Font
        .Color = -16776961
        .TintAndShade = 0
    End With

    End If
    Next
    Next
End Sub

ii31sakura

回復 4# ML089

ML089前輩真是不好意思、沒注意到這個地方，已經可以正常使用了，感謝前輩哦~