Vlookup 不同工作簿的VBA代码如何写？

geryjun

我做了一个 分科登分及合成总分模板 ，是用Vlookup 函数实现的，因为科目多，有9科，占用空间太大，想看看有没有办法可以减少容量。
以下的分科登分及合成总分模板 的说明：
1、在11个表格，其中9个为科目的表格（分别为语、数、英、政、史、地、物、化、生），另外两个一个是原始登分表，一个是合成登分表。
2、为避免登分时有人作过排序操作导致出错，除原始登分表没有加保护外，其它表格（输入分数表格除外）都有加保护（密码为geryjun）。
3、9科表格和合成登分表的数据都是来源于原始登分表，所以每次使用时，只要修改原始登分表并对其它表格做自动更新就可以了。
4、因为是使用函数和公式，所以文件有点大。如果有哪位高手可以改成VBA的，请给予帮助，在此谢谢了。
5、这是我第一次发表我的模板，欢迎各位友友们提出宝贵建议或作出修改。
6、此表主要适用于高一或要考九科的年级，如果是其它年级（如只考4科或5科的）可以做相应的修改就可以了。
附件已经传到此页了，我就不再上传到这里，麻烦各位点击去下载。

我的想法是这样：
1、通过 原始登分表  自动生成 其他各科的分科表格（有写保护，但登分的G列没有保护）。
2、当各科成绩登分后，在原始登分表格里 可以自动生成合成登分表。
3、在合成登分表中可以使用VBA代码，一键把各科的成绩Vlookup在表格中，显示的是数值而不是公式。

通过 lorvoo 的热心帮助，现在全部功能都已经实现。附件在22楼。
谢谢。

[ 本帖最后由 geryjun 于 2010-4-29 18:12 编辑 ]

geryjun

我想如果通过几个软件还是可以达到的，可是如果合在一个软件里的话，不知难不难。

smhf_6

个人意见：
不用函数，不用宏，也不要分科登记簿，就一个合成登记簿可以了，要那么多表格干吗？
（若非要分科：将合成登记簿复制9份，删除不需要的科目，就行了）

一张表，一目了然。如果您要进行数据分析，可以再创建一个数据透视表，相当的方便。

lorvoo

合成登分表与原始表是一样的嘛，干吗还要弄一个？
可以用原始登分表生成其它表的。等我做完发上来。

lorvoo

LZ看看这个怎么样？
Score Record Table.rar (52.48 KB, 下载次数: 126)

2010-4-21 15:24 上传

点击文件名下载附件

（由于我的系统是英文的，不支持中文，所以只能出英文产品）

geryjun

呵呵，这你就有所不知啦。如果一个级有近2000人，9个科目，一起登分的话，花时间很多，如果分为9个科，那就可以节省8/9的时间。

另外，我现在的表格就是分成了9个科目呀。

geryjun

不错，这就是我想要的效果。谢谢了。
经你提醒，原来可以少做一个表格。
我当初的想法是这样，原始表格是会变化的，照我原来的思路，是要另外做一个读取原始数据的合成表格的，只有这样，更新了原始表格 才不会对其他表格内容 产生变化。

geryjun

看了一些贴，都提到Vlookup  在数据多的时候， 运行速度会很慢，
如果最后能用VBA 代替 vlookup 自动生成就更好了。
希望有高手改进一下。

geryjun

你好，请问能否点击增加 “全部”到按钮 Creat Table，创建的工作表格以科目命名，并保存。
这样的话，我就不用一个一个科目创建再一个一个保存了。

此外，能否在导出的合成文档中 科目列里 增加Vlookup代码？

高兴001

想法：可以将一个文件放在学校的FTP公共文件位置，并将该文件设置属性为共享共同编辑，启用冲突日志。每科的教师分头录入分数即可。