座位表

用VBA编排学生座位表

用VBA编排学生座位表 (2011-09-10 23:10:47) 转载▼ 分类：技术交流 标签： it 在每学年的新生开学前，班主任老师要做大量的准备工作，其中必做的一件事就是收集本班学生的报名信息，编排上课的座位表。以往班主任老师都是通过手工来编排座位表的，消耗的时间和精力相当大，一旦有学生进行了调整又不得不重复之前的劳动。下面我们就来看看如何用VBA轻轻松松实现座位表的编排。 通常情况下，编排座位表需要考虑以下三个因素，即学生的视力、身高、性别等，根据学生在报名表中填写的信息，我们采集了相关的数据（如图1）。 利用“控件工具箱”中的“命令按钮”控件在工作表中添加一个命令按钮，修改其“Caption”属性为“排座位”，双击该按钮，在其Click事件中编写下面的代码： Private Sub CommandButton1_Click() On Error GoTo err Dim fenzu As Integer Dim irow As Integer Range("D2").Select '对信息表进行排序,关键字分别为视力、身高、性别

Range("A3:E48").Sort Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range( _ "D3"), Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending '删除原有的座位表 For Each sh In Worksheets If https://www.wendangku.net/doc/6418186227.html, = "座位表" Then Application.DisplayAlerts = False Sheets("座位表").Delete End If Next sh '添加名为座位表的新工作表 Sheets.Add after:=Sheets("学生信息") https://www.wendangku.net/doc/6418186227.html, = "座位表" '获取分组数 fenzu = InputBox("你想把学生分成几个小组?", "提示", 6) '获取学生总人数 icount = Worksheets(1).[a65536].End(xlUp).Row - 2 '获取每组最多学生人数 irow = Int(icount / fenzu) + 1 '按先行后列的顺序提取学生信息表中的学生名单 For n = 1 To irow For m = 1 To fenzu '生成第N组的文字(前面空2行用于显示标题) Worksheets(2).Cells(3, m) = "第" & m & "组" Worksheets(2).Cells(n + 3, m) = Worksheets(1).Cells(fenzu * (n - 1) + m + 2, 2) Next m Next n MsgBox "座位表编排成功,请根据实际情况手工微调!", vbOKOnly + vbInformation, "提示" err: Exit Sub End Sub 代码说明： （1）为了使编排的座位表更加合理，我们把视力低的同学尽量往前排，相同视力的同学按身高的高矮顺序排，如果身高又相同则女生排在前面，男生排在后面。

巧用EXCEL制作会议座位表

大型会议座次图等证表卡 生成步骤

目录 一、《座次图》自动生成模块 (03) 二、《签到索引表》自动生成模块 (11) 三、桌牌自动批量生成模块 (13) 四、《出席证》自动批量生成模块 (16) 五、《合影站位图》自动生成模块 (19) 六、《宴请就座图》自动生成模块 (21) 七、本系统的优越性 (24) 八、其他技巧 (25) 结束语 (25)

大型会议座次图等证表卡 自动生成系统 对于机关和企业的办公室来说，组织会议是经常性工作。在参加人数较多的会议中，座次图的编排是一个关键环节。事先有组织地将参会人员座次安排好，一方面能让参会者均匀分布在会场，避免会场各处太拥挤或太稀疏；另一方面，遵从于共同价值观的座次顺序，能让参会人员都感到心安，是维护会议严肃性必要条件。 传统方法的排座次，是先画一空表，然后逐一填入人名。在这个过程中，要反复掂量谁在前、谁在后，不断地调整和修改。大多数情况下，参会人员是按顺序从中间向左右两边折返发散安排的，每当遇到增加或减少参会人员—哪怕只调整一个人，也往往需要推倒重来一次。不仅如此，一些会议还要求按顺序的摆放桌牌，制发《出席证》，组织照相、就餐，使类似排座次图的工作量翻倍。对个人而言，上述几项工作是时间紧、压力大的苦差事；对单位而言，将大量人员精力深陷在会议排座次之类的琐碎事务上不利于提升在群众中的形象，更不符合中央“反四风”精神。 本文要介绍的方法，可以实现三个功能：1.当参会人员基本确定时，自动生成《座次图》；2.当参会人员变化时，自动更新《座次图》；3.自动生成与《座次图》相配套的《合影站位图》、《宴请就餐图》、《签到索引表》，批量且按顺序自动生成“桌牌”和“《出席证》”，并且随参会人员的变化而自动调整。简言之，只要明确了参会人员的人名和顺序，会议所需多数证表卡都自动生成和自动调整，让会务准备工作变得轻松和从容。

机械创新设计----智能座椅设计说明书 - 副本 - 副本

《机械创新设计》课程设计 设计题目：智能座椅 专业：机械设计制造及其自动化 班号： 姓名学号： 成绩评定： 指导教师： 设计起止日期：2013年 12月20 日—12 月 26 日

目录 摘要 .................................................................................................. 第一章绪论 ...................................................................................... 1 研究背景及意义..................................................................................... 2主要功能和性能指标 ............................................................................. 第二章设计方案 ................................................ 2.1重力平衡控制 ..................................................................... 2.2定滑轮连接控制 ..................................................... 第三章理论设计计算............................................ 3.1椅子的尺寸设计................................................. 3.2 重力平衡装置的尺寸确定及理论分析............................... 第四章工作原理及性能分析 第五章创新点及应用 第六章成品展示 第七章心得体会与设计总结 5.1 心得体会:.................................................................. 5.2设计总结： ........................................................................... 参考文献....................................................... 错误！未定义书签。

Excel智能安排考试座位和考场座签方法

Excel智能安排考试座位和考场座签方法期末考试临近了，又到了我们教师忙碌的时候，例如安排考试座位，经过多次实践我找到了一种智能安排考试座位的方法，来跟大家分享一下。 收集全体学生资料 在编辑考试座位表之前，必须先收集学生基本资料，一般来说每个班主任都有这样的资料，然后新建一个工作簿，命名为“2010年南开中学三年级期末考试座位表.xls”，在其中新建一个工作表“参考学生资料”，将三年级所有参加期末考试的学生资料复制到这个工作表中，再在D2、E2中输入考场号、座位号(图1)。一般来说，中小学考试用不到准考证号，但各种会考、升级考试、四六级英语考试等用得到，因此大家要根据自己的实际情况设置选项。 图1 接下来根据考试要求(我们这里是同一个班的学生不能相邻)，将学生的次序打乱。在F2中输入随机数值，在下面的F3中输入公式“=RAND()”，并将此公式复制到下面的单元格中，这样每个学生的F单元格中都有一个随机数值，例如 0.5522446。

再选定F列，执行“数据”?“排序”命令，按照升序或者降序排列，将学生原有的按照班级排列的次序彻底打乱。如果一次排序后，还有同班相邻的情况，可以再进行一次排序，一般来说，两次排序后就不会出现同班学生相邻的情况了。 编辑座位表模板 在将学生次序打乱之后，就可以给每个学生安排考场以及座位号了。这个步骤需要根据不同学校的考场情况而定，例如我们学校每个考场安排的是30名学生，所以我在第一个学生考场号D3中输入公式“=INT((ROW()-3)/30)+1”，座位号E3中输入 - 1 - “=MOD((ROW()-3)，30)+1”，再将这些公式复制到下面单元格中，自动为每个学生分配对应的考场号以及座位号。 然后新建一个工作表“考试座位表”，在其中输入座位表标题，按照学校教室的布局，编辑30个学生个人座位小表格，例如考场分3排、每排10人，其中每个小表格包括准考证号、姓名、班级、考场号、座位号等内容。此外，为了便于查看每个考场座位表以及总考场数，在右上角的Q2、R2中输入所在考场、考场总数(图2)。

巧用EXCEL制作会议座位表

大型会议座次图等证表卡 生成步骤 1

目录 一、《座次图》自动生成模块 (03) 二、《签到索引表》自动生成模块 (11) 三、桌牌自动批量生成模块 (13) 四、《出席证》自动批量生成模块 (16) 五、《合影站位图》自动生成模块 (19) 六、《宴请就座图》自动生成模块 (21) 七、本系统的优越性 (24) 八、其他技巧 (25) 结束语 (25) 2

大型会议座次图等证表卡 自动生成系统 对于机关和企业的办公室来说，组织会议是经常性工作。在参加人数较多的会议中，座次图的编排是一个关键环节。事先有组织地将参会人员座次安排好，一方面能让参会者均匀分布在会场，避免会场各处太拥挤或太稀疏；另一方面，遵从于共同价值观的座次顺序，能让参会人员都感到心安，是维护会议严肃性必要条件。 传统方法的排座次，是先画一张空表，然后逐一填入人名。在这个过程中，要反复掂量谁在前、谁在后，不断地调整和修改。大多数情况下，参会人员是按顺序从中间向左右两边折返发散安排的，每当遇到增加或减少参会人员—哪怕只调整一个人，也往往需要推倒重来一次。不仅如此，一些会议还要求按顺序的摆放桌牌，制发《出席证》，组织照相、就餐，使类似排座次图的工作量翻倍。对个人而言，上述几项工作是时间紧、压力大的苦差事；对单位而言，将大量人员精力深陷在会议排座次之类的琐碎事务上不利于提升在群众中的形象，更不符合中央“反四风”精神。 本文要介绍的方法，可以实现三个功能：1.当参会人员名单基本确定时，自动生成《座次图》；2.当参会人员名单变化时，自动更新《座次图》；3.自动生成与《座次图》相配套的《合影站位图》、《宴请就餐图》、《签到索引表》，批量且按顺序自动生成“桌牌”和“《出席证》”，并且随参会人员名单的变化而自动调整。简言之，只要明确了参会人员名单的人名和顺序，会议所需多数证表卡都自动生成和自动调整，让会务准备工作变得轻松和从容。 3

编排座位表我有妙招

编排座位表我有妙招 开学了，班主任小王可犯愁了，该如何编排本班的座位表？传统的方法是对照成绩表、身高或视力什么的，抄抄写写，效率低下还很容易出错。笔者给她介绍了二种技巧，几分钟就可搞定，一起试一下吧。 以32名学生分5组来说明，不建议根据分数排座位，明显不利于学生身心和人格发展。本例根据身高排座位，身高矮者做第一排，最高者坐最后一排，中间也依序排列。 常规法操作简单 启动excel 2007，打开小王老师早已做好的“排座位”工作簿文件，在“常规法”工作表中对学生的身高进行“升序”排序。在“数据”选项卡中，单击“排序和筛选”功能组中的“升序”图标按钮，然后分别在D4、E5、F6、G7、H8单元格输入1。 选择D4:H8单元格区域，将鼠标指向位于选定区域右下角的小黑方块，鼠标的指针更改为黑十字，拖动填充柄到第35行（至于具体多少行以学生个数为准）即可（图1）。 选择D4:H8单元格区域，按下Ctrl+G组合键或F5键，弹出“定位”对话框，单击“定位条件”，在“定位条件”对话框中选择“常量”，单击“确定”按钮，在编辑栏输入“=$A2”（不含引号），按下Ctrl+Enter组合键，完成32个姓名的批

量填充。 再次选取D4:H8单元格区域，按下CTRL+G组合键或F5键，弹出“定位”对话框，单击“定位条件”，在“定位条件”对话框中选择“空值”，单击“确定”按钮，D4:H8单元格区域的所有空值单元格都被选中了。把鼠标至于D4:H8单元格区域，保持D4:H8单元格区域空值的选中状态，右键选取“删除”命令，在弹出的“删除”对话框中，选择“下方单元格上移”选项，单击“确定”按钮，初步完成了对32名学生座位表的编排。 美化学生座位表。调整行高和列宽，设置好字体、字号、对齐和边框，此外根据需要对页面布局进行必要的设置。 函数公式法效率高 用此法不需要对学生的身高进行“升序”排序，单击“公式法”工作表D4单元格，输入以下数组公式： =IFERROR(INDEX($A$2:$A$33,MATCH(SMALL($B$2:$B$33+ROW($2:$33)%%,ROW(A1 )*5+COLUMN(A1)-5),$B$2:$B$33+ROW($2:$33)%%,0)),"") 按下Ctrl+Shift+Enter组合键后，公式将返回全班最矮的学生姓名，将公式向右填充至单元格H4后，再选择D4: H4区域向下填充至第10行（图2）。 小提示： 在本例中$B$2:$B$33+ROW($2:$33)%%是为了区别相同的身高，Small函数的第二参数ROW(A1)*5+COLUMN(A1)-5通过变化Row和Column函数的值得到产生1、2、3……35的序列，Small函数从中按升序方式从小到大取出每一个数值；通过Ma tch函数计算排位即取出行号，Index函数根据行号获取姓名。

Excel智能安排考试座位和考场座签方法

Excel 智能安排考试座位和考场座签方法 期末考试临近了，又到了我们教师忙碌的时候，例如安排考试座位，经过多次 实践我找到了一种智能安排考试座位的方法，来跟大家分享一下。 收集全体学生资料 在编辑考试座位表之前，必须先收集学生基本资料，一般来说每个班主任都有 这样的资料，然后新建一个工作簿，命名为“ 2010年南开中学三年级期末考试座 位表.xIs ”，在其中新建一个工作表“参考学生资料”，将三年级所有参加期末考 试的学生资料复制到这个工作表中，再在 D2、E2中输入考场号、座位号（图1）。 一般来说，中小学考试用不到准考证号，但各种会考、升级考试、四六级英语考试 等^到此 大家要根据自己的实际情况设置选项。 avp" - 「上 士电上」上_工3 ―__ /十? ” _ （L T -JL .i ￡屛1二 _”?丄 I 声 1 =―二■ '^' 'H 當?可Td"对亍車"i-aH …v^i I ICi 尊竿旳忡二烈卄I 学管g —礬削BA 安i 盅学生j 爬2 接下来根据考试要求（我们这里是同一个班的学生不能相邻），将学生的次序打 乱。 在F2中输入随机数值，在下面的F3中输入公式“ =RAND （”，并将此公式复 制到下面的单元格中，这样每个学生的 F 单元格中都有一个随机数值，例如 0.5522446。 1 裁一， T 弃 I ■- ： L J-.i. 4「 邛「孙疋 _ ■ ■- □ --I ---------- I- M ■ - - - I --- I -- k \ I - ?花? r 二__￡1虫”仝 __________9 r 手一 =芦— _ 3-M A I-, rti-. 1^^—-- 直：艮一输 .二ig 血！ n ： ? 一& 5 一 巧：iE -Of