[已解决]如何自动生成打印表格

xaojang

[tr] [/tr]
[tr] [/tr]
[tr] [/tr]

想达到的功能：在B2单元格输入项目名称，自动获取相关项目人员数据，生成打印表格，能否办到，请哪位高手帮忙？

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-13 11:34

内容随着B2改变，B2做了数据有效性点选。有效性与数据库动态关联。
由于是根据模板的表头内容在数据库中自动提取的，所以请注意模板的表头内容要和数据库的表头内容一致（顺序无所谓，但各项内容必须严格一致）

跳转到最佳答案楼层

grf1973

内容随着B2改变，B2做了数据有效性点选。有效性与数据库动态关联。
由于是根据模板的表头内容在数据库中自动提取的，所以请注意模板的表头内容要和数据库的表头内容一致（顺序无所谓，但各项内容必须严格一致）

dsfada

下载学习！！

xaojang

grf1973 发表于 2016-4-13 11:34
内容随着B2改变，B2做了数据有效性点选。有效性与数据库动态关联。
由于是根据模板的表头内容在数据库中自 ...

问题是解决了，非常感谢，可对VBA程序还是没懂，第一次听说字典，大概意思是把数据装入字典，再从字典装入指定表，可水平太差，理解力有限，想灵活运用就不行了，比如想把一些数据合并后再输出就完全不懂 比如把各种奖金数据合并到奖金栏目，各项补贴合并到补贴栏目等等，完全不知如何下手，另外下列语句咋理解
With Sheet2
        .[a5:aj100] = "": .[a5:aj100].Borders.LineStyle = 0
        .[b5].Resize(d.Count, 1) = Application.Transpose(d.keys)
        brr = .Range("a1:ah" & 4 + d.Count)
        For i = 5 To UBound(brr)
            brr(i, 1) = i - 4
            For j = 3 To UBound(brr, 2)
                bth = IIf(j = 3 Or j = 22 Or j = 34, 3, 4)   '表头内容所在的行（第3、22、34列表头在第3行，其余在第4行）
                x = brr(i, 2) & brr(bth, j)      '工号+各列表头为key
                brr(i, j) = d1(x)
            Next
        Next
        .Range("a1:ah" & 4 + d.Count) = brr
        r = 6 + d.Count
    End With