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

李家禾 · 发表于 2017-4-25 11:11

学习

李家禾 · 发表于 2017-4-25 11:31

本帖最后由李家禾于 2017-4-25 11:32 编辑

Sub 第一题()

Dim r As Range
Dim ls As Integer
Dim rs As Integer

Set r = Range("c4").CurrentRegion
   ls = r.Columns.Count
   rs = r.Rows.Count

[a1] = r.Cells(rs, ls).Address(0, 0)

End Sub

Sub 第二题()
Range("f3").Comment.Shape.Left = Range("E3").Left

End Sub

LeEric · 发表于 2017-4-26 12:44

qweqweqweqwe

cuiyn · 发表于 2017-4-27 20:12

sssssss

蹉跎了那些岁月 · 发表于 2017-4-28 16:38

第二题做不来来看看

Loren1996 · 发表于 2017-5-3 10:33

viviennenan · 发表于 2017-5-4 11:40

太棒了！

chenglian99 · 发表于 2017-5-9 19:10

Sub 返回连续区域右下角地址()
[a18] = Range("c4").CurrentRegion.Range("a1").End(xlToRight).End(xlDown).Address(0, 0)
End Sub
Sub 对齐批注与单元格()
Range("f3").Comment.Shape.Left = Range("e3").Left
End Sub

复制代码

1142292591 · 发表于 2017-5-10 14:21

好

407079009qqcom · 发表于 2017-5-11 16:30

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