虫虫技术在线--技术决定出路

         在我们日常工作中，尤其是数据分析的过程中我们需要给某个单元格添加解释和批注，这样即易于理解也方便数据使用者了解数据反映的信息，我的思路是这样的通过VBA对数据的差异进行解释，即假设有两个单元格A1、B1分别存储数据，C1为两个数据的差异，我们要为C1添加批注解释差异，这里假设A1=100；B1=200；C1=A1-B1=-100，则代码如下(在EXCEL2007下测试通过):

Sub 添加批注()  
    Dim myComment As Comment            '定义对象  
      
    On Error Resume Next 
    Range("c1").Comment.Delete        '清除C1原有的批注  
 
    Set myComment = Range("C1").AddComment      '为C1添加批注  
    With myComment                              '为批注设置属性  
        .Text Text:="A1比B1多" & Range("C1").Value     '批注中的差异原因  
        .Shape.TextFrame.Characters.Font.ColorIndex = 36        '设置批注的字体颜色  
        .Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)              '设置批注的背景色  
    End With 
End Sub 

       将上面的代码复制到模块中，在工作表中添加按钮，制定宏即可！

       这里只是抛砖引玉，欢迎大家把好的方法分享出来！

        本文为虫虫技术在线原创，转载请注明出处！