自动安排教师监考表的问题

阿里山 · 发表于 2011-11-14 10:32

{:soso_e179:}

yyyyyyy · 发表于 2011-11-16 09:18

KCFONG 发表于 2011-11-13 22:13
TRY TO 监考人数和场数，以及科目增加或减少了
AND TEST IF OK

有个问题，排出的第一场出现错位，最后一场缺试场序号，试场位置

KCFONG · 发表于 2011-11-16 09:24

Upload your problem file

yyyyyyy · 发表于 2011-11-16 11:04

KCFONG 发表于 2011-11-16 09:24
Upload your problem file

最后结果表中红色字，第1场的监考名单排到了前面，出现了错位，应为35场，现有34场

请助 v2.rar (18.01 KB, 下载次数: 55)

KCFONG · 发表于 2011-11-16 11:15

Sorry, it is my mistake

yyyyyyy · 发表于 2011-11-17 07:29

本帖最后由 yyyyyyy 于 2011-11-28 14:05 编辑

KCFONG 发表于 2011-11-16 11:15
Sorry, it is my mistake

改成试场号纵向显示，kcofng大师的代码中已有
Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
改为红色，即可。
一个问题，如果姓名中有3个字的，2个字的，姓名中不加这样的空格（如张三）
如王麻子，张三，李四，张五造成监考表中对不齐
想这样对齐
王麻子  张三
张三    王麻子
李四    张五
即判断第1个监考的姓名是2个字，后面空两格，是3个字，后空1格；如果第1个监考的姓名是3个字，后加1个空格

searchlove · 发表于 2011-11-22 16:22

好深奥哦看来需要更多的恶补了

yyyyyyy · 发表于 2011-11-28 16:37

KCFONG 发表于 2011-11-16 11:15
Sorry, it is my mistake

提一个问题，姓名中有3个字的，2个字的（假定姓名中不存在加这样的空格使之排齐如张三，）
如王麻子，张三，李四，张五，造成监考表中对不齐
如果想这样对齐
王麻子  张三
张三    王麻子
李四    张五
该怎么做到呢

yyyyyyy · 发表于 2011-11-29 09:03

yyyyyyy 发表于 2011-11-28 16:37
提一个问题，姓名中有3个字的，2个字的（假定姓名中不存在加这样的空格使之排齐如张三，）
如王麻子， ...

Cells(r, CInt(yy(C)) + TOTCOL + 4) = Cells(r, CInt(yy(C)) + TOTCOL + 4) & Cells(tr, 1) & " "
改为If Len(Cells(tr, 1)) = 2 Then Cells(r, CInt(yy(C)) + TOTCOL + 4) = Cells(r, CInt(yy(C)) + TOTCOL + 4) & Cells(tr, 1) & " " Else Cells(r, CInt(yy(C)) + TOTCOL + 4) = Cells(r, CInt(yy(C)) + TOTCOL + 4) & Cells(tr, 1) & " "
ok了，再次感谢kcfong大师

yyyyyyy · 发表于 2011-12-2 18:03

本帖最后由 yyyyyyy 于 2011-12-5 11:06 编辑

KCFONG 发表于 2011-11-16 11:15
Sorry, it is my mistake

可以有以下两种人员安排选择，1、随机，每次排出的监考都不一样（不可预料）；2、固定试场，每个人尽可能安排在同一试场

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

[求助] 自动安排教师监考表的问题