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

xlzstc0123 · 发表于 2012-2-26 21:10

膜拜。。。。。。。。。。。。。。。。。。。。

忧伤还是快乐 · 发表于 2012-2-27 15:35

继续过来看答案了，学习中

1982zyh · 发表于 2012-2-29 23:13

本帖最后由 1982zyh 于 2012-2-29 23:15 编辑

[hide]Sub 第一题()
Dim b As Integer
Dim d As Integer
With Range("C4").CurrentRegion
b = .Rows.Count
d = .Columns.Count
[b12] = .Range("a1").Offset(b - 1, d - 1).Address(0, 0)
End With
End Sub
Sub 第二题()
Dim a As Integer
Dim b As Integer
Dim c As Integer
With Range("d3")
a = .Left
b = .Width
End With
c = a + b
With Range("F3").Comment
.Shape.Left = c
End With
End Sub[/hide]

复制代码

rinyxa · 发表于 2012-3-4 09:47

本帖最后由 rinyxa 于 2012-3-4 09:53 编辑

第一题Sub ar()
x = Range("c4").CurrentRegion.Row
y = Range("c4").CurrentRegion.Column
y1 = Range("c4").CurrentRegion.Columns.Count
x1 = Range("c4").CurrentRegion.Rows.Count
Range("a1") = Cells(x + x1 - 1, y + y1 - 1).Address
End Sub
第二题
Sub x5()
Range("a1") = [e3].Left
Range("f3").Comment.Shape.Left = [e3].Left
End Sub

复制代码

ztccsj · 发表于 2012-3-11 09:10

有潜力，我学习来了

yzj2558 · 发表于 2012-3-15 22:34

基础太差了，但仍要坚持。

yzj2558 · 发表于 2012-3-15 23:00

Sub t()
With Range("c4").CurrentRegion
n = .Rows.Count
m = .Columns.Count
Range("a1") = .Address(0, 0)
End With

龙城的夜晚 · 发表于 2012-3-17 10:49

认真学习天天向上

applekay · 发表于 2012-3-17 14:26

进来学习一下,谢谢版主分享

Tenrence_law · 发表于 2012-3-17 20:45

刚做完第一题

Sub 返回区域单位格地址()
Dim rg As Range, cn As Integer, rw As Integer, t As Integer, ct As Integer, cs As Integer, ts As Integer
With Range("c4").CurrentRegion
   t = .Row
   ts = .Column
   cn = .Rows.Count
   rw = .Columns.Count
End With
ct = t - Range("A1").Row
cs = ts - Range("A1").Column
[a1] = Cells(cn + ct, rw + cs).Address(0, 0)
End Sub

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