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

gdgzlyh · 发表于 2011-7-12 01:22

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

jsgslgd · 发表于 2011-7-17 00:21

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

xiaoni · 发表于 2011-7-17 00:50

gggggggggggggggg

yewei113 · 发表于 2011-7-17 08:58

看

talentmei · 发表于 2011-7-17 12:58

感觉第二题我写得有点罗嗦，先上第一题答案吧
Sub test1()
Dim rn As Integer, cn As Integer
With Range("c4").CurrentRegion
rn = .Rows.Count
cn = .Columns.Count
[a1] = .Cells(rn, cn).Address(0, 0)
End With
End Sub

0Mouse · 发表于 2011-7-17 13:24

有劳校长下载批阅！辛苦了！:-)

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

E路人 · 发表于 2011-7-17 18:45

看看学习{:35:}

wuxingai · 发表于 2011-7-19 20:29

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

bb75308973 · 发表于 2011-7-19 22:01

唉,答案交晚了!不过还是得交!
[hide]Sub 题目1()
Dim ro As Integer
Dim co As Integer
Dim rg As Range
Set rg = Range("C4").CurrentRegion
ro = rg.Rows.Count '计算区域的行数
co = rg.Columns.Count '计算区域的列数
Range("A1") = rg.Range("A1").Offset(ro - 1, co - 1).Address(0, 0)
'定义区域的顶点,然后偏移行数列数各减1的位置,并返回相对地址
End Sub
Sub 题目2()
Dim right
right = Range("D3").Left + Range("D3").Width
Range("F3").Comment.Shape.Left = right
Range("F3").Comment.Shape.Top = Range("D3").Top
'总结:这里本来可以用下with语句的,但是后面还引用别的属性时容易搞错,所以最好不用
End Sub[hide]

复制代码

w2001pf · 发表于 2011-7-27 11:20

先下下来学习学习

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

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

评分

评分

评分

评分

评分

评分