返回列表 上一主題 發帖

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

ii31sakura

帖子
43 
主題
13 
精華
0 
積分
75 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2014-5-6 
最後登錄
2019-6-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-7-21 19:51 | 只看該作者

[發問] 請問各位前輩關於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
收藏 分享

ii31sakura

帖子
43 
主題
13 
精華
0 
積分
75 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2014-5-6 
最後登錄
2019-6-17 
5#
發表於 2014-7-22 17:04 | 只看該作者
回復 4# ML089

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

TOP

ML089

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

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2014-7-22 11:39 | 只看該作者
回復 3# ii31sakura

火龍果那一頁數值沒有 小於 97% ，所以看不出變化，你自己打幾個 96% 再執行一次就可以看得出來
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ii31sakura

帖子
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

帖子
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

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題