Excel 2010 - Visual Basic在彩色单元格中查找最小值和最大值
Excel 2010 - Visual Basic在彩色单元格中查找最小值和最大值
提问于 2015-01-06 05:12:01
- 我希望在excel范围内找到最小值和最大值。
- 只有在有颜色的黄色单元格中，没有颜色的单元格才会被考虑寻找最大值和最小值**。
- 颜色单元格的范围是范围A:A**
我已经编写了这段代码，但它只返回D5和E5单元中的空单元格。
，有人知道我在这里错过了什么吗？
非常感谢
编辑
我做了debug，所有变量都是空的，除了amarelosMin i_max 和之外，这两个变量的值都是2 -I，但不明白为什么。
A中的范围值从1到20，黄色值是2、3、4和5。如果代码正确，它应该给我2和5，有min和最大值。
Dim amarelosMin As Range
Dim vAmarelosmMin As Variant
ReDim vAmarelosmMin(Range("A1:A3").Rows.count - 1)
For Each amarelosMin In ActiveSheet.Range("A:A")
If amarelosMin.Interior.ColorIndex = 6 Then
i_min = LBound(vAmarelosmMin)
i_max = UBound(vAmarelosmMin)
Max = vAmarelosmMin(i_min)
Min = vAmarelosmMin(i_min)
For i = i_min + 1 To i_max
If vAmarelosmMin(i) > Max Then
Max = vAmarelosmMin(i)
ElseIf vAmarelosmMin(i) < Min Then
Min = vAmarelosmMin(i)
End If
Next
End If
Next amarelosMin
ActiveSheet.Range("C5") = "Minimo dos valores a amarelo"
ActiveSheet.Range("D5") = Min
ActiveSheet.Range("E5") = Max回答 1
Stack Overflow用户
回答已采纳
发布于 2015-01-06 06:24:36
您的问题是，您的变体数组是没有必要的，并且在循环时并没有实际存储任何值。
您可以将代码简化为这个范围循环，它也只查看A列中使用的部分，而不是每个单元格
Sub Recut
Dim amarelosMin As Range
Dim dbMin As Double
Dim dbMax As Double
dbMin = Application.Max(Range("A:A"))
dbMax = Application.Min(Range("A:A"))
For Each amarelosMin In Range([a1], Cells(Rows.Count, "A").End(xlUp))
If amarelosMin.Interior.ColorIndex = 6 Then
If amarelosMin.Value < dbMin Then
dbMin = amarelosMin.Value
Else
If amarelosMin.Value > dbMax Then dbMax = amarelosMin.Value
End If
End If
Next amarelosMin
ActiveSheet.Range("C5") = "Minimo dos valores a amarelo"
ActiveSheet.Range("D5") = dbMin
ActiveSheet.Range("E5") = dbMax
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/27799421
复制相关文章
相似问题
查找所有并删除Regedit的所有函数
在regedit中创建名称中带有“/”的密钥
获取具有字符串部分名称的所有类
获取顶层部分的名称？
按属性名称部分获取所有元素的最佳方法
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
