求一段代码的解释

amd001

在论坛看到以下代码，当前效果是在A列输入值后，自动在B列对应的单元格输入当前日期和时间，并且保护工作表禁止修改

如果我想修改成在A列输入数值，B列自动输入日期后，不保护，当D列输入数字，E列自动输入日期后，再对工作表进行禁止修改的保护，需要如何修改以下代码？ 哪段是控制判定当期单元格是否有数值的语句呀。。。（自己尝试改了一下，发现怎么改都是只有在A列数值，代码才起作用。。。。）


Private Sub Worksheet_Change(ByVal Target As Range)
        If Range("a1").Locked = True Then
    If Range("a1") = "" Then
    Cells.Select
    Selection.Locked = False
    Columns("B:B").Select
    Selection.Locked = True
    End If
    End If
    Me.Unprotect ("123") '撤销工作表保护
    If Target <> "" And Target.Offset(, 1).Column = 2 Then
        Target.Locked = True '锁定单元格
        Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd h:mm")
    End If
    If Target <> "" And Target.Column > 2 Then
    Target.Locked = True
    End If
    Me.Protect ("123") '保护工作表
End Sub

amd001

自己顶一下~~~~

duquancai

工作表事件程序，解释完毕！

amd001

duquancai 发表于 2017-11-23 16:48
工作表事件程序，解释完毕！

=。=~~~~等于木有解释哈。。。。。

fyure

带target的语句这边开始是写值的。要达到你说的效果加个判断即可

Select Case Target.Column
   Case 1    'A列写值
        ..........
        Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd h:mm")
        Me.Unprotect ("123")    '不保护
    Case 4  ’D列写值
     .........
     Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd h:mm")
    Me.Protect ("123")  ‘保护               
   Case Else   ’其他列则不执行
     Exit Sub
   End Select

microyip

duquancai 发表于 2017-11-23 16:48
工作表事件程序，解释完毕！

简练、精辟，一言蔽之

huang1314wei

解释了又能怎么样呢，如果没有基础，解释了你也不一定能写出来，有基础，不用解释自然看得懂

amd001

huang1314wei 发表于 2017-11-23 22:02
解释了又能怎么样呢，如果没有基础，解释了你也不一定能写出来，有基础，不用解释自然看得懂

鲁迅说的，天下文章一大抄。。。。。。代码可以找人代写，思路才是最重要啊。。。。

翻书翻了半天。。。。

amd001

5楼的办法不行也。。。。

beijiren368

还是从基础学习吧