一键打印某日课表

廖月

蓝桥玄霜 发表于 2024-11-18 10:01
请仔细核对抄写的代码，初学者常常会抄错的。
或者上传出错的代码和附件看看。

好像是下标越界

蓝桥玄霜

1，抄写的代码只错了1个：If i = 1 Then ws.[a1:n2].Copy ShtMB.[al] 里面的[a1],是数字1不是字母L
2，你原来的附件是根据“功能表”中的L9单元格的值作为需要打印的表格的，现在你的附件中L9是空的。必须输入1~31，然后点击按钮。
3，在模板表行列调整代码下面加2句。
执行即可。

sunshuangzhong

nm

这个L9单位格指的nm表有吗

廖月

蓝桥玄霜 发表于 2024-11-18 14:46
1，抄写的代码只错了1个：If i = 1 Then ws.[a1:n2].Copy ShtMB.[al] 里面的[a1],是数字1不是字母L
2，你 ...

运行错误1004，已经改成1了啊

廖月

sunshuangzhong 发表于 2024-11-18 15:33
nm

这个L9单位格指的nm表有吗

你说的意思我没看明白，什么叫nm表呢

廖月

蓝桥玄霜 发表于 2024-11-18 14:46
1，抄写的代码只错了1个：If i = 1 Then ws.[a1:n2].Copy ShtMB.[al] 里面的[a1],是数字1不是字母L
2，你 ...

运行错误1004

廖月

蓝桥玄霜 发表于 2024-11-18 14:46
1，抄写的代码只错了1个：If i = 1 Then ws.[a1:n2].Copy ShtMB.[al] 里面的[a1],是数字1不是字母L
2，你 ...

运行错误1004

廖月

蓝桥玄霜 发表于 2024-11-18 14:46
1，抄写的代码只错了1个：If i = 1 Then ws.[a1:n2].Copy ShtMB.[al] 里面的[a1],是数字1不是字母L
2，你 ...

运行错误，还是要调试

蓝桥玄霜

廖月 发表于 2024-11-18 16:16
运行错误，还是要调试

经测试代码没有问题。很可能是WPS的VBA与EXCEL的VBA有些不兼容。
办法1：换EXCEL版本测试一下；
办法2：把[a1]改为：Cells(1,1)
[a1:n2]改为：Cells(1,1).resize(2,14) 试试看。

廖月

蓝桥玄霜 发表于 2024-11-18 20:18
经测试代码没有问题。很可能是WPS的VBA与EXCEL的VBA有些不兼容。
办法1：换EXCEL版本测试一下；
办法2 ...

谢谢老师帮忙，费心了。现在可以使用了。