PTT數位生活區 / Office

[算表] 計算儲存格顏色出現次數的vba

看板Office作者 (佩蒂吉他)時間7年前 (2018/09/10 11:06), 編輯推噓0(0推 0噓 12→)
留言12則, 3人參與, 7年前最新討論串1/1
軟體:excel 版本:2007 寫了一個vba 不知道想法哪邊錯誤 在test工作表的A2:A57會有56個顏色 要在B2:B57傳回相對顏色的數量 寫了個vba 不知道那邊想法有錯.... 煩請大大幫忙除錯 感謝 Sub test() Dim cell As Object Dim count As Integer Set rng1 = Sheets("abc").Range("A1:E24") Sheets("test").Select For Each cell In rng1 For i = 1 To 56 If Range("A" & i + 1).Interior.Color = cell.Interior.Color Then count = count + 1 Range("B" & i + 1) = count count = 0 Next Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1536548779.A.401.html
→
09/10 11:17, 7年前 , 1F
1.for i=1 to 56寫在for each的外圈
09/10 11:17, 1F
→
09/10 11:18, 7年前 , 2F
range("B" & i+1) = count和count=0移到for each..next結
09/10 11:18, 2F
→
09/10 11:18, 7年前 , 3F
09/10 11:18, 3F
→
09/10 11:29, 7年前 , 4F
如要以原文巢狀迴圈的話，以儲存格來累加
09/10 11:29, 4F
→
09/10 11:29, 7年前 , 5F
09/10 11:29, 5F
→
09/10 11:30, 7年前 , 6F
但如會在b欄有數值時重新執行的話，請加上清除b欄資料部分
09/10 11:30, 6F
→
09/10 11:31, 7年前 , 7F
感謝S大 若是要符合那個顏色的數字則加總的話要
09/10 11:31, 7F
→
09/10 11:31, 7年前 , 8F
怎麼修正..
09/10 11:31, 8F
→
09/10 11:36, 7年前 , 9F
沒有測試過，但巢狀迴圈當資料一多，效率會低得恐怖喔
09/10 11:36, 9F
→
09/10 11:38, 7年前 , 10F
+1的部分改為 + cell
09/10 11:38, 10F
→
09/10 11:41, 7年前 , 11F
還好 因為是在練習vba怎麼想....
09/10 11:41, 11F
→
09/10 11:41, 7年前 , 12F
邏輯還是不太行 感謝S大指導^^
09/10 11:41, 12F
‣ 更多 ptguitar 的文章
文章代碼(AID): #1RbT-hG1 (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ptguitar 的文章
文章代碼(AID): #1RbT-hG1 (Office)