|
终于搞定了,谢谢!
- hide
- Option Explicit
- Sub 题目1()
-
- Dim x, y As Integer
- With Range("c4").CurrentRegion
- x = .EntireRow.Count
- y = .EntireColumn.Count
- End With
- MsgBox "C4所在单元格区域(大小不定)的右下角单元格地址:" & (Cells(x + 2, y + 2).Address(0, 0))
-
- End Sub
- Sub 题目2()
- Dim i, j, m, n As String
- Range("f3").Comment.Shape.Select
- With Range("f3").Comment.Shape
- m = .Top
- n = .Left
- Range("a13") = m
- Range("a14") = n
- Selection.ShapeRange.IncrementTop -m
- Selection.ShapeRange.IncrementLeft -n
- End With
-
- With Range("e3")
- i = .Top
- j = .Left
- Range("a8") = i
- Range("a9") = j
- End With
- Selection.ShapeRange.IncrementTop i
- Selection.ShapeRange.IncrementLeft j
-
- End Sub
-
- hide
复制代码
|
|