欢迎来到天天文库
浏览记录
ID:37908625
大小:52.50 KB
页数:8页
时间:2019-06-02
《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时,才执行下
此文档下载收益归作者所有