[辅助教学]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

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

感谢分享，下载看看。

jxzzhome:S大的13.98导出无图片，可以全选所有工作表进行单元格合并哈 (2025-12-11 15:47) 

只是图片的宽度小了，因为他的校名为空。

Sub DeleteAllPictures()
    Dim ws As Worksheet
    Dim pic As Picture
    For Each ws In ThisWorkbook.Worksheets
        For Each pic In ws.Pictures
            pic.Delete
        Next pic
    Next ws
End Sub


也是从咱论坛里存的，可以干掉图片

感谢分享好东西。收藏了。

speedboy:我推出的版本，只要没校名就不会出现站位图片 (2025-12-11 16:20) 

大神您也出一个yancr那种注册名工具双12搞活动，那就完美了

jxzzhome:大神和zwjboai发布的13.2https://www.ee44.net/read-htm-tid-72699.html 在WIN10中运行时一样IE会弹窗，点允许会不停地弹窗，大神有什么好办法？，你们这二者有什么区别？[图片] (2025-12-11 17:30) 

破解不完全导致，建议用S大最新版。

大神和zwjboai发布的13.2https://www.ee44.net/read-htm-tid-72699.html 在WIN10中运行时一样IE会弹窗，点允许会不停地弹窗，大神有什么好办法？，你们这二者有什么区别？

图片:弹窗.png

speedboy:我推出的版本，只要没校名就不会出现站位图片 (2025-12-11 16:20) 

确实，没有图片的版本更优，可以全选工作表批量输入校名。不需要借助什么工具。

感谢感谢。