Excel - 更改具有最大随机选择数的单元格的颜色
Excel - Change colour of cell with max number of random selections
假设我有 200 行数据,混合了 excel 上的文本和数字,如下所示:
name | surname | dummy number | number 1 | house name | number 2 | father name | number 3
-----------------------------------------------------------------------------------------
Joe | Smith | 1 | 0.123 | Test | 0.456 | Paul | 0.789
Mark | Jones | 32 | 0.321 | Test | 0.555 | Michael | 0.777
Luke | McKenney| 12 | 0.888 | Test | 0.121 | Hank | 0.333
and so on for around 200-300 columns.
假设我想在每行中将最大数字(从数字 1/2/3 开始)设为粗体。我可以使用条件格式来做到这一点,但是因为我有很多行,所以这将花费我很长时间。
此 VBA 脚本将在活动 sheet 中第 2 行开始的每一行中加粗最大值。
Sub bold_max_in_row()
Dim r As Range
Dim c As Range
Dim max
For Each r In ActiveSheet.UsedRange.Offset(1).Rows()
max = Application.WorksheetFunction.max(r)
For Each c In r.Cells
If c = max Then c.Font.Bold = True
Next
Next
End Sub
这可以通过条件格式轻松完成。
假设数字在 D、F 和 H 列中,数据从第 2 行开始。
Select 第 2 行以下的数据行,示例数据为 A2:H4.
转到格式>条件格式...
Select 使用公式确定要设置格式的单元格。
输入这个公式。
=D2=MAX($D2,$F2,$H2)
单击“格式...”并设置所需的格式。
单击确定。
这是应用格式后提供的数据的样子。
假设我有 200 行数据,混合了 excel 上的文本和数字,如下所示:
name | surname | dummy number | number 1 | house name | number 2 | father name | number 3
-----------------------------------------------------------------------------------------
Joe | Smith | 1 | 0.123 | Test | 0.456 | Paul | 0.789
Mark | Jones | 32 | 0.321 | Test | 0.555 | Michael | 0.777
Luke | McKenney| 12 | 0.888 | Test | 0.121 | Hank | 0.333
and so on for around 200-300 columns.
假设我想在每行中将最大数字(从数字 1/2/3 开始)设为粗体。我可以使用条件格式来做到这一点,但是因为我有很多行,所以这将花费我很长时间。
此 VBA 脚本将在活动 sheet 中第 2 行开始的每一行中加粗最大值。
Sub bold_max_in_row()
Dim r As Range
Dim c As Range
Dim max
For Each r In ActiveSheet.UsedRange.Offset(1).Rows()
max = Application.WorksheetFunction.max(r)
For Each c In r.Cells
If c = max Then c.Font.Bold = True
Next
Next
End Sub
这可以通过条件格式轻松完成。
假设数字在 D、F 和 H 列中,数据从第 2 行开始。
Select 第 2 行以下的数据行,示例数据为 A2:H4.
转到格式>条件格式...
Select 使用公式确定要设置格式的单元格。
输入这个公式。
=D2=MAX($D2,$F2,$H2)
单击“格式...”并设置所需的格式。
单击确定。
这是应用格式后提供的数据的样子。