|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Cells.Count <> 1 Then Exit Sub
- Dim cvalue As String
- If Target.Formula = " " Then
- cvalue = "空"
- Else
- cvalue = Target.Formula
- End If
- If rngvalue = cvalue Then Exit Sub
- Dim rngcom As Comment
- Dim comstr As String
- Set rngcom = Target.Comment
- If rngcom Is Nothing Then Target.AddComment
- comstr = Target.Comment.Text
- Target.Comment.Text text:= comstr&chr(10) & format(now( ),"yyyy-mm-ddhh:mm") & "原内容:" & rngvalue & "修改为:" & cvalue
- end sub
复制代码
以上是按照书中[5.2.7用批注记录单元格中数据的修改情况]的部分代码,完全按照书上的内容打的,但是一直提示Target.comment.text Text:= ……这一行缺少语句结束,请问是什么原因? |
|