中小学排课系统（EXCEL版）

秋天的一米阳光

中小学排课模板4.5使用说明版.zip (494.85 KB, 下载次数: 5446)

2014-9-2 11:19 上传

点击文件名下载附件

本套系统是属于自己原创，已经用了8年了。现在拿出来和同行们共享，探讨，加入QQ群：392112695 有最新正式版下载使用.

        本排课模板由使用者直接排课、调课，由电脑检查冲堂、空堂，并能直接利用各个工作表打印出各年级总课表、学校总课表、各班分课表、各教师分课表，提高了排课的实用性大大地提高了工作效率，排课结果还可以作为下一个学期的排课基础。
        在新学期排课表时，只要利用EXCEL的编辑中的替换功能，将班级名称进行替换，再将教师名字进行更换，适当地调整课节就可以了。

dajiahaoxinku12

就这么点打印代码？       几乎全是vlookup啊  ，牛   
Sub 按钮1_单击()
    序号 = Range("c9").Value
打印:
If 序号 <= Range("c11").Value Then
    Range("c7").Value = 序号
    If Range("c11").Value - 序号 = 0 Then
    Range("f1:m15").PrintOut copies:=1
    GoTo 结束
End If
    If Range("c11").Value - 序号 = 1 Then
    Range("f1:x15").PrintOut copies:=1
    GoTo 结束
End If
    序号 = 序号 + 2
    Range("f1:x15").PrintOut copies:=1
    GoTo 打印
  End If
结束:
End Sub
Sub 按钮2_单击()
    序号 = Range("c24").Value
打印:
If 序号 <= Range("c26").Value Then
    Range("c22").Value = 序号
    If Range("c26").Value - 序号 = 0 Then
    Range("f16:m30").PrintOut copies:=1
    GoTo 结束
End If
    If Range("c26").Value - 序号 = 1 Then
    Range("f16:x30").PrintOut copies:=1
    GoTo 结束
End If
    序号 = 序号 + 2
    Range("f16:x30").PrintOut copies:=1
    GoTo 打印
  End If
结束:
End Sub
Sub 按钮3_单击()
    序号 = Range("c39").Value
打印:
If 序号 <= Range("c41").Value Then
    Range("c37").Value = 序号
    If Range("c41").Value - 序号 = 0 Then
    Range("f31:m45").PrintOut copies:=1
    GoTo 结束
End If
    If Range("c41").Value - 序号 = 1 Then
    Range("f31:x45").PrintOut copies:=1
    GoTo 结束
End If
    序号 = 序号 + 2
    Range("f31:x45").PrintOut copies:=1
    GoTo 打印
  End If
结束:
End Sub
Sub 按钮4_单击()
    序号 = Range("c9").Value
打印:
If 序号 <= Range("c11").Value Then
    Range("c7").Value = 序号
    If Range("c11").Value - 序号 = 0 Then
    Range("f1:m15").PrintOut copies:=1
    GoTo 结束
  End If
    序号 = 序号 + 1
    Range("f1:m15").PrintOut copies:=1
    GoTo 打印
  End If
结束:
End Sub
Sub 序号1_更改()
Range("c7").Value = Range("c9").Value
Range("c11").Value = Range("c9").Value
结束:
End Sub
Sub 序号2_更改()
Range("c22").Value = Range("c24").Value
Range("c26").Value = Range("c24").Value
结束:
End Sub
Sub 序号3_更改()
Range("c37").Value = Range("c39").Value
Range("c41").Value = Range("c39").Value
结束:
End Sub

秋天的一米阳光

dajiahaoxinku12 发表于 2014-9-2 11:38
就这么点打印代码？       几乎全是vlookup啊  ，牛   
Sub 按钮1_单击()
    序号 = Range("c9").Value ...

越简单越好，太复杂了不好用。

yepulu

越简单越好，太复杂了不好用。牛牛牛

yuhao2056

谢谢楼主！

wxwexcel

多谢楼主
{:soso_e160:}

dffhgfhgf

这里的帖子每天都是什么人回答的呀。我想要高手。。

jht256405

大震大大在

qqyyh

谢谢！下来研究学习。

carpsd

谢谢！下来研究学习