按编号按月份赋值到指定表。谢谢！

ztd123

按编号按月份赋值到指定表。谢谢！ 按月按指定编号赋值.rar (11.11 KB, 下载次数: 5)

2020-9-23 16:18 上传

点击文件名下载附件

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "D1" Then
        Application.EnableEvents = False
        For j = 4 To Cells(Rows.Count, 4).End(3).Row
            Set Rng = Sheets([d1].Text).Columns(4).Find(Cells(j, 4), lookat:=xlWhole)
            If Not Rng Is Nothing Then
                If Rng.Offset(0, 34) = "对" Then
                    Cells(j, "al") = "对"
                End If
            End If
        Next j
        Application.EnableEvents = True
    End If
End Sub

liulang0808

附件内容供参考。。。。。。

ztd123

liulang0808 发表于 2020-9-23 18:53
附件内容供参考。。。。。。

您好，不好意思，正好相反了，是总表的”对“赋值到相应月里面，谢谢您！

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "D1" Then
        Application.EnableEvents = False
        For j = 4 To Cells(Rows.Count, 4).End(3).Row
            If Cells(j, "al") = "对" Then
                Set Rng = Sheets([d1].Text).Columns(4).Find(Cells(j, 4), lookat:=xlWhole)
                If Not Rng Is Nothing Then
                    Rng.Offset(0, 34) = "对"
                End If
            End If
        Next j
        Application.EnableEvents = True
    End If
End Sub

liulang0808

这次楼主看下是否合适

ztd123

liulang0808 发表于 2020-9-24 14:45
这次楼主看下是否合适

谢谢版主，祝您节日快乐！