【赵刚版主已解】SQL查询与汇总_交叉表的值不是值是文本

yangkd

附件的交叉表，类似菜谱，依照彭大师常用工具6.5也不能解决，
需要如图向导式_类似ACCESS交叉表通用的列 行 值选择对话框
的形式，可以数值计算或文本字符串式选择。谢谢参与。
已多次提出求教还没有解决。类似Microsoft Query向导操作。

交叉表非数值是多文本_向导式20110614.rar (5.65 KB, 下载次数: 66)

2011-6-23 14:55 上传

点击文件名下载附件

[ 本帖最后由 yangkd 于 2011-7-18 19:15 编辑 ]

yangkd

表单格式如图

yangkd

我的问题  难啊  无人能解啊

zhaogang1960

Sub Macro1()
    Dim arr, brr(), d As Object, ds As Object, i&, s$, t$
    Set d = CreateObject("scripting.dictionary")
    Set ds = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 255)
    ReDim crr(UBound(arr))
    For i = 2 To UBound(arr)
        s = arr(i, 1)
        If Not ds.Exists(s) Then
            n = n + 1
            ds(s) = n
        End If
        t = arr(i, 2)
        If Not d.Exists(t) Then
            m = m + 1
            d(t) = m
            brr(m, 0) = arr(i, 2)
        End If
        If Len(brr(d(t), ds(s))) Then brr(d(t), ds(s)) = brr(d(t), ds(s)) & "," & arr(i, 3) Else brr(d(t), ds(s)) = arr(i, 3)
    Next
    [a17].CurrentRegion.ClearContents
    [a17] = "部品"
    [b17].Resize(, n) = ds.keys
    [a18].Resize(m, n + 1) = brr
End Sub

zhaogang1960

我对“ACCESS交叉表”没有概念，用的是字典+数组方法
请看附件：
交叉表非数值是多文本_向导式20110614.rar (12.14 KB, 下载次数: 139)

2011-7-13 16:38 上传

点击文件名下载附件

jygzcj

数组与字典的专家啊

thtfzhaobo

彭版的工具应该可解，你用的功能不对

yangkd

请指教 用gif动画演示看看吧 谢谢

yangkd

附件已经仔细阅读，不过当项目添加的时候，生成的交叉表就会覆盖数据。
故请求更改：
1.项目不能限制在提供的数量上，可以扩展到无限多行；
2.新表生成交叉表，不在原来的基础数据表里生成交叉表；
3.两种方式：重复项保留，重复项删除运行，按钮设置两个或提示勾选；
4.后续考虑的了，能一次搞定更好！也就是：
   行 列  交差值可以自由的选择，向导方式运行！
   谢谢，请在百忙中研究费心解决为盼！

[ 本帖最后由 yangkd 于 2011-7-14 13:10 编辑 ]

zhaogang1960

原帖由 yangkd 于 2011-7-14 13:08 发表
附件已经仔细阅读，不过当项目添加的时候，生成的交叉表就会覆盖数据。
故请求更改：
1.项目不能限制在提供的数量上，可以扩展到无限多行；
2.新表生成交叉表，不在原来的基础数据表里生成交叉表；
3.两种方式： ...

我对这个东西概念不太清楚，请把你的打算用窗体设计出来，分析一下