【VBA初级201202班】练习题3

7711

本题只限VBA初级201202班同学练习
上交请注明：练习名＋学号+论坛ID(有附件的也要注明)
本帖开帖前仅作者可见，每位同学只能占一个楼层．如有更改请在原楼层直接更改

现有一新工作薄(2003版，默认3个工作表)

1.请分别列出激活3个相应工作表处于活动状态的代码　自由发挥(每对一个1BB+1经验)

2.请分别列出3个相应工作表　A1单元格的值等于"MM"的的代码　自由发挥(每对一个1BB+1经验)

3.请列出对 第一个工作表Ａ1单元格移动(向下2个单元格，向右个4单元格）的值等于"VBA"的的代码　自由发挥(每对一个1BB+1经验)

tsigms

【VBA初级201202班】练习题3-B15-tsigms

tough2010

B23 tough2010


sheets(1).activate
sheets(2).activate
sheets(3).activate

sheets(1).range("a1")="mm"
sheets(2).range("a1")="mm"
sheets(3).range("a1")="mm"

sheets(1).range("a1").offset(2,4)="VBA"

hhl1984

练习3.rar (7.59 KB, 下载次数: 25)

2012-7-15 09:40 上传

点击文件名下载附件
练习3 B19 hhl1984

rmsc_kr

练习名：习题2
ID：rmsc_kr
学号：B21:rmsc_kr

代码：
Sub 练习2()
Dim x As Integer
For x = 1 To Sheets.Count
Sheets(x).Activate
ActiveSheet.Range("A1") = "MM"
   If x = 1 Then Range("A1").Offset(2, 4) = "VBA"
Next
End Sub

wangweihb

1.请分别列出激活3个相应工作表处于活动状态的代码　
  答：   
     Worksheets(1).Activate
     Worksheets(2).Activate
     Worksheets(3).Activate
2.请分别列出3个相应工作表　A1单元格的值等于"MM"的的代码　
答：
   Worksheets(1).[a1]="MM"
   Worksheets(2).[a1]="MM"
   Worksheets(3).[a1]="MM"


3.请列出对 第一个工作表Ａ1单元格移动(向下2个单元格，向右个4单元格）的值等于"VBA"的的代码　

答：
     Worksheets(1).Activate
     Range("A1")="VBA"
     Range("A1").Select
     Selection.Cut Destination:=Range("e3")

望天打卦

学委辛苦。谢谢指点

sally萨莉

Sub 练习2()
Sheets.Select
Range("A1") = "MM"
Range("a1").Offset(2, 4) = "vba"
End Sub

justinliao82

I want to see....................

hoogle

A15:hoogle   上交作业：
第1题：
Sheet1.Activate
Sheet2.Activate
Sheet2.Activate
第2题：
Sheet1.Range("a1") = "MM"
Sheet2.Range("a1") = "MM"
Sheet3.Range("a1") = "MM"
第3题：
Sheet1.Cells(1 + 2, 1 + 4) = "VBA" 或  Sheet1.Range("A1").Offset(2, 4) = "VBA"