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

kwdg

学习

liujiajun12

Sub 题目1()
    Dim x As Integer, y As Integer, a As Integer, b As Integer
    With [c4].CurrentRegion
        x = .Row
        y = .Column
        a = .Rows.Count
        b = .Columns.Count
    End With
  MsgBox ("最右下角单元格地址：" & Cells(x + a - 1, y + b - 1).Address(0, 0))
   
End Sub

Sub 题目2()
    Dim y As Integer, b As Integer
    y = [d:d].Left
    b = [d:d].Width
    Range("f3").Comment.Shape.Left = y + b
End Sub

wfywcabc

Sub t1()
Dim a, b, c As Integer
    With Range("d3")
        a = .Top
        b = .Left
        c = .Width
    End With
    With Range("f3").Comment.Shape
        .Top = a
        .Left = b + c
    End With
End Sub

jun1351387

很久不用了，有点忘了

哈啦哈拉

学习一下

殇toHeart丶

zhouxiaohu

对比答案

灰色的天空

Sub demo()
Dim a$
With Range("c4").CurrentRegion
a = [c4].Offset(.Rows.Count - 2, .Columns.Count - 2).Address(0, 0)
End With
MsgBox a
End Sub

Sub demo1()
Range("f3").Comment.Shape.Left = Range("e3").Left
End Sub

jipt10679

学习学习！！

momom

13