day7: 了解Excel结构(上)

在我们即将利用VBA去控制Excel完成一些重复繁琐的工作时，我们需要了解一下Excel有哪些基本结构。

假设现在需要你打开一个名为“001.xlsx“表格文件第一个工作表的第一个单元格。往里面输入一个数字“1”。你需要做以下几个步骤

1. 打开Excel应用程序

2. 打开001.xlsx

3. 选中第一个工作簿

4. 选中A1单元格

5. 输入数值”1“

其中这些步骤所对应的对象为下

对象说明

• Application代表Excel应用程序

• Workbook代表工作簿，也就是xlsx表格文件

• Worksheet代表工作表，也就是左下角的sheet1,sheet2啥的

• Range单元格，或者单元格区域

• Value代表单元格的值，除了value属性外，还有其它的比如字体型号，颜色等

咋一看，好像要记的东西有点多呀。其实，很多时候，我们只需要记住最后三个就可以了，为啥，因为一般来说，当我们运行宏的时候，第一步和第二步已经完成了。甚至大部分情况下，我们都是在同一个工作表下操作，甚至第三步，大部分情况也是可以省略的。所以下面我们编写一个宏，来验证一下上面的问题。

Sub 宏001() ’记得是英文括号噢！
Range("A1").value="1"
End Sub '结束宏

运行效果

- 那，要是合并单元格，我咋输入数字呢？比如下面这样：

对于合并单元格，有三种写入的方式。

1. 起始单元格写入

• 合并单元格常见提示
  
• 我们知道，当我们把多个单元格合并时，默认只保留左上角的单元格数据，所以左上角的数据可以说是合并单元格的源数据。所以如果要在A1:B1合并单元格写入数据，只用在A1单元格写入数据即可。

2.合并单元格写入

合并单元格的表达方法就是Range(A:B)，A代表左上角的起始单元格，B代表右下角的结束单元格。所以我们只需要这么写代码就可以写入了。

Sub 宏002() '记得是英文括号噢！
Range("A1:B1").Value = "1"
End Sub '结束宏

这里补充一句，假设A1:B1不是合并单元格，那么运行上面这个宏，最后两个单元格都会写入”1“；

3. 输入框输入

• 有时候我们要输入的东西太多的时候，我们常常选中输入框输入。比如我们要在A1单元格输入公式，”=if(A2>B2,”你比我大”,”你可能比我小“)“

这个操作怎么完成呢？我们其实做了两步工作：
- 1.选中A1单元格
- 2.在输入框输入: =if(A2>B2,”你比我大”,”你可能比我小“)

那么问题来了，这个代码怎么写呢？额，其实，我也不会呀。
啥？你也不会，那你还写毛线博客？溜了！溜了！
但是，我不会写，VBA会自己写呀。
啥？你逗我吧。VBA可以自己写代码？
没啊！你不记得，第三节录制宏的时候，它的代码不就是自己生成的咩？
好像也是噢！

所以到了这里，我们只需要启动录制宏功能，然后根据刚刚分解的两个步骤，录制一个宏。然后点击宏-编辑功能，查看相关代码。代码如下：

Sub 录个宏来看代码()
' 录个宏来看代码 宏
Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(R[1]C>R[1]C[1],""你比我大"",""你可能比我小"")"
End Sub

• 上面的代码，我们可以看出两个东西。选中用的是.Select,输入框是ActiveCell.Formula，R1C1是啥东西呢？R,是row,也就是行的意思，C是column，也就是列的意思。

• ActiveCell.FormulaR1C1,其实就是选中的单元格起始点。不然你在A2输入框输入数字也是这样的。至于右边的东东，R[1]C起始就是R[1][0]，意思是说，我选中的这个单元格，相对于起始单元格，行，往下一行，列不动，也就是从A1,变成A2；同样的，R[1]C[1]就是行列各偏移一个单元格。好像和Offset函数一个样子。

• 其实没必要去记宏的代码，只要会录制，会用即可。(前提你也能基本看懂它的代码结构才行呀)

• 结语：其实为啥微软一直没有放弃用VBA这种低效率（相对于其它编程语言）作为window桌面程序的第三方编程控制语言，可能最大的原因就是因为它可以通过录制宏，自动生成相关代码吧。录制宏真的真的很重要，有时候可以帮我们解决很多难以记住的代码，我们所需要做的，就是把整个操作步骤分解，然后通过录制一个简单的宏，去修改他的代码，以达到为我所用的地步。