[已解决][求助]VBA批注的小问题 很简单的 谢谢大家

o164159147

ib5O984r.rar (7.24 KB, 下载次数: 1)

2009-10-17 15:34 上传

点击文件名下载附件
[求助]VBA批注的小问题 很简单的 谢谢大家
下载就去 我有写的 刚刚接触 是简单的问题 呵呵！

最佳答案

月排行榜 / 总排行榜

amulee

2009-10-17 15:55

Sub Macro1()
'
' Macro1 Macro
' 宏由 USER 录制，时间: 2009-10-17
Dim b, a

 With ActiveCell
If .Comment Is Nothing Then

a = InputBox("请输入批注内容", "填写批注")

    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=a
    Else
    b = .Comment.Text
   a = InputBox("此单元格已有的批注", "请输入批注内容", b)
   .Comment.Delete
  
    .AddComment
    .Comment.Visible = False
   .Comment.Text Text:=a
   
  End If
  End With
 
End Sub

跳转到最佳答案楼层

fjmxwrs

没明白什么意思，不会，来学习的

[此贴子已经被作者于2009-10-17 15:40:21编辑过]

o164159147

很容易理解的呀 ！ 就是想不要只改 单元格 C5 的批注 

 如果鼠标点到 C4 就可以改 C4 的批注

amulee

Sub Macro1()
'
' Macro1 Macro
' 宏由 USER 录制，时间: 2009-10-17
Dim b, a

 With ActiveCell
If .Comment Is Nothing Then

a = InputBox("请输入批注内容", "填写批注")

    .AddComment
    .Comment.Visible = False
    .Comment.Text Text:=a
    Else
    b = .Comment.Text
   a = InputBox("此单元格已有的批注", "请输入批注内容", b)
   .Comment.Delete
  
    .AddComment
    .Comment.Visible = False
   .Comment.Text Text:=a
   
  End If
  End With
 
End Sub