求助 VBA做成绩分析

gdwl1218 · 发表于 2023-4-17 12:06

本帖最后由 gdwl1218 于 2023-4-18 00:08 编辑

各位老师大家好：

前两年褚老师帮忙完成了一个成绩分析文档，我一直在用，特别好，对于褚老师的帮助再次表示由衷的感谢！

近来在使用时增加了学科，导致程序出现点问题，还得请路过的各位老师帮忙调一下！

①在“成绩汇总”里，最后三列的列宽不一致；

②在“学科分析”里，缺少最后一科，

③再看看“班级总评”里的数据对不对，我担心“学科分析”的数据对它有影响；

④各项分析中显示的“考试名称”标题不全

糖↗小冷 · 发表于 2023-4-17 16:11

第一个问题： .Columns("a:af").AutoFit 这行应该到 AF列

第二个问题：arr = .Range("a2:k" & r) 这行应该到K列

第三个问题因第二个问题解决就解决了，

第四个问题，每一个模块里面标题② .Value = bt & "学科分析1)" '表头名字② 这行代码越少了一个")"半括号。

糖↗小冷 · 发表于 2023-4-17 16:12

内容审核中，每一个都能解决，自己好好看看代码的列行标距范围是多少，下次不管增加还是减少，适当改动即可。

gdwl1218 · 发表于 2023-4-17 17:52

糖↗小冷发表于 2023-4-17 16:11
第一个问题： .Columns("a:af").AutoFit 这行应该到 AF列

第二个问题：arr = .Range("a2:k" & r) 这行 ...

对于您的解答，万分感谢！

gdwl1218 · 发表于 2023-4-17 17:54

本帖最后由 gdwl1218 于 2023-4-17 20:22 编辑

gdwl1218 发表于 2023-4-17 17:52
对于您的解答，万分感谢！

根据您的建议，做了一些更改，都已经实现了我想要的结果！！谢谢！！

huipu20220102 · 发表于 2023-4-17 20:20

路过，好东西啊，可以考虑加点图表就完美了~~~~顺便帮你改好了。
bt = Left(.Range("a1"), Len(.Range("a1")))

With Worksheets("成绩汇总")
.Cells.Clear
With .Range("a1")
.Value = bt & "(综合成绩)"

gdwl1218 · 发表于 2023-4-18 00:06

huipu20220102 发表于 2023-4-17 20:20
路过，好东西啊，可以考虑加点图表就完美了~~~~顺便帮你改好了。
bt = Left(.Range("a1"), Len(.Range("a1 ...

谢谢！！你的方案很有价值！！

小p8 · 发表于 2023-4-18 09:12

太强大了！

谢老师66 · 发表于 2024-1-7 18:15

谢老师66 · 发表于 2024-1-7 20:51

huipu20220102 发表于 2023-4-17 20:20
路过，好东西啊，可以考虑加点图表就完美了~~~~顺便帮你改好了。
bt = Left(.Range("a1"), Len(.Range("a1 ...

这个是加在哪个模块里面的？

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

[已解决] 求助 VBA做成绩分析