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

拓扑 · 发表于 2016-12-22 18:58

好

旺正在 · 发表于 2016-12-23 17:04

gregregregergregeg

Da、风 · 发表于 2016-12-27 11:24

urwa0722 · 发表于 2016-12-28 11:09

要看答案

urwa0722 · 发表于 2016-12-28 11:30

Sub dizhi()

Dim X, y As Integer

With Range("c4").CurrentRegion

X = .Rows.Count
y = .Columns.Count
ActiveCell = .Range("a1").Offset(X - 1, y - 1).Address(0, 0)
End With
End Sub

Sub duiqi()
Range("f3").Comment.Shape.Left = Columns("e").Left

End Sub

ZJJ32072175 · 发表于 2016-12-28 15:05

研究生，厉害

痞紫_瓷 · 发表于 2017-1-4 10:01

07年的教材加油

拥抱梧桐 · 发表于 2017-1-6 14:53

想看答案~~

a1331899857 · 发表于 2017-1-7 19:42

rosinrosin · 发表于 2017-1-9 15:58

Sub test_1()

[F3] = Range("c4").CurrentRegion.Range("a1").Offset(Range("c4").CurrentRegion.Rows.Count - 1, Range("c4").CurrentRegion.Columns.Count - 1).Address(0, 0)

End Sub

第二题不会

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