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

cd1997

继续学习

leoxxx

1. Sub t1()
   
2.     Dim rg As Range, r As Long, c As Long
   
3.     Set rg = [C4].CurrentRegion 'C4所在区域
   
4.     r = rg.Rows.Count '区域的行数
   
5.     c = rg.Columns.Count '区域的列数
   
6.     [A1] = rg.Cells(r, c).Address(0, 0)
   
7. End Sub
   
8. Sub t2()
   
9.     [F3].Comment.Shape.Top = [E3].Top
   
10.     [F3].Comment.Shape.Left = [E3].Left
    
11. End Sub
    

复制代码

binglei2006

thanks a lot!

雪中迷雾

111

栗子达1689

回复

jingjinger

学习

muyeeowner

学习

WOW1900

学习一下

一个2024

看看