(细节百度如何使用宏)
'日期:2019-11-19
'作者:Excel办公实战-小易
'功能: 记录单元格变化 , 并写入批注
'------------------------------------------------
Option Explicit
Public oldValuePrivate
Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
'A1:G16-----为数据区域,可以自行修改
If Not Intersect(Target, Range("A1:G16")) Is Nothing Then
If oldValue <> Target.Value Then
If Target.Comment Is Nothing Then
Target.AddComment Format(Now, "yyyy-mm-dd hh:mm:ss") _
& " " & oldValue & "->" & Target.Value
Else:
With Target.Comment
.Text Text:=.Text & vbNewLine & _
Format(Now, "yyyy-mm-dd hh:mm:ss") & " " _
& oldValue & "->" & Target.Value
.Shape.TextFrame.AutoSize = True
End With
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oldValue = Target.ValueE
End Sub
小结:初学的时候,以为Excel只是一个数值计算器,到后知道原来可以使用SUM,好厉害!再来发现了VLOOKUP,慢慢的才发现原来比计算器厉害多了!
到现在利用宏可以实现大部分有逻辑的功能,但是Power BI又出来了~~~~~
路漫漫其修远兮~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
联系客服