VBA实现表一数据从表二中引用，谢谢，很急。

zhoujyt

如附件，表一中有一列“项目”，单元格都要设置为可选的，可选的选择项来自于表格二中当姓名为张三时的项目值。
当表二中张三对应的项目变化时，表一也跟着变化。
VBA代码不知道怎么写，多谢了。目前刚开始学习VBA。工作需要，这个需求还不会写。

zhoujyt

而且表二不是打开的，是关闭的状态，

zhoujyt

没人回复，已自己搞定了。跟附件的表格不是一样的，复制了自己工作用的表格里写的代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 6 Or Target.Row < 3 Then Exit Sub '说明是哪列哪行开始需要设置数据有效性
    Dim cnn As Object
    Dim SQL As String, i&, aa
   
   
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.Ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.Path & "\项目里程碑2018.xlsx"
    SQL = "Select * from [项目里程碑$]"
    '通过数据库链接到数据有效性序列要引用的表格
   
    arr = cnn.Execute(SQL).GetRows
   
    For i = 0 To UBound(arr, 2)
    If arr(8, i) Like "*张三*"  Then
   
       aa = aa & arr(4, i) & ","
      
       End If
        
    Next
    aa = Left(aa, Len(aa) - 1)
    cnn.Close
    Set cnn = Nothing
   
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=aa
  
    End With
End Sub

不知道为什么

zhoujyt 发表于 2018-8-16 14:10
没人回复，已自己搞定了。跟附件的表格不是一样的，复制了自己工作用的表格里写的代码。
Private Sub Work ...

不错不错，新人能有自己解决问题的能力还是很赞的 &#128077;