1 程序说明: 几种用 VBA 在单元格输入数据的方法: Public Sub Writes() 1-- 2 方法,最简单在"[ ]" 中输入单元格名称。 1 [A1] = 100 '在 A1 单元格输入 100 。 2 [A2:A4] = 10'在 A2:A4 单元格输入 10。 3-- 4 方法,采用 Range(" "),"" 中输入单元格名称。 3 Range("B1") = 200 '在 B1 单元格输入 200 。 4 Range("C1:C3") = 300 '在 C1:C3 单元格输入 300 。 5-- 6 方法,采用 Cells(Row,Column) , Row 是单元格行数, Column 是单元格栏数。 5 Cells(1, 4)= 400 '在 D1 单元格输入 400 。 6 Range(Cells(1, 5), Cells(5, 5)) = 50'在 E1:E 5 单元格输入 50。 End Sub 你点选任何单元格,按 Selection 按钮, 則则所点选的单元格均会被输入文字"Test" 。 Public Sub Selection1() = "Test" ' 在任何你点选的单元格输入文字"Test" 。 End Sub " 观看本程序的方法: 粗体文字为程序,其它字体均为说明文字。按快捷键 Alt+F11 即可看到程序。" 几种如何把别的工作表 Sheet4 数据, 读到这个工作表的方法: 在被读取的单元格前加上工作表名称 Sheet4 。 Public Sub Writes() 1-- 2 方法,最简单在被读取的"[ ]" 前加上被读取的工作表名称 Sheet4 。 1 [A1] = Sheet4.[A1] '把 Sheet4 A1 单元格的数据,读到 A1 单元格。 2 [A2:A4] = Sheet4.[B1] ''把 Shee4 工作表单元格 B1 数据,读到 A2:A4 单元格。 3-- 4 方法,在被读取的工作表 Range(" ")的 Range 前加上被读取的工作表名称 Sheet4 。 3 Range("B1") = ("B1") ''把 Shee4 工作表单元格 B1 数据,读到 B1单元格。 4 Range("C1:C3") = ("C1") '把 Shee4 工作表单元格 C1 数据,读到 C1:C3 单元格。 2 5-- 6 方法,在被读取的工作表 Cells(Row,Column) , Cells 前加上被读取工作表名称 Sheet4 。 5 Cells(1, 4)= (1, 4)'把 Shee4 工作表单元格 D1 数据,读到 D1单元格。 6 Range(Cells(1, 5), Cells(5, 5)) = (1, 5)'把 Shee4 工作表单元格 E1 数据,读到 E1:E 5 单元格。 End Sub 你点选任何单元格,按 Selection 按钮, 则所点选的单元格均会被输入 Shee4 工作表单元格 F1 数据。 Public Sub Selection1() = Sheet4.[F1] '把 Shee4 工作
VBA权威教程 来自淘豆网www.taodocs.com转载请标明出处.