[已解决]根据用户选择的单元格，高亮最大、最小值所在的行

yuhaoqq

VBA，运行后，首先需要用户选择几个单元格（可能连续也可能分散，但都在同一列），用户确定后，高亮出最大、最小值所在行。找了很多资源，代码还是不会写。求大家帮帮忙，本人实习生，这个对我很重要，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2016-8-25 15:27

试试看是不是这样

1. Sub XXX()
   
2. Dim Rng As Range, iMax As Range, iMin As Range
   
3. Set iMax = Selection(1): Set iMin = iMax
   
4. For Each Rng In Selection
   
5.     Set iMax = IIf(Rng.Value > iMax.Value, Rng, iMax)
   
6.     Set iMin = IIf(Rng.Value < iMin.Value, Rng, iMin)
   
7. Next
   
8. iMax.Interior.Color = vbGreen
   
9. iMin.Interior.Color = vbYellow
   
10. End Sub

复制代码

跳转到最佳答案楼层

爱疯

建议上传 excel 文件，举一个例子说明

gufengaoyue

试试看是不是这样

1. Sub XXX()
   
2. Dim Rng As Range, iMax As Range, iMin As Range
   
3. Set iMax = Selection(1): Set iMin = iMax
   
4. For Each Rng In Selection
   
5.     Set iMax = IIf(Rng.Value > iMax.Value, Rng, iMax)
   
6.     Set iMin = IIf(Rng.Value < iMin.Value, Rng, iMin)
   
7. Next
   
8. iMax.Interior.Color = vbGreen
   
9. iMin.Interior.Color = vbYellow
   
10. End Sub

复制代码

yuhaoqq

gufengaoyue 发表于 2016-8-25 15:27
试试看是不是这样

非常感谢！！

yuhaoqq

爱疯 发表于 2016-8-25 15:26
建议上传 excel 文件，举一个例子说明

不好意思，公司的电脑不能上传东西。

yuhaoqq

gufengaoyue 发表于 2016-8-25 15:27
试试看是不是这样

怎么清除高亮啊？

gufengaoyue

试试
sub 清除高亮()
selection.interior.color = xlnone
end sub

yuhaoqq

gufengaoyue 发表于 2016-8-25 15:57
试试
sub 清除高亮()
selection.interior.color = xlnone

再次感谢，以前只学过C，前段时间才开始学VB，这几天接触VBA，有点力不从心了。vba有点复杂

su45

解决了，就给评个最佳哟！