+ -
当前位置:首页 → 问答吧 → 在线求助老师,vba在单元格插入批注难题

在线求助老师,vba在单元格插入批注难题

时间:2011-08-07

来源:互联网

我想在sheet1.[a2]单元格插入批注,并且显示出批准的内容来,批准的内容为“注意B5单元格的数值是否正确”,批准的背景色设置为浅黄色。请问老师此代码如何写?

作者: 7016427   发布时间: 2011-08-07

复制内容到剪贴板
代码:
Sub Macro1()
    Range("A2").Select
    With Selection
        .ClearComments
        .AddComment.Text Text:="注意B5单元格的数值是否正确"
        .Comment.Visible = True
    End With
    Range("A2").Comment.Shape.Select True
    With Selection.ShapeRange
        .Fill.Visible = msoTrue
        .Fill.ForeColor.SchemeColor = 13
    End With
    Range("A2").Select
End Sub

作者: 蓝桥玄霜   发布时间: 2011-08-07

请见附件。

附件

批注0807.rar(8.96 KB)

2011-8-7 09:56, 下载次数: 3

作者: 蓝桥玄霜   发布时间: 2011-08-07

你好!如果还有把批准字体设为红色字体,怎么改法?

作者: 7016427   发布时间: 2011-08-07

你好!如果我想把批注字体设为14号,字体的颜色设为红色,又如何修改以上代码?

作者: 7016427   发布时间: 2011-08-07

Range("a2").Comment.Shape.TextFrame.Characters.Font.Size = 14
    Range("a2").Comment.Shape.TextFrame.Characters.Font.ColorIndex = 3

作者: doitbest   发布时间: 2011-08-07

非常感谢!!!

作者: 7016427   发布时间: 2011-08-07

本来是该版主回答的,我钻了个空

作者: doitbest   发布时间: 2011-08-07

谢谢各位老师!!

作者: 7016427   发布时间: 2011-08-07

相关阅读 更多