vba入门讲义(编辑修改稿)

vba入门讲义(编辑修改稿)内容摘要：

当前工作表D5 的姓名。 具体步骤： 新建或在刚才的代码后，再输入下面的代码： Sub sheetshuru() Sheets(数据库 ).Cells(4, 1) = Sheets(主界面 ).Range(D5) End Sub 代码说明： A、 在 VBA中表示工作表的方法是： Sheets(“工作表名称 ”) B、 表示工作表中某个单元格的方法是： Sheets(“工作表名称 ”).cells(行数，列数 ) 或 Sheets(“工作表名称 ”).Range(“单元格地址 ”) 返回最后一个非空单元格行数的行数。 27 C、 一个单元格的值等于另一个单元格值用 =连接即可，等号后的单元格值会输入到等号前 单元格中。 练习：在刚才的程序中补充，完成数据库工作表中的 A B C D4 单元格分别等于主界面的 D D D D11 单元格值。 结果是： Sub sheetshuru() Sheets(数据库 ).Cells(4, 1) = Sheets(主界面 ).Range(D5) Sheets(数据库 ).Cells(4, 2) = Sheets(主界面 ).Range(D7) Sheets(数据库 ).Cells(4, 3) = Sheets(主界面 ).Range(D9) Sheets(数据库 ).Cells(4, 4) = Sheets(主界面 ).Range(D11) End Sub 从代码我们可以看出，每句代码都带有 Sheets(数据库 ),如果有很多行这样的代码， 会造成过多的重复录入。 我们是否可以只写一次，后面的工作表 代码 可以省略呢。 答案是肯定的，我们可以用 with 语句。 使用 with 后的代码更改为： Sub sheetshuru() With Sheets(数据库 ) .Cells(4, 1) = Sheets(主界面 ).Range(D5) .Cells(4, 2) = Sheets(主界面 ).Range(D7) .Cells(4, 3) = Sheets(主界面 ).Range(D9) .Cells(4, 4) = Sheets(主界面 ).Range(D11) End With End Sub 注： with 语句一定要有结束的语句： End with 返回最后一个非空单元格行数的行数。 以上我们通过编写代码，可以把主界面的信息输入到数据库工作表中第四行的 14 列，但实际上数据会不停的添加，输入的位置也会不断的下移，并不是固定的 ，所以我们在输入前需要确定数据库中输入的行数。 在工作表中我们可以用 ctrl+箭头来选取顶点单元格，如在数据库的 A100处按 CTRL+向上箭头会选取 A列最下面一个非空单无格。 如果用 VBA来定位呢。 方法是 Range(“A65536”).End（ xlup）就表示 A列最下边一个 非 空单元格。 如果得到它的行数呢。 方法是 Range(“A65536”).End（ xlup） .row 而 Range(“A65536”).End（ xlup） .row+1 则是我们需要输入新记录的位置。 输入的 行数我们得到了。 我们 就 可以完成第一个输入按钮的 大 部分任务，即不断的向数据库工作表添加新的人员信息。 Sub luru() 错误 !文档中没有指定样式的文字。 错误 !文档中没有指定样式的文字。 28 With Sheets(数据库。