VBA入门教程.doc

几种用VBA在单元格输入数据的方法

这是试写的VBA的课程 VBALesson1,希望各位给予意见,以便以后改进。
程序说明:
几种用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 单元格。
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 工作表单元格 F1 数据,读到任何你点选的单元格。
End Sub
读取别表数据

几种如何把别的工作表 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 单元格。
5-- 6 方法,在被读取的工作表 Cells(Row,Column)