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

yhemeo@126.com · 发表于 2017-2-23 23:06

学习一下

laputa25 · 发表于 2017-2-28 22:18

dajiangdongquyi · 发表于 2017-3-1 22:44

慢慢学吧，不能急

鲨鱼辣椒 · 发表于 2017-3-6 11:20

nice

jonic · 发表于 2017-3-6 21:03

give me a hand

zoVBA · 发表于 2017-3-13 20:08

兰色老师辛苦啊

一斤碗糕 · 发表于 2017-3-13 23:39

好的，看看大家的，学习

liujia5863 · 发表于 2017-3-16 23:06

瞅瞅答案呗!

初来咋到 · 发表于 2017-3-17 14:31

Sub 第一题()
With Range("c3").CurrentRegion
r = .Rows.Count
c = .Columns.Count
End With
MsgBox Range("c3").Offset(r - 1, c - 1).Address(0, 0)

End Sub

Sub 第2题()

Range("f3").Comment.Shape.Top = Range("c3").CurrentRegion.Top
Range("f3").Comment.Shape.Left = Range("c3").CurrentRegion.Left + Range("c3").CurrentRegion.Width
End Sub

ahuan008 · 发表于 2017-3-17 14:48

看看

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