Question

在Excel表格里，有没有一个方法，在一个一个工作表之间建立联系。求大神解答🙏&#

在Excel表格里，有没有一个方法，在一个一个工作表之间建立联系。求大神解答🙏🙏🙏在好多工作表的同一个单元格内，不能重复添入相同的内容。比如，工作表1的A1和工作表2的A1不能重复添“百度知道”这个相同的词。

提示该问答中所提及的号码未经验证，请注意甄别。

Answer 1

答：

1、Alt+F11，打开VB编辑器，插入一个"类模块"，复制下面代码。

Public WithEvents XL As Application
Private Sub XL_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Cnt As Long
    If IsEmpty(Target) Then Exit Sub
    For Each sht In Worksheets
        If Not sht Is Sh Then
            If sht.Range(Target.Address) = Target Then
                Cnt = Cnt + 1
            End If
        End If
    Next
    If Cnt > 0 Then MsgBox "存在重复值", vbCritical, "提示"
End Sub

2、再插入一个“模块”（注意是普通模块），复制下面代码。

Dim X As New 类1
Sub TestEvents()
    Set X.XL = Excel.Application
End Sub
Sub StopEvents()
    Set X.XL = Nothing
End Sub

3、运行“TestEvents”这个程序，就有你想要的效果。运行"StopEvents"，则停止该监视功能。

追问

怎么样运行这些程序啊？

大神