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

wcuwkq

XIEXIELAOSHI A

wcuwkq

只会第二题啊


···········

wcuwkq

   Sub d()
Range("f3").Comment.Shape.Left = Range("E1").Left

   
    End Sub

scallionchou

Sub 练习一()

With Range("c4").CurrentRegion
[a1] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1).Address
End With
End Sub
Sub 练习二()
With Range("c4").CurrentRegion
Range("f3").Comment.Shape.Top = .Top
Range("f3").Comment.Shape.Left = .Left + .Width

End With
End Sub

zxc2011

谢谢{:011:}

淮南王

VBA80第13集练习题

cabcd1

看看！！！！！！！！！！

rosa417

学习。。。。。。。。。。。

qkd315

学习  ，学习在学习

qkd315

Sub 题目1()
With Range("c4").CurrentRegion
[b15] = .Offset(.Columns.Count - 1, .Rows.Count - 1).Address(0, 0)
End With
End Sub

Sub 题目2()

    With Range("F3").Comment.Shape

        .Top = Range("E3").Top

        .Left = Range("E3").Left

    End With

End Sub