在Excel条形图的数据表中突出显示最大条目

时间:2018-12-17 11:06:30

标签: excel vba bar-chart excel-2016

我有一个excel条形图,其中显示了数据表,如下图所示。

Excel bar chart with data table

我想突出显示每一列的最大字体。例如,我们可以在单独的数据表中进行操作,如下图所示。

enter image description here

1 个答案:

答案 0 :(得分:1)

将代码导入模块:

  1. 打开Excel
  2. 按ALT + F11
  3. 插入
  4. 模块
  5. 粘贴以下代码。

注释:

  • 如果“ Option Explicit”已经存在,请避免粘贴。
  • 该表必须从A1开始导入到Sheet1中。

    Option Explicit
    
    Sub Test()
    
    Dim Lastrow As Long, LastColumn As Long, i As Long, MaxValue As Long
    
    With ThisWorkbook.Worksheets("Sheet1")
    
        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
        For i = 2 To LastColumn
            MaxValue = Application.Max(.Range(.Cells(2, i), .Cells(Lastrow, i)))
                For j = 2 To Lastrow
                    If .Cells(j, i).Value = MaxValue Then
                        .Cells(j, i).Font.Bold = True
                        Exit For
                    End If
                Next j
    
        Next i
    
    End With
    
    End Sub
    

输出: enter image description here