[求助] VBA书中5.2.7处案例出现缺少语句结束

Likulau

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.         If Target.Cells.Count <> 1 Then Exit Sub
   
3.         Dim cvalue As String
   
4.         If Target.Formula = " " Then
   
5.                 cvalue = "空"
   
6.         Else
   
7.                 cvalue = Target.Formula
   
8.         End If
   
9.         If rngvalue = cvalue Then Exit Sub
   
10.         Dim rngcom As Comment
    
11.         Dim comstr As String
    
12.         Set rngcom = Target.Comment
    
13.         If rngcom Is Nothing Then Target.AddComment
    
14.         comstr = Target.Comment.Text
    
15.         Target.Comment.Text text:= comstr&chr(10) & format(now( ),"yyyy-mm-ddhh:mm") & "原内容：" & rngvalue & "修改为：" & cvalue
    
16. end sub

复制代码

以上是按照书中[5.2.7用批注记录单元格中数据的修改情况]的部分代码，完全按照书上的内容打的，但是一直提示Target.comment.text Text:= ……这一行缺少语句结束，请问是什么原因？

Likulau

非常抱歉！comstr&chr(10)的&符号前后空格搞掉了……
------------------------------此帖终结--------------------------------------------