小白需要个小功能VBA操作

tan5820329

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row > 2 Then
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("产品资料")
        r = .Cells(Rows.Count, 1).End(3).Row
        arr = .Range("A3:E" & r)
        For i = 1 To UBound(arr)
            d(arr(i, 1)) = i
        Next
        For Each cel In Target
            If cel.Value = "" Then
                cel.Offset(, 1) = ""
                cel.Offset(, 2) = ""
                cel.Offset(, 3) = ""
                cel.Offset(, 4) = ""
                cel.Offset(, 5) = ""
            Else
                If d.exists(cel.Value) Then
                    cel.Offset(, 1) = arr(d(cel.Value), 2)
                    cel.Offset(, 2) = arr(d(cel.Value), 3)
                    cel.Offset(, 3) = arr(d(cel.Value), 4)
                    cel.Offset(, 4) = arr(d(cel.Value), 5)
                End If
            End If
        Next
    End With
End If
End Sub
各位大神，能否帮我把这段代码每行注释一下，能让小白看得差不多能修改到我自己的表里

tan5820329

为什么没有大神回复呀！！哭！哭！哭！哭！

wuxianyu86

Private Sub Worksheet_Change(ByVal Target As Range) '表格改变事件

If Target.Column = 4 And Target.Row > 2 Then '判断目标单元格是否等于第4列并且行数大于2
     Set d = CreateObject("Scripting.Dictionary") '创建字典对象
     With Sheet5 'Sheets("产品资料")
         r = .Cells(Rows.Count, 1).End(3).Row '获取 产品资料 表第一列的最后行数
         arr = .Range("A3:E" & r) '给数组arr指定表格区域
         For i = 1 To UBound(arr) '循环数组
             d(arr(i, 1)) = i '给字典赋值数据
         Next
         For Each cel In Target
             If cel.Value = "" Then '判断改变单元格的值是否为空,如果为空右边的5个单元格都清除数据，设置等于空
                 cel.Offset(, 1) = ""
                 cel.Offset(, 2) = ""
                 cel.Offset(, 3) = ""
                 cel.Offset(, 4) = ""
                 cel.Offset(, 5) = ""
             Else
                 If d.exists(cel.Value) Then '判断更改后的数据在字典中是否存在（即在 产品资料 表中的第1列是否存在），如果存在就把产品资料里面对应的右边四个数据填入
                     cel.Offset(, 1) = arr(d(cel.Value), 2)
                     cel.Offset(, 2) = arr(d(cel.Value), 3)
                     cel.Offset(, 3) = arr(d(cel.Value), 4)
                     cel.Offset(, 4) = arr(d(cel.Value), 5)
                 End If
             End If
         Next
     End With
End If
End Sub

lsc900707

tan5820329 发表于 2018-10-9 23:14
为什么没有大神回复呀！！哭！哭！哭！哭！

还是先学点基础知识吧。

tan5820329

lsc900707 发表于 2018-10-10 08:49
还是先学点基础知识吧。

我学的C#,尴尬了

tan5820329

wuxianyu86 发表于 2018-10-10 00:22
Private Sub Worksheet_Change(ByVal Target As Range) '表格改变事件

If Target.Column = 4 And Targe ...

感谢，可否留个联系方式，继续找你学习学习