如何按成绩和性别分班

hlly888 · 发表于 2014-6-30 23:56

达州张先生发表于 2014-6-30 23:11
运行分班按钮，显示错误，另还需进行表头调整，请见附件，谢谢！

你上传的附件（30楼）运行正常啊，你的版本是2003 ？

达州张先生 · 发表于 2014-7-1 00:02

本帖最后由达州张先生于 2014-7-1 00:05 编辑

hlly888 发表于 2014-6-30 23:56
你上传的附件（30楼）运行正常啊，你的版本是2003 ？

我是2003版的，那是后面这一句没用了（'Range("A1").Resize(bb + 3, 5).Borders.LineStyle = 1），不知对不对，谢谢！

hlly888 · 发表于 2014-7-1 00:04

达州张先生发表于 2014-7-1 00:02
我是2003版的，谢谢！

bb = [g2]
For m = zda To zxo Step -1
For i = 3 To UBound(arr)'改成3，试试

达州张先生 · 发表于 2014-7-1 00:06

hlly888 发表于 2014-7-1 00:04
bb = [g2]
For m = zda To zxo Step -1
For i = 3 To UBound(arr)'改成3，试试

我是2003版的，那是后面这一句没用了（'Range("A1").Resize(bb + 3, 5).Borders.LineStyle = 1），不知对不对，谢谢！

hlly888 · 发表于 2014-7-1 00:09

达州张先生发表于 2014-7-1 00:06
我是2003版的，那是后面这一句没用了（'Range("A1").Resize(bb + 3, 5).Borders.LineStyle = 1），不知对 ...

加单元格边框用的。应该有用的。我用的是2013版。

达州张先生 · 发表于 2014-7-1 00:09

hlly888 发表于 2014-7-1 00:04
bb = [g2]
For m = zda To zxo Step -1
For i = 3 To UBound(arr)'改成3，试试

改这个不行

达州张先生 · 发表于 2014-7-1 00:11

hlly888 发表于 2014-7-1 00:09
加单元格边框用的。应该有用的。我用的是2013版。

请你看看刚才发来的附件，谢谢！

hlly888 · 发表于 2014-7-1 00:12

达州张先生发表于 2014-7-1 00:09
改这个不行

原表里你在第一行加入一行，所以，数据行下窜了一行。分班表代码也得改。

hlly888 · 发表于 2014-7-1 00:18

达州张先生发表于 2014-7-1 00:11
请你看看刚才发来的附件，谢谢！

看了，在我这里运行正常。发给你试一下。

hlly888 · 发表于 2014-7-1 00:19

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

[求助] 如何按成绩和性别分班