Excel VBA 单元格信息

来源：互联网发布：数据库中的罗马时间编辑：程序博客网时间：2024/05/29 03:15

1 单元格的值

   Sub x1()    Range("b10") = Range("c2").Value    Range("b11") = Range("c2").Text    Range("b11") = "'" & Range("c2").Formula     '获取单元格的公式   End Sub

2 单元格的地址

    Sub x2()     With Range("b2").CurrentRegion       [b12] = .Address       [c12] = .Address(0, 0)       [d12] = .Address(1, 0)       [e12] = .Address(0, 1)       [f12] = .Address(1, 1)     End With    End Sub

3 单元格的行列信息

 Sub x3()      With Range("b2").CurrentRegion        [b13] = .Row        [b14] = .Rows.Count        [b15] = .Column        [b16] = .Columns.Count        [b17] = .Range("a1").Address      End With    End Sub

4、单元格的格式信息

    Sub x4()      With Range("b2")        [b19] = .Font.Size        [b20] = .Font.ColorIndex        [b21] = .Interior.ColorIndex        [b22] = .Borders.LineStyle      End With    End Sub

5、单元格批注信息

     Sub x5()        [B24] = Range("I2").Comment.Text     End Sub

6 单元格的位置信息

     Sub x6()        With Range("b3")          [b26] = .Top          [b27] = .Left          [b28] = .Height          [b29] = .Width        End With     End Sub

7 单元格的上级信息

    Sub x7()      With Range("b3")        [b31] = .Parent.Name                       [b32] = .Parent.Parent.Name      End With    End Sub

8 内容判断

      Sub x8()       With Range("i3")        [b34] = .HasFormula              '是否含有公式        [b35] = .Hyperlinks.Count        '单元格超链接的数目       End With      End Sub

阅读全文

0 0