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

xgl003

学到了好几着。

xgl003

Sub 第1题()
Dim a%, b%, c$
With Range("c4").CurrentRegion
a = .Rows.Count - 1
b = .Columns.Count - 1
c = .Range("a1").Offset(a, b).Address(0, 0)
End With
End Sub
Sub 第2题()
Range("f3").Comment.Shape.Left = Range("e4").Left
'E列左就是D列右。
End Sub

kkgreen

学习学习谢谢谢寻寻寻寻

suolaidun

没看懂题目

lee0709

Sub test()

With Range("C3").CurrentRegion

    Range("F3").Value = Range("c3").Offset(.EntireRow.Count - 1, .EntireColumn.Count - 1).Address(0, 0)
   
   
End With



End Sub

Sub test2()

Dim x, y, z As Long

    x = Range("D3").Left
   
    y = Range("D3").Width
   
    z = Range("D3").Top
   
    Range("f3").Comment.Shape.Top = z
   
    Range("f3").Comment.Shape.Left = x + y
   


End Sub

杨泞霞

返回批注对象

fengfeng258

学习

wangdongzhang

学习看看！

杀猪匠

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

czy526526

11