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

panjianli0104

嘿嘿 又来看高手的答案了！

banyungong

游客，如果您要查看本帖隐藏内容请回复

ws#excel

看看第2题如何解答的。。。。

h200797080

看看同志们是怎么做的

82108210

Sub 第一题()
Dim rg As Range
Set rg = Range("c4").CurrentRegion
MsgBox Cells((rg.Row + rg.Rows.Count - 1), (rg.Column + rg.Columns.Count - 1)).Address(0, 0)
End Sub
Sub 第二题()
With Range("f3").Comment.Shape
.Left = Range("d3").Width + Range("d3").Left
.Top = Range("d3").Top
End With
End Sub

xixoxa

学习学习 看看看

cxlys

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

iaw528

学习真好时间也快，顶顶顶顶顶

anabel857hu

谢谢楼主分享您的成果

tan13135

1111111111111111111