|
网络发烧友
|
1#
大 中
小 发表于 2007-3-27 18:04 只看该作者
数据分类汇总，一键轻松搞定
对于大型的数据表要进行分类汇总，以前我采用“自动筛选”的办法来实现的，但这样既麻烦，又容易出现错误。经过摸索，发现用“宏”可以实现批量筛选和打印，一键搞定了分类汇总和打印！
" k9 L) h& }1 F0 A5 i8 D
- r/ f- ]2 X# g7 L9 H0 hbbs.163k.com 一、数据汇总 163K网站系统官方论坛 }- L- N7 P X$ n8 F
6 k2 o9 s2 }; l5 g
选中f1002单元格（此处假定有1000条数据），输入公式：=subtotal(9,f3:f1002)，确认一下，统计出“面积”总和。然后再次选中f1002单元格，将鼠标移至该单元格右下角，成细十字线状时，按住左键向右拖拉至h1002单元格，将上述公式复制到h1002单元格中，统计出“造价”总和。
; \& @6 m" W& i' W- Dbbs.163k.com
$ W! }& m& e- m" ]2 F7 E( q团购网站系统,团购网程序 小提示：修改函数“subtotal”中的第一个参数（“9”），可以实现求平均（average—1）、计数（count—2）等统计目的（具体请看该函数的帮助）。 163K网站系统官方论坛/ t8 G i9 V: ]0 v
9 t+ \. E1 N! q% e D# x
二、编辑宏
; g4 a5 _9 @2 y8 c- h为互联网事业发展提供源动力！bbs.163k.com5 G8 D1 r6 C3 q0 W i1 E$ Q# b
切换到sheet2工作表中，在a1至a10单元格中输入工程“类型”名称（此处的“1”和“10”与下述代码中的循环起、止数值相同，如图1）。按下“alt+f11”组合键，进入“visual basic编辑”状态，执行“插入模块”命令，插入一个新模块（“模块1”）。将下述代码输入到“模块1”右侧的编辑区域中： 163k团购网站系统官方服务论坛" ?6 q& `, b& |( `$ s# F j
3 B8 X7 d0 z9 sbbs.163k.com * H6 d6 v2 b) ~1 @) o! h% k/ |
 团购网站系统,团购网程序+ P# Q# h- Z- k
5 N' g0 x, d- ~+ O# j H1 @6 X1 mbbs.163k.com
8 b5 S3 s) y; Z8 c/ n% u7 |/ D为互联网事业发展提供源动力！ 小提示：在上述代码中，每一行英文单引号“'”及其后面的字符，是对代码的解释，在实际输入时可不输入。
2 p4 l5 P& {( g团购网站系统,团购网程序团购网站系统,团购网程序" y. E5 H$ l1 u6 `% l6 j$ f
输入完成后，关闭“visual basic编辑”窗口，返回工作表中。 163K网站系统官方论坛! f- ~9 ~1 n1 m& o S+ ~
163K网站系统官方论坛# Q( a* P$ x7 Y; [% |3 }
三、制作按钮 163k团购网站系统官方服务论坛( u3 B% I: T h, c: z/ {4 |
bbs.163k.com0 I* T1 x) S8 \+ b7 N6 s/ H7 A
执行“视图工具栏控件工具箱”命令，展开“控件工具箱”（图2），单击“工具箱”中的“命令按钮”按钮，然后在表格中拖拉出一个按钮来。右击刚才添加的按钮，在随后弹出的快捷菜单中，选择“属性”选项，展开“属性”对话框。切换到“按分类序”标签下，展开“外观”选项，将“caption”选项后面的字符修改为“分类打印”。再展开“杂项”选项，将“printobject”选项设置为“false”，设置完成后，关闭“属性”对话框。
" K& i, x1 O2 K2 N7 x, G) kbbs.163k.com163K网站系统官方论坛& L9 W, \/ h3 C
为互联网事业发展提供源动力！0 `* j1 \4 n( U& n" R6 z
" Y3 N- i ]* `163K网站系统官方论坛
4 j# [& H7 J1 B t9 }! V. W8 ^为互联网事业发展提供源动力！163K网站系统官方论坛* Y) s% {3 W. y/ i0 }9 |
小提示：将“printobject”选项设置为“false”的目的是：在打印时，该按钮不被打印出来；否则（设置成true）按钮会打印到纸张上，影响表格效果。
4 f" k8 x S. c# \& j163K网站系统官方论坛' U P c8 Q6 S* l
双击刚才添加的命令按钮，再次进入“visual basic编辑”状态，将下述代码输入右侧的区域中：
' G+ C. y& V. F2 I163K网站系统官方论坛
+ [0 U* o8 `/ a0 q% x" a h163k团购网站系统官方服务论坛 private sub commandbutton1_click()
; N& N0 w, E7 O6 S6 Dbbs.163k.com为互联网事业发展提供源动力！1 s. y/ D$ M! k% [$ X! |! [' J$ n
分类汇总打印 '此处字符必须与上述宏名称一致 , J) s* ]7 v2 z
8 {, {- p% l* Y3 Q R9 ~1 m9 t6 Ubbs.163k.com end sub 163K网站系统官方论坛9 [2 T+ g" p! a8 m: c+ X0 m
! W- C: k+ Q1 F3 [' j8 y) h
输入完成后，关闭“visual basic编辑”窗口，返回工作表中。像调整图形大小一样，调整好命令按钮的大小，然后将其定位在表格的合适位置上，再按下“工具箱”上的“退出设计模式”按钮。
' i. ?5 |" `6 J4 d团购网站系统,团购网程序bbs.163k.com3 U4 p5 M2 s* |- W+ X$ V! U
0 W) p3 V/ B0 }2 u5 b5 G1 c$ N163k团购网站系统官方服务论坛 当需要分类打印时，只要单击表格中的“分类打印”按钮即可快速获得。
[0 `0 A' l4 ?7 v163k团购网站系统官方服务论坛- d6 @6 {% {% g: d& N$ P; [: A
& C8 R5 m% q+ V) R5 b2 V团购网站系统,团购网程序
8 k( M7 [" g9 Ibbs.163k.com
|
