跨工作簿引用

lsc900707

excelqz 发表于 2018-7-9 16:07
感谢版主赐教,如果需用再引用一个工作簿，系统会提示“发现二义性的名称：Worksheet_Change”，该怎么处 ...

如果引用多个工作簿，那就先遍历工作簿呀，代码要做修改才可以。

excelqz

朱荣兴 发表于 2018-7-9 16:17
不是增加一段代码的问题而是要改变条件的问题
If Target.Address = "$B$2" Then

哦，我以为像公式一样，我自己改改就可以啦，发现VBA和函数的差距还是蛮大的，小白真是搞不定。
我重新发了一份压缩文件，您受累再帮我看下吧。感谢

excelqz

lsc900707 发表于 2018-7-9 16:19
如果引用多个工作簿，那就先遍历工作簿呀，代码要做修改才可以。

小白真是搞不定这个。自学还没到这个水平。我重新发了一份压缩文件，您受累再帮我看下吧。感谢

excelqz

两位版主，帮我再处理下代码吧，麻烦了

lsc900707

excelqz 发表于 2018-7-9 16:47
两位版主，帮我再处理下代码吧，麻烦了

不是不可以做，可这样子设计很不合理的。每个年级每个班的学生都这样设计体检表和成绩表，全校学生你弄得了吗？

excelqz

lsc900707 发表于 2018-7-9 16:55
不是不可以做，可这样子设计很不合理的。

现在是想根据【姓名】，把另外2个工作簿中的内容，完全复制过来，主要是为了后期打印。这个只是个模型，我这里的“学生”，也就几十个

excelqz

lsc900707 发表于 2018-7-9 16:55
不是不可以做，可这样子设计很不合理的。每个年级每个班的学生都这样设计体检表和成绩表，全校学生你弄得 ...

这个只是个模型，我这里的“学生”，不超过60个

lsc900707

excelqz 发表于 2018-7-9 17:11
这个只是个模型，我这里的“学生”，不超过60个

Private Sub Worksheet_Change(ByVal T As Range)
    If T.Row = 2 And T.Column = 2 Then
        p = ThisWorkbook.Path & "\"
        f = Dir(p & "*.xlsx")
        Do While f <> ""
            If f <> ThisWorkbook.Name Then
                Set wb = GetObject(p & f)
                wb.Sheets(T.Value).[a1].CurrentRegion.Offset(2).Copy Cells(3, 1 + n)
                n = n + 4
                wb.Close False:
            End If
            f = Dir
        Loop
        Set wb = Nothing
    End If
End Sub

lsc900707

excelqz 发表于 2018-7-9 17:11
这个只是个模型，我这里的“学生”，不超过60个

你要这样用我就这样写了。参考附件：