[已解决]请高手们帮帮忙,谢谢了!

lbhlbh

Sheets(Array("表1", "表2", "表3","表4")).Select
    Sheets("表1").Activate
    Cells.Select
    Sheets("出库单列表").Select
    Cells.Select
    Selection.Copy
    Sheets(Array("表1", "表2", "表3")).Select
    Sheets("表1").Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
我有以上一段代码,当表1 ,表2.表3,表4等不存在或表名称不同时(或者表的数量不止4张), 如何修改 以上代码,  代码运行才 不会出错,请高手们帮帮忙了,谢谢

最佳答案

月排行榜 / 总排行榜

810126769

2014-4-10 21:15

lbhlbh 发表于 2014-4-10 19:45
主要是根据“出库单列表”C列和E列的部门和类别名称生成 的，谢谢了

请试试看吧，不知道是不是你想要的效果，
(, 下载次数: 2)

上传

点击文件名下载附件

跳转到最佳答案楼层

810126769

加上：
开始：
application.displayalerts=false

结尾：
application.displayalerts=true

lbhlbh

810126769 发表于 2014-4-8 16:43
加上：
开始：
application.displayalerts=false

我不怎么懂的,这两句代码具体加在那里?,谢谢了

810126769

lbhlbh 发表于 2014-4-8 17:16
我不怎么懂的,这两句代码具体加在那里?,谢谢了

sub   你的代码名（）
application.displayalerts=false

…………你的代码

application.displayalerts=true
end sub

lbhlbh

810126769 发表于 2014-4-8 21:03
sub   你的代码名（）
application.displayalerts=false

你好，还是不行的，还是提示：“下标越界”。

810126769

lbhlbh 发表于 2014-4-8 21:12
你好，还是不行的，还是提示：“下标越界”。

发附件吧，可能还得加上一段判断是否存在这几个工作表的代码。

lbhlbh

810126769 发表于 2014-4-8 21:19
发附件吧，可能还得加上一段判断是否存在这几个工作表的代码。

好的，谢谢了

810126769

lbhlbh 发表于 2014-4-8 21:34
好的，谢谢了

请测试：
固定.zip (262.35 KB, 下载次数: 3)

2014-4-8 22:06 上传

点击文件名下载附件

1. Sub 宏3()
   
2. '
   
3. Dim ar, i As Byte, j%, k As Byte
   
4. ar = Array("校办", "财务室", "后勤处")
   
5. For i = 1 To UBound(ar)
   
6.     For j = 1 To Sheets.Count
   
7.         If Sheets(j).Name = ar(i) Then
   
8.            k = k + 1
   
9.            Exit For
   
10.         End If
    
11.     Next j
    
12.          If k = 0 Then
    
13.             Sheets.Add after:=Sheets(Sheets.Count)
    
14.             ActiveSheet.Name = ar(i)
    
15.          End If
    
16.          k = 0
    
17. Next i
    
18.     Sheets(Array("校办", "财务室", "后勤处")).Select
    
19.     Sheets("校办").Activate
    
20.     Cells.Select
    
21.     Sheets("出库单列表").Select
    
22.     Cells.Select
    
23.     Selection.Copy
    
24.     Sheets(Array("校办", "财务室", "后勤处")).Select
    
25.     Sheets("校办").Activate
    
26.     Cells.Select
    
27.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    
28.         SkipBlanks:=False, Transpose:=False
    
29.     Application.CutCopyMode = False
    
30.     Range("A1:S1").Select
    
31.     ActiveCell.FormulaR1C1 = "=R[2]C[2]&""  使  用  固  定  资  产  明  细  表"""
    
32.     Range("A2").Select
    
33.     Sheets("出库单列表").Select
    
34.     Range("A18").Select
    
35. End Sub
    

复制代码

lbhlbh

810126769 发表于 2014-4-8 22:07
请测试：

先谢谢了,明天试试看,晚了.非常谢谢

lbhlbh

810126769 发表于 2014-4-8 22:07
请测试：

你好，真的不好意思，才有空上网，上面的代码还是不理想，ar = Array("校办", "财务室", "后勤处")这句代码已经限制了：当校办表和后勤表是固定不变的,中间的财务室表等是可以变的,有时名称也不同,表的量也可能是好几张,表名也是随时变换的，执行该宏还是会有错误，能不能在修改 ar = Array("校办", "财务室", "后勤处")这句代码，才能达到上面 的要来。谢谢了