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

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

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

感謝~

for each 針對特定分頁.rar (20.91 KB)
程式碼：
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

樓主熱帖

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2014-7-22 01:31 | 只看該作者

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))

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ii31sakura

中學生 Rank: 2

帖子: 43
主題: 13
精華: 0
積分: 75
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2014-5-6
最後登錄: 2019-6-17

3^#

發表於 2014-7-22 10:43 | 只看該作者

回復 2# ML089

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

for each 針對特定分頁.rar (21.77 KB)
程式碼：
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

TOP

ML089