会议签到表生成系统(vba和sql查询结合经典素材)

wangcaiok

我用vba和sql做了一个会议签到生成器,比较实用,里面蕴含了很多vba知识和sql知识.可以下载看看....
界面如图(一楼的)

操作方法:
如何筛选:1.例如3.8妇女节来了,要召集人事部门的女同志举行会议,那么就在条件1中选择"员工部门"= 再输入"人事部逻辑判断选择"且",
2.在条件2如图,选择"性别"= 和输入"女".再把"女"后面的逻辑判断改成"或"或者直接del.
3.然后如果不需要显示在签到表上的员工学历,把"员工学历"前选项卡的勾去掉.
4.单击筛选,筛选完成
如何生成签到表:1.如果某人被筛选到,但不能参加会议或无需签到,就把该员工后面是否到会一列中把该员工对应的"是"删掉即可.
2.点击生成签到表.
3.如果会议超过一天,则可以单击上一天,下一天查看和打印会议每一天的签到表.
4.用户自定义会议地点,会议时间,提示内容,会议对象等.

作者:范鸿才 QQ:493349636 wangcaiok@sohu.com
欢迎来信探讨技术.
-------------------------------------------------------------------------------------------------
第二个附件是优化版，主要是针对chqf同志的需求做的改动：
1.在签到表不显示“是否到会”和空列。
2.打印功能核实。
3其它小问题

[ 本帖最后由 wangcaiok 于 2009-2-4 14:26 编辑 ]

wangcaiok

截图,我不知道能不能显示出来..

[ 本帖最后由 wangcaiok 于 2009-1-20 11:54 编辑 ]

hhzjxss

谢谢楼主分享！

chqf

谢谢楼主，辛苦了！

corvine99

谢谢分享，不过怎么觉得用excel表的filter功能，filter报名为”是“ 的就可以啦。。。。

wangcaiok

哦 就是用筛选的也可以达到同样效果 只是这用于学习SQL语句的.
当然,用筛选只是体现在生成签到表的地方.
其中设置那一块,筛选与会人员的地方单纯用筛选就比较麻烦而且目前还没有找到解决方法(3个条件).

gangone

学习了，收藏。谢谢。

chqf

试用了一下，感觉有以下需要改进：
1、打印结果是全部33张的签到单（包括空白表格），而不是实际参会人员的名单；
2、筛选条件是否可以做成下拉菜单，如条件选择性别，则可以下拉选择男或女，条件选择部门，则自动可以下拉选择人事部、财务部等；
3、如果勾选不显示某字段，则生成的签到表中则会出现空列，并且产生“是否到会”列，建议删除签到表中的空列；
4、好像只能筛选出12个对象，其他符合条件人员无法显示。

[ 本帖最后由 chqf 于 2009-2-1 16:12 编辑 ]

wangcaiok

针对你的问题，做出以下解答：
1、打印结果是全部33张的签到单（包括空白表格），而不是实际参会人员的名单；
这个问题我在测试时是可以打印出有数据的几张的。
我的代码如下：

Private Sub CommandButton4_Click()
line1:
i = Sheets("打印表").Range("i3").Value
t = Range("f3").Value
On Error GoTo line1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=i, Copies:=t, _
        Collate:=True
End Sub

i是打印的页数
t是打印份数

我的i计算方法是：
=CEILING(COUNT(B:B)/33,1)

就是一页上大约有33条记录，计算得到实际有数据的页数。
因为当时我的电脑没有连接打印机，我用的是虚拟打印机，打出来的Mid文件是正确的，麻烦你做一下测试，再换台电脑试试，实在不行，你就按“ctrl+p”对话框选择打印从1－（Sheets("打印表").Range("i3").Value）就可以。

2、筛选条件是否可以做成下拉菜单，如条件选择性别，则可以下拉选择男或女，条件选择部门，则自动可以下拉选择人事部、财务部等；
这个功能目前我的技术还无法完美，请有此方面造诣的老师帮忙。

3、如果勾选不显示某字段，则生成的签到表中则会出现空列，并且产生“是否到会”列，建议删除签到表中的空列；
已修改，附件中，请查看！
4、好像只能筛选出12个对象，其他符合条件人员无法显示。
这个问题也没遇到国，你改变筛选条件就不知12个对象啊，注意且和或的关系，比如性别＝男或性别＝女，那么就筛选所以职工，性别＝女且部门＝人事部，就筛选人事部理的女职工。
你再试试。。
谢谢 关注 有任何疑问欢迎和本人联系。。
牛年吉祥

[ 本帖最后由 wangcaiok 于 2009-2-4 14:19 编辑 ]

chqf

下载试试先