生成工资条时显示“找不到工程或库”

jx6831

烦请老师帮我看看，生成工资条时找不到工程或库，以前能正常生成，换了电脑就不行了。

loirol

盲猜wps上写的宏新电脑用的office



把这个丢失√去掉试一下，或者用回wps

赵桢0611

我用的WPS，显示正常

jx6831

麻烦能不能修改成office能用的？

ykcbf1100

jx6831 发表于 2024-12-24 10:14
麻烦能不能修改成office能用的？

office可以试试这个。

jx6831

ykcbf1100 发表于 2024-12-24 10:20
office可以试试这个。

可以了谢谢

3190496160

我这里win10系统，微软2010运行正常，
之所以会出现找不到工程或库的错误提示，多数情况下是因为在低版本中写的代码，变量又没有定义，在高版本中运行代码时，就会出现这种错误提示

Qs18

1. Sub qs()
   
2. Application.ScreenUpdating = False
   
3. Dim rng As Range
   
4. a = [{"计件工资","计件工资条";"计时工资","计时工资条"}]
   
5. For ai = 1 To UBound(a)
   
6.     With Sheets(a(ai, 1))
   
7.         rw = .Cells(Rows.Count, 2).End(3).Row
   
8.         k = 1
   
9.         For i = 4 To rw
   
10.         Set rng = .Range("a3").EntireRow
    
11.         Set rng = Union(rng, .Range("a" & i).EntireRow)
    
12.         rng.Copy Sheets(a(ai, 2)).Range("a" & k)
    
13.         k = k + 3
    
14.         Set rng = Nothing
    
15.         Next
    
16.     End With
    
17. Next ai
    
18. Application.ScreenUpdating = True
    
19. End Sub

复制代码

Qs18

试试........

Qs18

试试......