Excel VBA 入门教程，实现自动化办公。（一）

爱学习的林阿男同学:
1.变量 Integer 整数型 简写 % String 字符串型 简写$ Long 长整型 简写& 2.对象 2.1工作簿 Wo...

MSclx:
老师！！！！！！！！我完蛋了，我就是那个笨蛋 我点完了！！！！！！！！怎么办呀怎么办呀 我是MAC系统。。。。。

【回复】回复 @尼古阿拉 :真油腻啊
【回复】回复 @咖啡-兑酒 : 切，我弄好了
whatafuc:
关于第二章二维数组的一些理解。如数组arr(1 to 16, 1 to 3) 可以想象成一组排成16行、3列的空箱子（它很像Excel表格中一块16行3列的单元格区域），你可以往任何一个箱子放东西，如往第2行、第3列的箱子放入一个鸡蛋，写成arr(2,3)="鸡蛋"，懂得cells(2,3)的人应该能理解这个吧？只是二维数组不存在于Excel中，它存在于内存中，存在于我们的脑海中。当你想把鸡蛋放到Excel表格中时，可以将arr(2,3)赋予任意单元格，如cells(4,2)=arr(2,3), 那么“鸡蛋”就给写进B4单元格了。 本教程中吴老师的理解，相当于一维中有16个大箱子，每个大箱子里面又有3个小盒子，这些小盒子就算是二维了，如arr(2,3) 就相当于第二个大箱子里的第3个小盒子...这么理解也没有错，但是数组的排列就不像Excel表格中的单元格区域了。我觉得初学者肯定更容易接受第一种理解吧？

【回复】你就把单一数组空间想象成监狱隔间，数组编号就是房间号，不要想象成立体的，不然后面多维数组你就绕不出来了。i（1，1，1，1，1，1）房间一编号，i（1，1，1，1，1，2）房间二编号
【回复】问题还有多维数组，可能有三维数组四维数组五维数组
【回复】在CAD中布尔运算是常态，在EXCEL找半天也找不到它的身影。
xgl006:
求课件，对VBA有了解，再次温习一下。[呲牙]

【回复】office安装包 https://pan.baidu.com/s/13deD-NmZ2VDJtPHuCxQ5_A 提取码：2222
swishshot:
这是我看了很多电子书和视频后，看到的最清楚的讲解，每个功能代码作者都会自己输入一遍，而不是照本宣科。作者输入的过程，对于初学者非常好的学习过程。[支持][支持][支持]

15927710246:
Sub text() y = InputBox("请输入你的出生年份") n = 2022 - y MsgBox "你已经”& n & "岁了" End Sub 为什么说我语法错误？主要是msgbox这句？是我没有注意到什么吗？

【回复】MsgBox "你已经”& n & "岁了"，&两端要有空格，改为 MsgBox "你已经” & n & "岁了"
【回复】我知道了，应该在英文状态下输入双引号。
【回复】试试ONLYOFFICE可以在Windows、Linux、macOS等多种操作系统上完美运行，同时还支持Android和iOS移动设备。这意味着用户可以在任何设备上随时访问和编辑文档，实现无缝的办公体验。
我是小萌侠:
在1-26节的时候，我想把所有的列都把不及格分数做三格（从1开始数）标记红色，代码如下Sub tqq() Dim ss As Range, n% For n = 3 To 12 Step 3 For Each ss In Range("n2", Cells(Rows.Count, 3).End(xlUp)) If ss.Value < 60 Then ss.Offset(0, -2).Resize(1, 3).Interior.ColorIndex = 3 End If Next ss Next n End Sub 但是结果在做后一列有问题，成果如下

whatafuc:
标记：2022年10月23日23:24:25 刚学完第二章，继续坚持。

【回复】回复 @阿妞一二 :不需要，也没见过。
老实内向害羞不爱说话:
这节bug有点多 1. FF——CC 2.A:A - C:C < 8 3.A:A - C:C应该放进DO循环里 该在A列里随机抽8个人出来，然后再A列里删除这8个，不然原方法越往后越难找到 很卡

是小白鸦233:
老师您好，我想请问，在对象这一章，给工作簿命名时，我输入 Sub 赋值() 【b1】 = Workbooks("vba-16.xlsm").Name End Sub 运行显示下标越界是什么意思，怎么解决呢？

断水流兵长:
Columns("1 : 2").Delete 是错误代码，Columns("A : B").delete是错误代码，Columns(i & ":" & i+1).delete其中i为最右侧非空单元格列数，也是错误代码，只能是Columns("A:B")delete（用英文表示列）或者Columns(i).resize(,2).delete才能运行。也就是说Columns表示某几行时只能用英文字母。Columns(i & ":" & i+1).delete在WPS的vba中无法运行，在office的vba中写在程序里可以运行，但是单列出来就报错。

【回复】Columns(1:2)，用数字的时候不要加引号
阿妞一二:
P64 这个代码运行不了，提示类型不匹配，是为什么，我照着老师抄的 Sub test() Dim ss$, wb As Workbook, h%, z As Range Cells.Clear ss = Dir(ThisWorkbook.Path & "\") Do If ss <> ThisWorkbook.Name Then Set wb = Workbooks.Open(ThisWorkbook.Path &"\"&ss) If ThisWorkbook.Sheets(1).【al】 ="" Then wb.Sheets(1).Cells.Copy ThisWorkbook.Sheets(1).【al】 Else wb. Sheets(1).Range("a2:h300").Copy z End If wb.Close End If h = Range("al").CurrentRegion.Rows.Count Set z=Cells(h+1，1) ss = Dir Loop Until ss ="" End Sub

莱茵高:
可以通过调整1To后面的数字的大小来控制时间长短哦