学生档案管理

lhdcxz · 发表于 2011-12-31 15:20

本帖最后由 lhdcxz 于 2011-12-31 15:30 编辑

作了个学生档案管理的东西。大家试用、改进。
先把压缩文件保存，再解压到同一个文件夹里面（否则错误！）
用户列表密码
lhd       lhd
xlh       xlh
a222       222
a333       333
材控60701 0
材控60801 0
材控60802 0
材控60901 0
...

学籍管理.rar (930.99 KB, 下载次数: 2449)

dzymx · 发表于 2011-12-31 15:31

我用得着，下来试一下。

lhdcxz · 发表于 2011-12-31 15:44

一个学校有很多班级，本档案管理基本思路是由班级负责人负责输入（也可以由管理人员输入）。所以有导入、导出功能。

ABC555 · 发表于 2012-2-1 21:17

谢谢分享！

于铁于铁 · 发表于 2012-2-1 22:26

本帖最后由于铁于铁于 2012-2-1 22:29 编辑

楼主，看了大作，心潮起伏。由衷敬仰。
我是一个新手。并不会VBA，所以烦请楼主能为本人看一下我做的一个表格。
里面我缺少了所谓的“批量打印”，想省去一次只打印一张的麻烦，在工资个人审批表页加一按钮，一键完成所有表格的打印。
有劳了。谢谢。我的邮箱erma66666@126.com
附件附上。

于铁于铁 · 发表于 2012-2-1 22:29

本帖最后由 zhaogang1960 于 2012-2-2 18:18 编辑

楼主，有劳了，再谢谢。

薪级工资调整表.rar (51.13 KB, 下载次数: 108)

hahacat100 · 发表于 2012-2-1 22:30

{:soso_e100:} 刚入门，下来看看

lhdcxz · 发表于 2012-2-2 11:38

6楼：下载附件后病毒防护报告说“有病毒”。害怕啊。哈哈

sheet · 发表于 2012-2-2 13:38

于铁于铁发表于 2012-2-1 22:29
楼主，有劳了，再谢谢。

[code=vb]Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
n = Sheet2.Range("AB65536").End(xlUp).Row
For i = 1 To n
[c3] = i
Sheet4.PrintOut
Next
Application.ScreenUpdating = False
End Sub
[/code]

于铁于铁 · 发表于 2012-2-2 13:54

9楼的兄弟，能直接下载5楼或6楼的附件，直接做好发到上面吗？
谢谢。
VBA我真的不懂呀。

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

[分享] 学生档案管理

评分