查看: 1511|回复: 6
[已解决]请高手帮忙修改代码
打开《汇总》表，点宏想把把其他中的〈表3〉的内容到总表相应表。如《1月》文档的《Sheet3》内容填写到1月，《2月》文档的《Sheet3》内容填写到2月。之前如已复制则不再复制(即1月、2月…..已存在内容则不复制，是空的需复制）。以下代码运行打开以下文件发生错误：1月.xls、2月.xls、。。。12月.xls。请高手帮忙修改，谢谢。代码如下：Sub test()& & Dim&&Msg As String, Sht As Worksheet& & For Each Sht In Worksheets& && &If Sht.Name = ActiveSheet.Name Or Application.WorksheetFunction.CountA(Sht.Cells) Then GoTo myNext& && &On Error Resume Next& & ' 改变错误陷阱。& & Workbooks.Open Filename:=Sht.Name & ".xls", ReadOnly:=True& && &'检查打开文件时可能发生的错误。& & If Err.Number && 0 Then '如果某月文件已经打开，也将进入此错误处理，且不复制。& && &Msg = Msg & Sht.Name & ".xls" & vbCr& && && & Err.Clear& & ' 清除 Err 对象字段。& && &GoTo myNext& && &End If& & Workbooks(Sht.Name & ".xls").Worksheets("sheet3").Cells.Copy Sht.Range("a1")& & Workbooks(Sht.Name & ".xls").Close SaveChanges:=FalsemyNext:& & Next& & If Msg && "" Then MsgBox "打开以下文件错误:" & vbCr & Msg, , "错误信息"End Sub见附件：
(17.03 KB, 下载次数: 0)
21:05 上传
点击文件名下载附件
请高手帮忙修改代码
爱疯发布于
(13.7 KB, 下载次数: 1)
22:20 上传
点击文件名下载附件
请高手帮忙修改代码
&&&本楼为最佳答案&&&
(13.7 KB, 下载次数: 1)
22:20 上传
点击文件名下载附件
请高手帮忙修改代码
请教，在我第一个附件上可以实现，但复制把代码应用时为什么实现不了需要的效果呢？见附件：
(47.66 KB, 下载次数: 0)
23:56 上传
点击文件名下载附件
[已解决]请高手帮忙修改代码
(24.83 KB, 下载次数: 0)
09:30 上传
点击文件名下载附件
[已解决]请高手帮忙修改代码
不好意思，发现问题在那报，已解决，非常感谢。
[此贴子已经被作者于 20:04:58编辑过]
19:12 上传
点击文件名下载附件
111.56 KB, 下载次数: 0
以下是引用入伍小兵在 19:11:00的发言：不好意思，发现问题在那报，已解决，非常感谢。
(24.83 KB, 下载次数: 1)
22:09 上传
点击文件名下载附件
[已解决]请高手帮忙修改代码
没看到你说的3月不能复制呀。03和07都试了。要不你再44
对不起。是我搞错了。代码没问题。非常感谢。
Powered by查看: 1021|回复: 4
[已解决]帮忙修改下VBA代码
本帖最后由 刘洪裕 于
15:39 编辑
指定数据插入空列
16:35 上传
点击文件名下载附件
32.53 KB, 下载次数: 11
爱疯发布于
原代码是在&3值&右边插入4列，而现在想改为&3值&左边边插入3列，是吗？
如果是，改为蓝色这句即可
Sub InsertCol()
& & Dim Ar, i%
& & Ar = Sheets(&表格1&).Range(&a1&, Sheets(&表格1&).Cells(1, Columns.Count).End(xlToLeft))
& & Application.ScreenUpdating = False
& & For i = UBound(Ar, 2) To 1 Step -1
& && &&&If Ar(1, i) = &3值& Then
& && && && &Debug.Print Range(Cells(1, i - 2), Cells(1, i)).Address(0, 0)
& && && &&& Range(Cells(1, i - 2), Cells(1, i)).EntireColumn.Insert Shift:=xlToRight
& && &&&End If
& & Application.ScreenUpdating = True
&&&本楼为最佳答案&&&
原代码是在&3值&右边插入4列，而现在想改为&3值&左边边插入3列，是吗？
如果是，改为蓝色这句即可
Sub InsertCol()
& & Dim Ar, i%
& & Ar = Sheets(&表格1&).Range(&a1&, Sheets(&表格1&).Cells(1, Columns.Count).End(xlToLeft))
& & Application.ScreenUpdating = False
& & For i = UBound(Ar, 2) To 1 Step -1
& && &&&If Ar(1, i) = &3值& Then
& && && && &Debug.Print Range(Cells(1, i - 2), Cells(1, i)).Address(0, 0)
& && && &&& Range(Cells(1, i - 2), Cells(1, i)).EntireColumn.Insert Shift:=xlToRight
& && &&&End If
& & Application.ScreenUpdating = True
超过表格的列限制了。
在10里最大只有16384列。
代码没什么问题。
1行内有4000多个3值的单元格。
每一个插3列就要插入12000列。
在没有插入的情况下，已经用了16000列了。
所以，到最后报错了，工作表的列都用完了。
QQ截图14.jpg (14.29 KB, 下载次数: 0)
17:24 上传
Powered by查看: 795|回复: 10
求助帮忙解决下关于修改下原有点击实现套打印的代码
阅读权限20
在线时间 小时
& & & & & & & &
例如一行中有几十个阿拉伯数字，一般情况下如一行中有很多个： 1&&1 4& &&&2 6& & 3&&4& &5.1&&5.2& &6& &7 5.1&&8&&9& &10，但我需筛选出不重复的数，1& & 2& &3&&4& &5.1&&5.2& &6& &7& &8&&9& &10，按照不重复的数编码打印，谢谢，求帮忙
16:52 上传
点击文件名下载附件
45.25 KB, 下载次数: 4
阅读权限20
在线时间 小时
请尽量不要修改原有代码，，，，就修改原先以A1为基础进行点击打印修改下，以帐务清单B:B列不重复的数，按照顺序进行打印。。。。。。。。。。。。。。。。。对了刚才没表术下，，需要按照阿拉伯数字从小到大排列进行打印
阅读权限20
在线时间 小时
在线等，老师帮忙解决下
阅读权限20
在线时间 小时
没人帮忙吗，，，求助
阅读权限20
在线时间 小时
(45.05 KB, 下载次数: 9)
18:21 上传
点击文件名下载附件
不太明白你的意思，按我的理解做的。将查询按钮指向下面这个宏。其它代码都没改
Public Sub PrintMore()
Dim rowCount As Integer
With ThisWorkbook.Worksheets(&帐务清单&)
rowCount = .Range(&a& & .Rows.Count).End(xlUp).Row
End With
Dim i As Integer
For i = 2 To rowCount - 1
& & If ThisWorkbook.Worksheets(&帐务清单&).Cells(i, 2) = ThisWorkbook.Worksheets(&帐务清单&).Cells(i + 1, 2) Then
& & Else
& && &&&ThisWorkbook.Worksheets(&凭证查询与补打&).Cells(1, 1) = ThisWorkbook.Worksheets(&帐务清单&).Cells(i, 2)
& && &&&凭证查询
& && &&&Application.Dialogs(xlDialogPrint).Show
& & End If
Next
End Sub复制代码
阅读权限20
在线时间 小时
& & & & & & & &
不太明白你的意思，按我的理解做的。将查询按钮指向下面这个宏。其它代码都没改
你好，太感谢你了，，，，跟我要求的很接近，问题解决，谢谢
阅读权限20
在线时间 小时
& & & & & & & &
不太明白你的意思，按我的理解做的。将查询按钮指向下面这个宏。其它代码都没改
你好，，，刚试了还有个问题。。。。。能否按照从小到大的顺序打印，
阅读权限20
在线时间 小时
刚试了代码。。。。帐务清单BB列，，，，，我的数字并没有按照顺序编制，，，，，刚试了下都是按照不重复的数字打印，跟我想要的结果一样，可是我需要从小到大排列
阅读权限20
在线时间 小时
& & & & & & & &
刚试了代码。。。。帐务清单BB列，，，，，我的数字并没有按照顺序编制，，，，，刚试了下都是按照不重复的 ...
1.提醒一下，我的算法，把有重复的编号会打印1次，最后一个会漏掉。即1，1，1，2，2，3，4，5会输出1，2，3，4。不太明白你的需求，就没多想这些细节。
2.账务清单排序可以在代码中实现，你也可以手工排一下
阅读权限20
在线时间 小时
1.提醒一下，我的算法，把有重复的编号会打印1次，最后一个会漏掉。即1，1，1，2，2，3，4，5会输出1，2 ...
是的，最后一个我改好了。。。。。。帮忙解决下排序，，，，用VBA，添加到您刚给我的代码上，好吗，谢谢
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师