用批注记录单元格修改情况

sxo

问题：标注黄色背景代码的地方不理解。target.text和target.value及target.formula区别是什么，可以替换吗？为什么变量cvalue=target.formula而不是cvalue=target.text.

源代码：

Dim RngValue As String '定义一个模块给变量，用于保存单元格中的数据
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub '选中多个单元格时退出程序
If Target.Formula = "" Then '根据选中的单元格内容给变量RngVaue赋值
RngValue = "空"
Else
RngValue = Target.Text
End If
End Sub

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 '定义一个批注类型的变量，名称为RngCom
Dim ComStr As String '定义变量ComStr，用来保存批注的值
Set RngCom = Target.Comment '将被修改单元格的批注赋给变量RngCom
If RngCom Is Nothing Then Target.AddComment '如果单元格中没有批注则新建批注
ComStr = Target.Comment.Text '将批注的内容保存到变量ComStr中
'----重新修改批注的内容＝原批注内容+当前日期和时间+原内容+修改后的新内容
Target.Comment.Text Text:=ComStr & Chr(10) & _
Format(Now(), "yyyy-mm-dd hh:mm") & _
" 原内容:" & RngValue & _
"修改为: " & Cvalue
Target.Comment.Shape.TextFrame.AutoSize = True '根据批注内容自动调整批注大小
End Sub

lisongmei

Formula是当有公式的时候返回公式，没有公式的时候返回字符串型value，text是返回显示值，比如你设置了格式显示的值

sxo

lisongmei 发表于 2022-2-10 18:57
Formula是当有公式的时候返回公式，没有公式的时候返回字符串型value，text是返回显示值，比如你设置了格式 ...

text返回显示值？听不懂，能举例吗？

梦幻的流星

text所见即所得，value是返回实际的值

lisongmei

sxo 发表于 2022-2-11 08:52
text返回显示值？听不懂，能举例吗？

看4楼......

sxo

代码中RngCom变量是否必要？

夏天的风shh4695

楼主的代码，批量复制粘贴的情况、用公式算出来的情况没有考虑到。

么嗷猫

夏天的风shh4695 发表于 2022-2-11 12:12
楼主的代码，批量复制粘贴的情况、用公式算出来的情况没有考虑到。

对的，对的，有办法解决么？