VBA 入门课程.docVIP

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()? ? Selection.Value = Test??在任何你点选的单元格输入文字 Test。End Sub观看本程序的方法：粗体文字为程序，其它字体均为说明文字。按快捷键 Alt+F11即可看到程序。 VBALesson2 程序说明：几种如何把别的工作表 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) = Sheet4.Range(B1)??把 Shee4工作表单元格 B1 数据，读到??B1 单元格。4? ?Range(C1:C3) = Sheet4.Range(C1)??把 Shee4 工作表单元格 C1 数据，读到 C1:C3 单元格。5-- 6 方法，在被读取的工作表 Cells(Row,Column)，Cells 前加上被读取工作表名称 Sheet4。5??Cells(1, 4) = Sheet4.Cells(1, 4)??把 Shee4 工作表单元格 D1 数据，读到 D1 单元格。6? ?Range(Cells(1, 5), Cells(5, 5)) = Sheet4.Cells(1, 5)??把 Shee4 工作表单元格 E1 数据，读到 E1:E 5单元格。End Sub你点选任何单元格，按 Selection 按钮，则所点选的单元格均会被输入 Shee4 工作表单元格 F1 数据。Public Sub Selection1()? ?Selection.Value = Sheet4.[F1]??把 Shee4 工作表单元格 F1 数据，读到任何你点选的单元格。End Sub VBALesson3 程序说明：如何利用 Worksheet_SelectionChange 输入数据的方法。Private Sub Worksheet_SelectionChange(ByVal Target As Range)??Target = 100End SubTarget 指的是你鼠标所选的单元格，Worksheet_SelectionChange() 事件的参数。可以是一个也可以是好几个单元格。Range 是 Excel 特有的变量形态，叫范围。Target As Rang 是把 Target 这个参数设定为 Range 变量形态。Target = 100 是把你点选的单元格输入数字100。 VBALesson4 程序说明：如何利用 Worksheet_SelectionChange 在限定的单元格输入数据的方法。Private Sub Worksheet_SelectionChange(ByVal Target As Range)? ?If Target.Row = 2 And Target.Column = 2 Then? ?? ?Target = 100? ? End IfEnd SubIf ...??Then ... End If 这是我们学