VBA(13)单元格的属性(三)附单元格颜色图/FIND函数

一、单元格的常用属性

Sub x1()
    Range("b10") = Range("c2").Value '返回实际的值
    Range("b11") = Range("c2").Text '返回相示的值
    Range("b12") = "" & Range("c2").Formula '返回一个C2的文本公式
End Sub

Sub x2() '单元格的地址
    With Range("b2").CurrentRegion
        [b12] = .Address '默认等对绝对引用地址
        [b13] = .Address(0, 0)
        [b14] = .Address(1, 0)
        [b15] = .Address(0, 1)
        [b16] = .Address(1, 1)
        End With
End Sub

Sub x3()       '偏移,扩展
    Range("C5").Offset(1, 1) = "偏移1列1行"     'offset属性：正数偏移行,列，负数反方向
    Range("C5").Resize(3, 3) = "扩展行列"       '调整指定区域
End Sub

Sub x4()       'Areas属性返回选中单元格的集合
    Dim rng As Range
    Dim i As Integer
    Set rng = Range("A1:B2,C3:D4, E5:G7")
        For i = 1 To rng.Areas.Count
            MsgBox "第" & i & "个区域" & rng.Areas(i).Address
        Next
    Set rng = Nothing
End Sub

Sub x5()
    With Range("b2")
        [d12] = .Font.Size '字体大小
        [d13] = .Font.ColorIndex '字体颜色
        [d14] = .Interior.ColorIndex '背景颜色
        [d15] = .Borders.LineStyle '有没有边框
    End With
End Sub

Sub x6()
    [b24] = Range("i2").Comment.Text '等于I2的批注文本,i2如没批注会报错
End Sub

Sub x7()
    With Range("b3")
        [b34] = .Top    '与顶部位置差距
        [b35] = .Left   '左边距
        [b36] = .Height '高度
        [b37] = .Width  '宽度
    End With
End Sub

Sub x8() '单元格的上级信息
    With Range("a1")
        [b31] = .Parent.Name        '返回上级信息sheets.name
        [b32] = .Parent.Parent.Name '返回两上级信息:单元格-工作表名-工作薄名
    End With
End Sub

Sub x9()
    With Range("i3")
        [b34] = .HasFormula             '是否是公式。返回逻辑值true或false
        [b35] = .Hyperlinks.Count       '是否是超链接，超链接个数,0=没有
    End With
End Sub

二、单元格的行与列属性附处理例子

Sub x10()
    With Range("b2").CurrentRegion
    [c12] = .Row '首行的行数
    [c13] = .Rows.Count '总行数
    [c14] = .Column '首列
    [c15] = .Columns.Count '总列数
    [c16]