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

ha468

学习                    

ToniKroos

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

zhaojingjie

没做出来，悲剧了

zhaojingjie

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

yytax2010

谢谢分享，看看！

luodawei16

1. 
   
2. Sub 第二题()
   
3. With [f3].Comment.Shape
   
4. .Left = Columns("a:d").Width
   
5. .Top = [f3].Top
   
6. End With
   
7. End Sub
   

复制代码

luodawei16

1. 
   
2. Sub 第一题()
   
3. With Range("C4").CurrentRegion
   
4. [c14] = .Cells(.Rows.Count, .Columns.Count).Address(0,0)
   
5. End With
   
6. End Sub
   
7. Sub 第二题()
   
8. With [f3].Comment.Shape
   
9. .Left = Columns("a:d").Width
   
10. .Top = [f3].Top
    
11. End With
    
12. End Sub
    

复制代码

cfera

兰版现在不改作业了，自己核对吧

linan6612

111111111111111111111111111111111111

水上漂123

看看学习一下，支持