[分享]工作表按条件分开！(可以为表内，也可为表外）2005-10-21更新

wh7806 · 发表于 2005-6-10 14:46

谢谢!

好男的 · 发表于 2005-6-10 15:34

好用，但我还不知如何做，收藏了，谢谢。

3ddesign · 发表于 2005-6-10 17:18

非常感谢！！！

xthand · 发表于 2005-6-10 19:31

学到了好多东西，怎么一个好字，自己也做过一些报表，里面的方法真是好，比如查找最后一行，

想问一下，工作表里的那个“按钮”是不是一个文本框？如果真是外控件按钮怎么没在宏里面显示出来

ynztwxqy · 发表于 2005-6-20 17:38

顶...............................................................

...............................................................................................................................................................................................

顶

shuyee · 发表于 2005-6-22 16:24

表内表外,实在分不清.至于生成新表,建议用odbc做.再就是connection,这个集合,我是第一次看到,谢谢.不过这里似乎用途不大.生成一个关键字数组不好么?以下给出odcb代码,在原程序中可以调用: call tt(h(i).value)

Sub tt(check As String) 'check = "程荣" Dim workN$, shN$, NewConn$, NewComm$ workN = ActiveWorkbook.FullName shN = "总表 (2)$" ActiveWorkbook.Worksheets.Add --如果对工作表顺序有要求,在这改. NewConn = "ODBC;DSN=Excel Files;DBQ=" & workN & ";DefaultDir=C:\Temp;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" NewComm = "SELECT * FROM `" & workN & "`.`" & shN & "` A WHERE (A.姓名='" & check & "')" With ActiveSheet.QueryTables.Add(Connection:=NewConn, Destination:=Range("A1")) .CommandText = NewComm .Name = check .Refresh BackgroundQuery:=False End With ActiveSheet.Names(check).Delete ActiveSheet.Name = check End Sub

Long_III · 发表于 2005-6-22 17:39

先谢谢shuyee兄的指导！

这是很早以前做的一个了，也是在大家帮助下做的，由于我学习VBA的时间很短，所以代码也就不是很简洁，对于用集合取不重复值，现在也觉得运算速度相对较慢，可用UNARTHUR兄的方法放入内存数组中计算，提速不少

对于你所说“odbc”及给出的代码，我从未学过，也只是最近才略知一二，我有空会好好学习的，代码先收下了！！！

这个帖子就技术含量而言，可以说一点都没有，主要是相对较实用，很多人都碰到类似的问题，而那时我还处于入门阶段，版主为了鼓励就给了个精，相对其他精贴差远了。

有时间我会重新修改一下原代码，尽量做的好一点！再次谢谢shuyee兄及各位朋友！

anjing572 · 发表于 2005-7-3 13:56

请问,我的汇总表的表头有4行,在分表后每个分表都要有这4行该怎么做呀??请教.

j7g3Xeta.rar (10.49 KB, 下载次数: 63)

qqboy1 · 发表于 2005-7-3 16:18

Long_III 兄：

我一直把你当老师看的，向老师学习！！

anjing572 · 发表于 2005-7-4 21:26

请帮忙解决一下第 98 楼的问题吧!谢谢[em09]

		自动登录	找回密码
密码			免费注册