求助解决保存时出现“下标越界”的问题

新时代新征途 · 发表于 2018-4-17 20:01

hyqzzs 发表于 2018-4-16 21:36
这个问题我真的不知道。你可以试试杀毒，然后删除“C:\Program Files\Microsoft Office\OFFICE11\XLSTART” ...

教师您好！我有一个想法，就是把两表合二为一。再烦请帮助。

请看附件：

信息表0417.zip (25.18 KB, 下载次数: 2)

hyqzzs · 发表于 2018-4-17 21:18

Sub 录入()
Dim cs$, rq, Arr, csArr, m&, col%, yf$, dd
cs = [e5].Value: rq = [g11].Value
Arr = [g13:g16]
csArr = Array("上海", "北京", "南京", "新疆石河子")
m = Application.Match(cs, csArr, 0) - 1
col = 5 * m + 2
yf = Month(rq) & "月份": dd = Day(rq) + 6
Sheets(yf).Cells(dd, col + 1).Resize(1, 4) = Application.Transpose(Application.Index(Arr, 0, 1))
ThisWorkbook.Save
MsgBox "数据已保存。"
End Sub

新时代新征途 · 发表于 2018-4-20 20:26

hyqzzs 发表于 2018-4-17 21:18
Sub 录入()
Dim cs$, rq, Arr, csArr, m&, col%, yf$, dd
cs = [e5].Value: rq = [g11].Value

老师您好！又要麻烦您了。我遇到一个保存问题。请帮助修改一下原代码。谢谢！

请看附件：

请帮助修改代码.zip (34.01 KB, 下载次数: 1)

hyqzzs · 发表于 2018-4-20 21:00

Sub 保存()
Application.ScreenUpdating = False

With ThisWorkbook.ActiveSheet
cs = .[e5].Value
If .[g11] = "" Then MsgBox "请输入日期": GoTo 100
sj = Format(.[g11].Value, "m") & "月份"
f = Dir(ThisWorkbook.Path & "\" & cs & ".xls*")
If f = "" Then MsgBox "无此文件！！": GoTo 100
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f)
Set sh = wb.Worksheets(sj)
r = sh.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
ar = .Range("g9:g13")
br = .Range("g14:g20")
cr = .Range("j8:j13")
dr = .Range("j16:j23")
crr = .Range("m9:m11")
sh.Cells(r, 1).Resize(1, UBound(ar)) = Application.Transpose(ar)
sh.Cells(r, 6).Resize(1, UBound(br)) = Application.Transpose(br)
sh.Cells(r, 13).Resize(1, UBound(cr)) = Application.Transpose(cr)
sh.Cells(r, 19).Resize(1, UBound(dr)) = Application.Transpose(dr)

sh.Cells(r, 1).Resize(1, 26).Borders.LineStyle = xlContinuous
wb.Close True
End With
100:
Application.ScreenUpdating = True
End Sub

新时代新征途 · 发表于 2018-4-20 21:53

hyqzzs 发表于 2018-4-20 21:00
Sub 保存()
Application.ScreenUpdating = False

老师您好！保存时第一行就保存到了23行了，应该是从第六行开始保存的。谢谢！

hyqzzs · 发表于 2018-4-20 22:00

你第6行到23行没使用，先删除、保存、关闭再试试

新时代新征途 · 发表于 2018-4-20 22:14

hyqzzs 发表于 2018-4-20 22:00
你第6行到23行没使用，先删除、保存、关闭再试试

老师您好！太神奇了！

hyqzzs · 发表于 2018-4-20 22:20

共同学习，共同进步

新时代新征途 · 发表于 2018-4-24 23:10

hyqzzs 发表于 2018-4-20 22:20
共同学习，共同进步

老师您好！有一事相求。谢谢！会出现运行时错误3706 未找到提供程序。该程序可能未正确安装。应如何解决？谢谢！

请看附件：

汇总.rar (85.69 KB, 下载次数: 2)

新时代新征途 · 发表于 2018-8-5 15:56

hyqzzs 发表于 2018-4-20 22:20
共同学习，共同进步

老师您好！有个问题请您帮忙解决。因为在4个半月前您曾经帮我解决过同样的问题，所以，今天还拜托您帮我解决同样的问题。谢谢！

问题在附件里面：

信息录入.zip (18.47 KB, 下载次数: 4)

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

[求助] 求助解决保存时出现“下标越界”的问题

评分

评分

评分