中小学排课系统（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