能帮我解释一下这些代码的意思吗，每一个部分解释一下，谢谢啦

发布网友发布时间：2023-11-20 03:01

共1个回答

热心网友时间：2024-12-05 22:46

Private Sub Worksheet_Change(ByVal Target As Range)
'定义VBA，并规定了该VBA只能作用于工作表，并随时监控工作表的变化

If Target.Address(0, 0) = "A2" And [a2] <> "" Then
'目标地址。

Application.ScreenUpdating = False
'屏蔽刷屏

Application.DisplayAlerts = False
'关闭EXCEL的提示框，操作EXCEL时，经常会弹出提示。【见下】

With Workbooks.Open("F:\B\dg.xls")
'打开赋值

If .Worksheets(1).Columns("A").Find(Me.[a2], lookat:=xlWhole) Is Nothing Then
.Worksheets(1).[a65536].End(3).Offset(1) = Me.[a2]
'为了增加代码的可读性，End(3)改为end(xlUP)较好

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com