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

two4mamba · 发表于 2012-3-19 08:41

回复看看，学习一下……

王永峰 · 发表于 2012-3-20 16:36

看看

；学习学习

937118111 · 发表于 2012-3-20 16:44

支持。。。。。。。

丨左手写爱灬 · 发表于 2012-3-20 19:24

参观一下答案！！！！！

colorto · 发表于 2012-3-20 23:14

jkczfpb 发表于 2011-7-11 17:28
回复兰色幻想的帖子

我的是不是回复可见模式？

Public Sub 十三集第一题()
With Range("c4").CurrentRegion
r = .Rows.Count
l = .Columns.Count
MsgBox "c4单元格所在区域的最后一个单元格相对地址是：" & .Range("a1").Offset(r - 1, l - 1).Address(0, 0)
End With
End Sub
Public Sub 十三集第一题解法二()
MsgBox Range("c4").CurrentRegion.Range("a1").End(xlToRight).End(xlDown).Address(0, 0)
End Sub
Public Sub 十三集的第二题()
Range("f3").Comment.Shape.Left = Range("e4").Left
End Sub

sonsen18 · 发表于 2012-3-21 10:46

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

qcw811206 · 发表于 2012-3-22 16:10

辛苦了
学习学习

bgkzc · 发表于 2012-3-24 16:44

学习学习，参考参考。

susan-niuniu · 发表于 2012-3-26 10:53

怎么学都很费劲儿!

xflying322 · 发表于 2012-3-28 21:30

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