资源描述：
《《vba入门教程》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、几种用VBA在单元格输入数据的方法 这是试写的VBA的课程VBALesson1，希望各位给予意见，以便以后改进。程序说明：几种用VBA在单元格输入数据的方法：PublicSubWrites()1--2方法，最简单在"[]"中输入单元格名称。1[A1]=100'在A1单元格输入100。2[A2:A4]=10'在A2:A4单元格输入10。3--4方法，采用Range("")，""中输入单元格名称。3Range("B1")=200'在B1单元格输入200。4Range("C1:C3")=300'在C1:C3单
2、元格输入300。5--6方法，采用Cells(Row,Column)，Row是单元格行数，Column是单元格栏数。5Cells(1,4)=400'在D1单元格输入400。6Range(Cells(1,5),Cells(5,5))=50'在E1:E5单元格输入50。EndSub你点选任何单元格，按Selection按钮，則则所点选的单元格均会被输入文字"Test"。PublicSubSelection1()Selection.Value="Test"'在任何你点选的单元格输入文字"Test"。EndSub"观看本程序的方法：粗
3、体文字为程序，其它字体均为说明文字。按快捷键Alt+F11即可看到程序。" 读取别表数据 几种如何把别的工作表Sheet4数据，读到这个工作表的方法：在被读取的单元格前加上工作表名称Sheet4。PublicSubWrites()111--2方法，最简单在被读取的"[]"前加上被读取的工作表名称Sheet4。1[A1]=Sheet4.[A1]'把Sheet4A1单元格的数据，读到A1单元格。2[A2:A4]=Sheet4.[B1]''把Shee4工作表单元格B1数据，读到A2:A4单元格。3--
4、4方法，在被读取的工作表Range("")的Range前加上被读取的工作表名称Sheet4。3Range("B1")=Sheet4.Range("B1")''把Shee4工作表单元格B1数据，读到B1单元格。4Range("C1:C3")=Sheet4.Range("C1")'把Shee4工作表单元格C1数据，读到C1:C3单元格。5--6方法，在被读取的工作表Cells(Row,Column)，Cells前加上被读取工作表名称Sheet4。5Cells(1,4)=Sheet4.Cells(1,4)'把Shee4工作表单元格D
5、1数据，读到D1单元格。6Range(Cells(1,5),Cells(5,5))=Sheet4.Cells(1,5)'把Shee4工作表单元格E1数据，读到E1:E5单元格。EndSub你点选任何单元格，按Selection按钮，则所点选的单元格均会被输入Shee4工作表单元格F1数据。PublicSubSelection1()Selection.Value=Sheet4.[F1]'把Shee4工作表单元格F1数据，读到任何你点选的单元格。EndSub 读取别表数据 几种如何
6、把别的工作表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前加上被读取的工作表名称Sheet4。113Range("B1")=Sheet4
7、.Range("B1")''把Shee4工作表单元格B1数据，读到B1单元格。4Range("C1:C3")=Sheet4.Range("C1")'把Shee4工作表单元格C1数据，读到C1:C3单元格。5--6方法，在被读取的工作表Cells(Row,Column)，Cells前加上被读取工作表名称Sheet4。5Cells(1,4)=Sheet4.Cells(1,4)'把Shee4工作表单元格D1数据，读到D1单元格。6Range(Cells(1,5),Cells(5,5))=Sheet4.Cells(1,5)'把Shee
8、4工作表单元格E1数据，读到E1:E5单元格。EndSub你点选任何单元格，按Selection按钮，则所点选的单元格均会被输入Shee4工作表单元格F1数据。PublicSubSelection1()Selection.Value=Sheet4.[F1]'把Shee4工作表
