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

twandou

1. Sub t1()
   
2. Dim x As Integer, y As Integer
   
3. With Range("c4").CurrentRegion
   
4. x = .Rows.Count
   
5. y = .Columns.Count
   
6. [a1] = .Range("a1").Offset(x - 1, y - 1).Address(0, 0)
   
7. End With
   
8. End Sub
   
9. 
   
10. Sub t2()
    
11. Dim x, a, b As Single
    
12. 
    
13. With Range("c4").CurrentRegion
    
14. x = .Columns.Count
    
15. a = .Range("a1").Offset(0, x).Left
    
16. b = .Range("a1").Offset(0, x).Top
    
17. 
    
18. End With
    
19. 
    
20. Range("f3").Comment.Shape.Left = a
    
21. Range("f3").Comment.Shape.Top = b
    
22. 
    
23. End Sub

复制代码

这个题目是最简单的，哈哈！

djsd1016

交作业了，请兰老师过目，呵呵见笑了。没有基础。

sclxc

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

小车子

{:201:}     

51454654