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

vbamaster

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

berry.hxm

Sub addr()
Dim a, b, c, d As Integer
With Range("c4").CurrentRegion
a = .Row
b = .Column
c = .Rows.Count - 1
d = .Columns.Count - 1
[b20] = Cells(a + c, b + d).Address(0, 0)
End With
End Sub
Sub duiqi()
With Range("f3")
.Comment.Shape.Top = Range("d3").Top
.Comment.Shape.Left = Range("e3").Left
End With
End Sub

qingfengfeixin

Sub t1()
Dim a, b, c, d
With Range("c4").CurrentRegion
        a = .Row
        b = .Rows.Count
        c = .Column
        d = .Columns.Count
End With
a = a + b - 1
c = c + d - 1
End Sub

dtxczjzmp

学习一下！不学不会呀，没法！

majianxwyg

瞅瞅~~~第二题没研究出来

lunar2010

过来学习学习，刚入门呢

liziyuliziyu7

的顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

wangfengren

csmccdh 发表于 2011-7-7 21:07
**** 本内容被作者隐藏 ****
**** 本内容被作者隐藏 ****

学习学习。

yu20078

学习十三课的习题2

hately

1. Sub 第一题()
   
2. Dim rng As Range, x As Byte
   
3. Set rng = Range("c4").CurrentRegion
   
4. x = rng.Range("a1").Offset(rng.Rows.Count - 1, rng.Columns.Count - 1).Address(0, 0)
   
5. MsgBox x
   
6. End Sub
   
7. 
   
8. Sub 第二题()
   
9. With Range("f3").Comment.Shape
   
10. .Top = Range("e3").Top
    
11. .Left = Range("e3").Left
    
12. End With
    
13. End Sub

复制代码

我真看不到回复可见的选项。