作者ptguitar (佩蒂吉他)
看板Office
标题[算表] 计算储存格颜色出现次数的vba
时间Mon Sep 10 11:06:17 2018
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1536548779.A.401.html
1F：→ soyoso: 1.for i=1 to 56写在for each的外圈 09/10 11:17
2F：→ soyoso: range("B" & i+1) = count和count=0移到for each..next结 09/10 11:18
4F：→ soyoso: 如要以原文巢状回圈的话，以储存格来累加 09/10 11:29
6F：→ soyoso: 但如会在b栏有数值时重新执行的话，请加上清除b栏资料部分 09/10 11:30
7F：→ ptguitar: 感谢S大 若是要符合那个颜色的数字则加总的话要 09/10 11:31
8F：→ ptguitar: 怎麽修正.. 09/10 11:31
9F：→ newacc: 没有测试过，但巢状回圈当资料一多，效率会低得恐怖喔 09/10 11:36
10F：→ soyoso: +1的部分改为 + cell 09/10 11:38
11F：→ ptguitar: 还好 因为是在练习vba怎麽想.... 09/10 11:41
12F：→ ptguitar: 逻辑还是不太行 感谢S大指导^^ 09/10 11:41