在Excel中如何在Visual Basic中设置单元格上方的选定内容？

Sub SetCellComment()
    Dim rng As Range
    Dim comment As Comment
    
    ' 设置要操作的单元格范围
    Set rng = Range("A1")
    
    ' 检查单元格是否已经有注释，如果有则删除
    If Not rng.Comment Is Nothing Then
        rng.Comment.Delete
    End If
    
    ' 添加新的注释
    Set comment = rng.AddComment
    comment.Text "这是一个示例注释"
    
    ' 设置注释显示在单元格上方
    comment.Shape.Top = rng.Top
    comment.Shape.Left = rng.Left
    comment.Shape.Width = rng.Width
    comment.Shape.Height = rng.Height
    
    ' 设置注释的格式
    comment.Shape.TextFrame.Characters.Font.Name = "Arial"
    comment.Shape.TextFrame.Characters.Font.Size = 10
    
    ' 设置注释的背景颜色
    comment.Shape.Fill.ForeColor.RGB = RGB(255, 255, 0) ' 黄色
    
    ' 设置注释的边框颜色和粗细
    comment.Shape.Line.ForeColor.RGB = RGB(0, 0, 0) ' 黑色
    comment.Shape.Line.Weight = 1 ' 粗细为1
    
    ' 设置注释的显示方式
    comment.Shape.TextFrame.AutoSize = True
    
    ' 设置注释的可见性
    comment.Visible = True
End Sub