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

匿名 *发表于 2019-3-25 15:04* · 发表于 2019-3-25 15:04

答案

18550823430 · 发表于 2019-3-25 19:51

学习一下

stgstgsss · 发表于 2019-3-25 22:17

感谢教学

Paul1837 · 发表于 2019-3-26 17:14

学习一下

阿利 · 发表于 2019-3-29 13:42

看看答案

ml25 · 发表于 2019-4-2 21:39

看是不是超纲了。

kiinly · 发表于 2019-4-5 21:48

瞅瞅

Yixia90 · 发表于 2019-4-12 14:01

Sub title1()
With Range("c4").CurrentRegion
[f3] = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Address(0, 0)
End With

End Sub
Sub title2()
Range("f3").Comment.Shape.Left = Range("d3").Left + Range("d3").Width
Range("f3").Comment.Shape.Top = Range("d3").Top

End Sub

麦芽lwdwd · 发表于 2019-4-14 09:28

tz2302200 · 发表于 2019-4-16 14:11

Sub 题目1()
With Range("c4").CurrentRegion
Cells(.Rows.Count + .Row - 1, .Columns.Count + .Column - 1).Select
End With
End Sub
Sub 题目2()
With Range("c4").CurrentRegion
With Cells(.Row, .CurrentRegion.Columns.Count + .Column)
Range("f3").Comment.Shape.Top = .Top
Range("f3").Comment.Shape.Left = .Left
End With
End With
End Sub

复制代码

		自动登录	找回密码
密码			注册