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

hyz00001

Sub 例题()
    With [e3]
        [f3].Comment.Shape.Left = .Left
        [f3].Comment.Shape.Top = .Top
    End With
End Sub

kingmissh

向前辈学习

望一望

已经学到这里了

dadapapa

求交流

myreally

学习！

ljqly12

1. Sub 第一题1()
   
2.      Dim x As Integer
   
3.      Dim y As Integer
   
4.      Dim z As Integer
   
5.      Dim s As Integer
   
6.      With Range("c4").CurrentRegion
   
7.        x = .Row
   
8.        s = .Column
   
9.        y = .Rows.Count
   
10.        z = .Columns.Count
    
11.       
    
12.        [b1] = Cells(x + y - 1, s + z - 1).Address(0, 0)
    
13.      End With
    
14.     End Sub
    
15. 
    
16. Sub 第二题()
    
17. With Range("f3").Comment.Shape
    
18.   .Top = Range("c4").CurrentRegion.Offset(0, 1).Top
    
19.   .Left = Columns("e").Left
    
20. End With
    
21. End Sub
    

复制代码

hycc8787

学习学习

2227890579

学习学习下 各位大神

dc26310896

对一下同学答案

橙子君

学习一个