VBA80第13集练习题上交专贴：单元格信息返回

quasimodo

交作业来了

时光翩翩

请老师批改
第13集练习题(完成).rar (10.01 KB, 下载次数: 16)

2011-7-29 13:21 上传

点击文件名下载附件

dishigao904

感谢分享~~！

dishigao905

Sub zy1()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Dim rg As Range
With Range("c4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
a = .Range("a1").Row
b = .Range("a1").Column
End With
Set rg = Cells(a + x - 1, b + y - 1)
[f3] = rg.Address(0, 0)
End Sub
Sub zy2()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Range("f3").Comment.Shape.Select
x = Selection.Top
y = Selection.Left
With Range("e3")
a = .Top
b = .Left
End With
Selection.ShapeRange.IncrementTop a - x
Selection.ShapeRange.IncrementLeft b - y
End Sub

dishigao905

Sub zy1()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Dim rg As Range
With Range("c4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
a = .Range("a1").Row
b = .Range("a1").Column
End With
Set rg = Cells(a + x - 1, b + y - 1)
[f3] = rg.Address(0, 0)
End Sub
Sub zy2()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Range("f3").Comment.Shape.Select
x = Selection.Top
y = Selection.Left
With Range("e3")
a = .Top
b = .Left
End With
Selection.ShapeRange.IncrementTop a - x
Selection.ShapeRange.IncrementLeft b - y
End Sub

dishigao905

Sub zy1()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Dim rg As Range
With Range("c4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
a = .Range("a1").Row
b = .Range("a1").Column
End With
Set rg = Cells(a + x - 1, b + y - 1)
[f3] = rg.Address(0, 0)
End Sub
Sub zy2()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Range("f3").Comment.Shape.Select
x = Selection.Top
y = Selection.Left
With Range("e3")
a = .Top
b = .Left
End With
Selection.ShapeRange.IncrementTop a - x
Selection.ShapeRange.IncrementLeft b - y
End Sub

dishigao905

Sub zy1()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Dim rg As Range
With Range("c4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
a = .Range("a1").Row
b = .Range("a1").Column
End With
Set rg = Cells(a + x - 1, b + y - 1)
[f3] = rg.Address(0, 0)
End Sub
Sub zy2()
Dim x As Integer, y As Integer
Dim a As Integer, b As Integer
Range("f3").Comment.Shape.Select
x = Selection.Top
y = Selection.Left
With Range("e3")
a = .Top
b = .Left
End With
Selection.ShapeRange.IncrementTop a - x
Selection.ShapeRange.IncrementLeft b - y
End Sub

dishigao905

为什么每次回复都可见？

dishigao905

校长辛苦了~！

dou221

Sub t1()
With Range("c4").CurrentRegion
[a10] = .Range("b8").Address
End With
End Sub