VBA 入门课程

《VBA 入门课程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VBA入门教程VBALesson1程序说明：几种用VBA在单元格输入数据的方法：PublicSubWrites()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)，Ro

2、w是单元格行数，Column是单元格栏数。5  Cells(1,4)=400  '在D1单元格输入400。6  Range(Cells(1,5),Cells(5,5))=50  '在E1:E5单元格输入50。EndSub你点选任何单元格，按Selection按钮，則则所点选的单元格均会被输入文字"Test"。PublicSubSelection1()  Selection.Value="Test"  '在任何你点选的单元格输入文字"Test"。EndSub"观看本程序的方法：粗体文字为程序，其它字体均为说明文字。按快捷键Alt+F11

3、即可看到程序。"VBALesson2程序说明：几种如何把别的工作表Sheet4数据，读到这个工作表的方法：在被读取的单元格前加上工作表名称  Sheet4。PublicSubWrites()1--2方法，最简单在被读取的  "[  ]"前加上被读取的工作表名称Sheet4。1  [A1]=Sheet4.[A1]  '把Sheet4A1单元格的数据，读到A1单元格。2  [A2:A4]=Sheet4.[B1]  ''把Shee4工作表单元格B1数据，读到A2:A4单元格。3--4方法，在被读取的工作表Range("")的Range前加上

4、被读取的工作表名称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

5、(Cells(1,5),Cells(5,5))=Sheet4.Cells(1,5)  '把Shee4-8-VBA入门教程工作表单元格E1数据，读到E1:E5单元格。EndSub你点选任何单元格，按Selection按钮，则所点选的单元格均会被输入Shee4工作表单元格F1数据。PublicSubSelection1()  Selection.Value=Sheet4.[F1]  '把Shee4工作表单元格F1数据，读到任何你点选的单元格。EndSubVBALesson3程序说明：如何利用Worksheet_SelectionChang

6、e输入数据的方法。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)  Target=100EndSubTarget指的是你鼠标所选的单元格，Worksheet_SelectionChange()事件的参数。可以是一个也可以是好几个单元格。Range是Excel特有的变量形态，叫范围。TargetAsRang是把Target这个参数设定为Range变量形态。Target=100是把你点选的单元格输入数字100。VBALesson4程序说明：如何利用Worksheet_Sele

7、ctionChange在限定的单元格输入数据的方法。PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)  IfTarget.Row>=2AndTarget.Column=2Then    Target=100  EndIfEndSubIf...  Then...EndIf这是我们学的这一个逻辑判断语句。Target.Row>=2，指的是鼠标选定的单元格的行大于或等于2。Target.Column=2，指的是鼠标选定的单元格的栏等于2。IfTarget.Row>=2AndTar

8、get.Column=2Then指的是只有在Target.Row>=2及Target.Column=2二个条件成立时。就是(Target.Row>=2)为True及(Target.Column=2)为True时，才执行下