[辅助教学]sjpk13.3.0.2养老版本 [复制链接]

访版本号的sjpk主要是联网认证授权，请先运行批处理禁网，然后直接运行软件。经测试不会清除数据。

图片:捕获.PNG

导出的课表学校名为空白，如需要添加校名可使用下面VBA(WPS个人版不支持)代码。

Sub SJPK()
    Dim jpg As Shape
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Range("A3:D3").Merge
        ws.Range("A3").HorizontalAlignment = xlLeft
        ws.Range("A3").Value = "XXX学校"
        For Each jpg In ws.Shapes
            If jpg.Type = 13 Then
                jpg.Delete
            End If
        Next jpg
    Next ws
End Sub

附件下载：附件出售：水晶排课13.3.0.2.zip

• 类型: 出售
• 下载: 19
• 售价: 50金钱
• 大小: 4094 K
• [记录][下载]

感谢提供资源

谢谢分享了

感谢分享！

感谢分享

导出校名处是空的图片还是真无校名单元格？

jxzzhome:导出校名处是空的图片还是真无校名单元格？ (2025-12-11 15:12) 

图片，可以用VBA代码批量清除，并添加学校名称。

谢谢分享

导出的校名位置本来都是图片，13.32弄得无校名也只是校名位置没有文字，图片依然存在，13.98版导出的也只有图片的，只是没有校名文字了，图片变得最小了，一个字的高度，宽度最窄罢了，而13.32的图片占了好几个字的宽度。这是原软件设计的原因，破解对这一点没有改动。

zwjboai:导出的校名位置本来都是图片，13.32弄得无校名也只是校名位置没有文字，图片依然存在，13.98版导出的也只有图片的，只是没有校名文字了，图片变得最小了，一个字的高度，宽度最窄罢了，而13.32的图片占了好几个字的宽度。这是原软件设计的原因，破解对这一点没有改动。 (2025-12-11 15:45) 

S大的13.98导出无图片，可以全选所有工作表进行单元格合并哈