不懂VBA也编程

山菊花

批量增加滚动条：
1、设置好插入列的宽度
2、右键点击工作表标签，选择“查看代码”，把下面的代码粘贴到光标处：

1. Sub 插入滚动条()
   
2.     Dim nL, nH, nW
   
3.     Range("a3:a50").RowHeight = 24
   
4.     nL = Range("b1").Left
   
5.     nH = Range("b1").Height
   
6.     nW = Range("b1").Width
   
7.     Application.ScreenUpdating = False
   
8.     Me.DrawingObjects.Delete
   
9.     For i = 3 To 50
   
10.         With Me.ScrollBars.Add(nL, Range("a" & i).Top, nW, nH)
    
11.             .Value = 0
    
12.             .Min = 0
    
13.             .Max = 100
    
14.             .SmallChange = 1
    
15.             .LargeChange = 10
    
16.             .LinkedCell = "A" & i
    
17.             .Display3DShading = True
    
18.         End With
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "插入完毕。"
    
22. End Sub

复制代码

3、根据实际需要修改代码。
4、在VBE窗口按F5运行代码，或在工作表窗口按Alt+F8运行代码。

jsgj2023

十分仰慕老师的才华，好想听老师的课，不知老师是否有带学生？

山菊花

jsgj2023 发表于 2016-9-5 21:30
十分仰慕老师的才华，好想听老师的课，不知老师是否有带学生？

高看山菊花了。
这个学期我有240多个学生，小学四年级学生。

jsgj2023

山菊花 发表于 2016-9-5 22:43
高看山菊花了。
这个学期我有240多个学生，小学四年级学生。

那就让我当您的小学生吧，如方便，老师可否私下告知学校地址？好想有机会能去拜访您。

d346836673

好好学习   天天向上！

d346836673

这些东东很实用，必须收藏.

edo20

学习，感谢楼主

Lefty_Scorpio

这帖子相当接地气

qh莫莫

学习了,谢谢分享 很有用的                     

qh莫莫

学习了，谢谢分享啊