批量填写排课卡片

jx928867128 · 发表于 2024-3-14 07:07

本帖最后由 jx928867128 于 2024-3-14 08:49 编辑

3190496160 发表于 2024-3-13 17:52

谢谢朱老师的帮忙，测试中发现如果把您的代码复制有多个模块的表格中运行，程序有时报错显示数据类型不对，有时填写的结果不对，不知道在用时需要注意什么问题

jx928867128 · 发表于 2024-3-14 08:21

本帖最后由 jx928867128 于 2024-3-14 08:49 编辑

fzxba 发表于 2024-3-13 19:23

感谢您的再次修改，我把您的代码复制到我实现用表中测试发现程序不能运行，请您抽空帮我看看好吧

fzxba · 发表于 2024-3-14 08:32

jx928867128 发表于 2024-3-14 08:21
感谢您的再次修改，我把您的代码复制到我实现用表中测试发现程序不能运行，请您抽空帮我看看好吧

3190496160 · 发表于 2024-3-14 08:41

1、排课卡片中表格结构改变了，1楼附件是从A列开始的，现在的附件又是从F列开始，
2、课程总表中星期日区域咋会包含教师姓名呢？

测试发现的问题.rar (41.97 KB, 下载次数: 13)

jx928867128 · 发表于 2024-3-14 08:47

fzxba 发表于 2024-3-14 08:32

谢谢好心人的指导，再次谢谢

jx928867128 · 发表于 2024-3-14 08:48

3190496160 发表于 2024-3-14 08:41
1、排课卡片中表格结构改变了，1楼附件是从A列开始的，现在的附件又是从F列开始，
2、课程总表中星期日区 ...

谢谢朱老师的再次帮忙，谢谢

fzxba · 发表于 2024-3-14 09:04

jx928867128 发表于 2024-3-14 08:47
谢谢好心人的指导，再次谢谢

向老师学习，学习老师5楼不怕困难，干就完了的精神！

蓝桥玄霜 · 发表于 2024-3-14 15:32

jx928867128 发表于 2024-3-13 16:26
Sub lqxs()
Dim Arr, i&, x$, y$, Ls$, aa, Brr, Myr%, Myc%, Crr
Dim d, k, t, dl, xq$, m%, jjx, js$ ...

抄错了不少地方。

jx928867128 · 发表于 2024-4-23 19:26

本帖最后由 jx928867128 于 2024-4-23 22:16 编辑

3190496160 发表于 2024-3-13 17:51
Sub 汇总表()
Application.ScreenUpdating = False
Dim arr As Variant, brr As Variant

问题已解决，感谢老师的多次帮忙

		自动登录	找回密码
密码			免费注册

[求助] 批量填写排课卡片