第13集 单元格信息
39、 单元格的值
Sub x1()
Range(“b10”) = Range(“c2”).Value '返回单元格真实值
Range(“b11”) = Range(“c2”).Text ‘返回单元格看到的内容
Range(“c10”) = "’" & Range(“I3”).Formula '返回单元格中的公式
End Sub
40、 单元格的地址
Sub x2()
With Range(“b2”).CurrentRegion 'Ctrl+A选中的区域
[b12] = .Address
[c12] = .Address(0, 0)
[d12] = .Address(1, 0) '1表示行锁定
[e12] = .Address(0, 1)
[f12] = .Address(1, 1)
End With
End Sub
41、 单元格的行列信息
Sub x3()
With Range(“b2”).CurrentRegion
[b13] = .Row '返回单元格区域的最上面一行的行数
[b14] = .Rows.Count
[b15] = .Column
[b16] = .Columns.Count
[b17] = .Range(“a1”).Address '返回单元格区域顶点的地址
End With
End Sub
42、 单元格的格式信息
Sub x4()
With Range(“b2”)
[b19] = .Font.Size '字体大小
[b20] = .Font.ColorIndex '字体颜色
[b21] = .Interior.ColorIndex '单元格内部颜色
[b22] = .Borders.LineStyle '边线类型
End With
End Sub
43、 单元格的批注信息
Sub x5()
[B24] = Range(“I2”).Comment.Text
End Sub
44、 单元格的位置信息
Sub x6()
With Range(“b3”)
[b26] = .Top '单元格的顶
[b27] = .Left '单元格的左
[b28] = .Height '单元格的高度
[b29] = .Width '单元格的宽度
End With
End Sub
45、 单元格的上级信息
Sub x7()
With Range(“b3”)
[b31] = .Parent.Name '返回工作表名称
[b32] = .Parent.Parent.Name '返回工作簿名称
End With
End Sub
46、 单元格内容判断
Sub x8()
With Range(“i3”)
[b34] = .HasFormula '是否有公式
[b35] = .Hyperlinks.Count '超链接
End With
End Sub
