高难度匹配问题，急！

riverqin

从"sheet用户"中读取用户名，根据"区域"和"范围"与"sheet角色"中"区域"和"范围"进行匹配，匹配上的把"角色"列示在sheet"分配"中。"Sheet分配"除了标题行，其它由程序自己完成。请高手帮忙，谢谢！
需求.zip (4.73 KB, 下载次数: 22)

2009-10-14 21:31 上传

点击文件名下载附件

mineshine

Sub Test()
    Dim conn As Object
    Dim sql1 As String
    Dim r1, r2 As Long
    [A2:D65536].ClearContents
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;Data Source=" & ThisWorkbook.FullName
    r1 = Sheets("用户").[A65536].End(xlUp).Row
    r2 = Sheets("角色").[A65536].End(xlUp).Row
    Sql = "select a.姓名,a.区域,a.范围,b.角色 from " & _
          "(select 姓名,区域,范围 from [用户$A1:C" & r1 & "]) a " & _
          "right join [角色$A1:C" & r2 & "] b on a.区域=b.区域 and a.范围=b.范围"
    Debug.Print Sql
    Sheets("分配").Range("A2").CopyFromRecordset conn.Execute(Sql)
    conn.Close
    Set conn = Nothing
    MsgBox "OK!", vbInformation
End Sub

zhaogang1960

短信收到，2楼ADO代码已经很巧妙了
下面是常规代码：
需求.rar (11.13 KB, 下载次数: 26)

2009-10-15 11:38 上传

点击文件名下载附件

riverqin

已经用了，谢谢两位老师，太感谢了！

riverqin

zhaogang1960 老师，没看到常规的代码，是不是上传错了。用的是2楼老师的代码。

riverqin

不好意思，是我看下载的时候保存的问题。看到代码了。再次感谢两位老师，我好好研究一下。

riverqin

需求修改成，从"sheet用户"中读取“姓名、区域、范围”，根据"范围"与"sheet角色"中"范围"进行匹配，匹配上的把"角色"列示在sheet"分配"中。"Sheet分配"除了标题行，其它由程序自己完成,最终形成的表“分配”中，“姓名、区域、范围”从“用户”带过来，“角色”从“sheet角色”中带过来。

谢谢！

mineshine

Sub Test()
    Dim conn As Object
    Dim sql1 As String
    Dim r1, r2 As Long
    [A2:D65536].ClearContents
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;Data Source=" & ThisWorkbook.FullName
    r1 = Sheets("用户").[A65536].End(xlUp).Row
    r2 = Sheets("角色").[A65536].End(xlUp).Row
    Sql = "select a.姓名,a.区域,a.范围,b.角色 from " & _
          "(select 姓名,区域,范围 from [用户$A1:C" & r1 & "]) a " & _
          "right join [角色$A1:C" & r2 & "] b on a.范围=b.范围 order by a.姓名, a.区域"
    Sheets("分配").Range("A2").CopyFromRecordset conn.Execute(Sql)
    conn.Close
    Set conn = Nothing
    MsgBox "OK!", vbInformation
End Sub

riverqin

测试了，有个问题，能不能让表“分配”读的角色，直接按“sheet角色”中的顺序读过来？

mineshine

把order by "区域"排序拿掉
    Sql = "select a.姓名,a.区域,a.范围,b.角色 from " & _
          "(select 姓名,区域,范围 from [用户$A1:C" & r1 & "]) a " & _
          "right join [角色$A1:C" & r2 & "] b on a.范围=b.范围 order by a.姓名"

[ 本帖最后由 mineshine 于 2009-10-16 10:50 编辑 ]