vba为每行中最小值单元格添加背景颜色
来源:互联网 发布:安卓看图软件哪个好 编辑:程序博客网 时间:2024/06/15 13:33
Sub laolao()
Dim rols, role, cols, cole '根据情况修改这四个参数
rols = 2 '数据开始行
role = 20 '数据结束行数
cols = 2 '数据开始列
cole = 20 '数据结束列数
Cells.Select '选中全部并清除背景
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Do While (rols < role) '当行数大于最大行时退出循环
Dim colIndex, tempValue 'colindex记录列号,tempValue记录最小值
colIndex = cols
tempValue = 999999999 ' Cells(rols, cols).Value为防止第一列为空值不处理的问题,所以为初始值初始化为999999999
tempCol = colIndex 'tempCol记录最小值的列号
Do While (colIndex < cole) '当列数大于最列退出循环
If (Cells(rols, colIndex).Value < tempValue And Cells(rols, colIndex).Value <> "") Then '当前单元格的值小于前面的最小值,且不等于空
tempValue = Cells(rols, colIndex).Value '当前单元格的值小于前面的最小值,就把最小值设为当前列的值
tempCol = colIndex '记录最小值的列号
End If
colIndex = colIndex + 1
Loop
If (Cells(rols, tempCol).Value <> "") Then '但最小值所在的单元格等于空,不加背景色
Cells(rols, tempCol).Select '选中最小值的单元格
With Selection.Interior
.Color = 65535 '着色
End With
End If
colIndex = cols
Do While (colIndex < cole) '本循环为全部等于最小值的单元格着色,当列数大于最列退出循环
If (Cells(rols, colIndex).Value = tempValue And Cells(rols, colIndex).Value <> "") Then '当前单元格的值小于前面的最小值,且不等于空
Cells(rols, colIndex).Select '选中最小值的单元格
With Selection.Interior
.Color = 65535
End With
End If
colIndex = colIndex + 1
Loop
rols = rols + 1
Loop
End Sub
- vba为每行中最小值单元格添加背景颜色
- vba为每行中最小值单元格添加背景颜色
- EXCEL-VBA:根据单元格字体、背景颜色计数、求和
- excel VBA对特定背景颜色的单元格进行赋值
- 批量修改单元格中单个字符的颜色(VBA)
- 用VBA改变单元格中固定字符的颜色
- VBA:设置单元格是否填充单元格颜色
- 用VBA实现Excel中某单元格不能为空
- VBA 合并单元格 选定单元格添加边框
- 设置excel表格中单元格中的背景颜色
- 为vc按钮添加背景颜色和字体颜色
- POI 设置单元格背景颜色
- POI 设置单元格背景颜色
- html设置单元格背景颜色
- POI 设置单元格背景颜色
- POI设置单元格背景颜色
- POI获取单元格背景颜色
- VBA 宏 匹配以及单元格颜色
- Windchill8.0中checkOut,checkIn,undoCheckout
- 常用字符串/文件名函数
- 一个经典的ADO.NET入门例子
- prototype.js常用函数及其用法
- Java开源 报表制作
- vba为每行中最小值单元格添加背景颜色
- 完美的木马病毒防护解决方案
- MFC之时间相关类CTime和CTimeSpan
- start *.exe
- http://blog.csdn.net/maomi01/archive/2005/11/21/533969.aspx
- 数据表中替换
- 微软解决方案框架(MSF) -- MSF过程模型
- 使用VBA操作word
- 验证输入