使用vba生成汇总多个工作簿的多工作表数据透视表SQL命令文本[46楼有更新]

zhaogang1960

win2009 发表于 2012-10-27 14:07
请问版主，我这个复选框全选全清 代码通不过，为什么，模仿你的那个做的
下面是  爱歌版主做的加载宏，我想 ...

只有一个加载宏，使用环境是什么？

win2009

zhaogang1960 发表于 2012-10-27 14:48
只有一个加载宏，使用环境是什么？

那个加载宏就是生成代码和数据结果用的，我想加入4个复选框，就是加入
列表框顶上那个小方框，勾选后，下面的列表框里的复选框就全选定，否则全清除下面附件，是这个加载宏生成的汇总，原来这个加载宏没有窗体顶部的4个复选框
我想加上，代码在加载宏窗体7的代码区顶部
我要找姓名张三4.rar (9.88 KB, 下载次数: 42)

2012-10-27 14:58 上传

点击文件名下载附件

win2009

这个加载宏加载后，在  加载项    里点击：

多字段分类汇总－类数据透视表格式，进入后，两个框都选表1，继续，就进入图片所示

zhaogang1960

win2009 发表于 2012-10-27 15:11
这个加载宏加载后，在  加载项    里点击：

多字段分类汇总－类数据透视表格式，进入后，两个框都选表1， ...

1. Private Sub CheckBox1_Click()    '全选CheckBox 通不过
   
2.     With ListBox_Sum
   
3.         If CheckBox1.Value Then
   
4. '            For i = 1 To .ListItems.Count
   
5.             For i = 0 To .ListCount - 1
   
6. '                .ListItems(i).Checked = True
   
7.                 .Selected(i) = True
   
8.             Next
   
9.         Else
   
10. '            For i = 1 To .ListItems.Count
    
11.             For i = 0 To .ListCount - 1
    
12. '                .ListItems(i).Checked = False
    
13.                 .Selected(i) = False
    
14.             Next
    
15.         End If
    
16.     End With
    
17. End Sub
    

复制代码

win2009

zhaogang1960 发表于 2012-10-27 15:30

多谢斑竹，实现了，好高兴，哈哈

'学习一下
'注：只翻译【最佳答案】和【疑问】帖
Private Sub CheckBox1_Click()   
    With ListBox_Sum
        If CheckBox1.Value Then
            For i = 0 To .ListCount - 1
                .Selected(i) = True
            Next
        Else
            For i = 0 To .ListCount - 1
                .Selected(i) = False
            Next
        End If
    End With
End Sub

私有的 过程 复选框1单击()   
    工作于 listbox_sum
        如果 复选框1 . 值 那么
            循环范围 i = 0 到  . 列表项数量 - 1
                 . selected(i) = 真
            下一句
        否则
            循环范围 i = 0 到  . 列表项数量 - 1
                 . selected(i) = 假
            下一句
        结束 如果
    结束 工作于
结束 过程

Private Sub CheckBox100_Click() '全选工作表
    With ListView1
        If CheckBox100.Value Then
            For i = 1 To .ListItems.Count
                .ListItems(i).Checked = True
            Next
        Else
            For i = 1 To .ListItems.Count
                .ListItems(i).Checked = False
            Next
        End If
    End With
End Sub

ae9480

好东西，这个实例做得好，跟工作联系得上，下载学习，多谢楼主！

ae9480

正愁SQL代码烦，这下好了，点几下就出来了。谢谢赵老师！

houjinlai008

看看，学习一下

kuangben8

楼主的VBA代码功力令人叹服！

山英子啊

求助：某工作簿下有多张表，每表下有不连续的多行数据的A/B/C/D/F/G/列值数据相同，E列值（数量）不同，批量如何将这些表下不同行的A/B/C/D/F/G/列值合并为一行，并将E列值（数量）累加后在该行显示。其余无合并动作的行照原样列表。请仍在各分表下处理，不需将各分表合并。