此簿操控彼簿

ddz79101

老师！我想用《操控》簿，操作《目标》簿唯一表的原列序号，再加上一个给定的数字后，原序号随之发生变化。请老师帮忙看看。VBA可以操作吗？

ykcbf1100

参与一下。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.8
   
2.     Application.ScreenUpdating = False
   
3.     p = ThisWorkbook.Path
   
4.     f = p & "\目标.xls"
   
5.     Set wb = Workbooks.Open(f, 0)
   
6.     k = Application.InputBox("请输入增加数值：6", "增加数", 6)
   
7.     With wb.Sheets(1)
   
8.         r = .Cells(Rows.Count, 4).End(3).Row
   
9.         For i = 2 To r
   
10.             m = m + 1
    
11.             .Cells(i, "i") = m + .Cells(i, 4) - 1
    
12.             .Cells(i, "k") = .Cells(i, 4) + k
    
13.         Next
    
14.     End With
    
15.     wb.Close 1
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    
19. 
    

复制代码

蓝桥玄霜

加数的例子：

ddz79101

ykcbf1100 发表于 2024-7-8 14:39
参与一下。。。

谢谢老师！运行成功

ddz79101

蓝桥玄霜 发表于 2024-7-8 14:39
加数的例子：

谢谢老师！有点状况

ykcbf1100

ddz79101 发表于 2024-7-8 17:04
谢谢老师！有点状况

“目标．xls”这个“．”改成英文字母状态下的“."即可。是你自己抄错了

ddz79101

ykcbf1100 发表于 2024-7-8 18:22
“目标．xls”这个“．”改成英文字母状态下的“."即可。是你自己抄错了

谢谢老师！我修改了，将。XLS删除了，但这里有有问题了

ddz79101

ykcbf1100 发表于 2024-7-8 18:22
“目标．xls”这个“．”改成英文字母状态下的“."即可。是你自己抄错了

老师！你那里是否可以运行？

ykcbf1100

ddz79101 发表于 2024-7-8 18:59
老师！你那里是否可以运行？

版主的代码我没抄。不知道什么情况。