【原】如果使用VBA经常需要输入以下的表头

如果使用VBA经常需要输入以下的表头。

方法有很多种。

最简单易容易理解的可以使用以下代码：

Private Sub CommandButton1_Click() Range("a1") = "姓名" Range("b1") = "性别" Range("c1") = "年龄" Range("d1") = "手机号" Range("e1") = "工资"End Sub

最快速简洁的可以使用以下代码操作:

Private Sub CommandButton1_Click() Range("a1:e1") = Array("姓名", "性别", "年龄", "手机号", "工资")End Sub

然而，这都不是我今天想说的，我想介绍的是一个offset使用，主要可以用来引用相对单元格。

对象.offset(行方向的移动数，列方向的移动数)

如下代码，行不偏移，列不断向右偏移。

Private Sub CommandButton1_Click() Range("a1") = "姓名" Range("a1").Offset(0, 1) = "性别" Range("a1").Offset(0, 2) = "年龄" Range("a1").Offset(0, 3) = "手机号" Range("a1").Offset(0, 4) = "工资"End Sub

以上代码，发现Range("a1")大量重复使用，可使用with语句进行简写。

Private Sub CommandButton1_Click() With Range("a1") .Value = "姓名" .Offset(0, 1) = "性别" .Offset(0, 2) = "年龄" .Offset(0, 3) = "手机号" .Offset(0, 4) = "工资" End WithEnd Sub

主要通过以上例子掌握offset的使用和with语句缩写的使用。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。