VBA(13)单元格的属性(三)附单元格颜色图/FIND函数-Toy模板网

这篇具有很好参考价值的文章主要介绍了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] = .Range("a1").Address '所在表第一个单元格地址
End With
End Sub

Sub x61()            '添加行
    Dim a As Integer
        For a = 1 To 3
            Sheet1.Rows(3).Insert       '第三行处开始添加
        Next
End Sub

Sub x62()
    Sheet1.Range("A3").EntireRow.Resize(3).Insert   'Entirerow返回整行
End Sub

Sub x63()
    Sheet1.Rows(3).Resize(3).Insert     '第三行扩展3，也就是选中三行插入行
End Sub

Sub x64()            '删除已使用单元格内的空行
    Dim rRow As Long
    Dim cRow As Long
    Dim i As Long
    rRow = Sheet1.UsedRange.Row         '开始行
    cRow = rRow + Sheet1.UsedRange.Rows.Count - 1       '开始行 + 已使用单元格的最大行 - 1
    For i = cRow To rRow Step -1
        If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then   '调用工作表函数统计非空
         Rows(i).Delete             '空的行删除
        End If
    Next
End Sub

Sub x65()             '删除A行内重复单元格的行
    Dim r As Integer
    Dim s As Integer
    With Sheet1
        r = .[A65530].End(xlUp).Row
        For s = r To 1 Step -1
        If WorksheetFunction.CountIf(.Columns(1), .Cells(s, 1)) > 1 Then
            .Rows(s).Delete
            End If
        Next
        End With
End Sub

三、单元格的颜色

Sub x12() 'RGB颜色输入方式
Dim 红#, 蓝#, 绿#
红 = 255
蓝 = 123
绿 = 100
Range("g1").Interior.Color = RGB(红, 蓝, 绿)
End Sub
RGB颜色图在 VBA(3)单元格格式附图

Sub x13() 'excel里自带颜色
Dim x As Integer
Range("a1:b60").Clear
For x = 1 To 56
Range("a" & x) = x
Range("b" & x).Interior.ColorIndex = x
Next
End Sub
'附图

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

四、单元格查找函数

Sub x14() '用工作表函数查找
Dim hao As Integer
Dim icount As Integer
icount = Application.WorksheetFunction.CountIf(Sheets("sheet1").[b:b], [c3])
If icount > 0 Then
MsgBox "存在"
Else
MsgBox "不在"
End If
End Sub

用FIND查找函数找查

语法说明:

表达式

.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

expression 一个表示 Range 对象的变量。

参数

名称	必需/可选	数据类型	说明
What	必需	Variant	要搜索的数据。可为字符串或任意 Microsoft Excel 数据类型。
After	可选	Variant	要在其后开始搜索的单元格。从用户界面搜索时，这对应于活动单元格的位置。请注意，After 必须是区域内的单个单元格。请注意，搜索在此单元格之后开始；在方法回绕到此单元格之前，不会搜索指定的单元格。如果未指定此参数，搜索将在区域左上角的单元格后面开始。
LookIn	可选	Variant	可以是下列 XlFindLookIn 常量之一：xlFormulas、xlValues、xlComments 或 xlCommentsThreaded。
LookAt	可选	Variant	可以是下列 XlLookAt 常量之一：xlWhole 或 xlPart。
SearchOrder	可选	Variant	可以是以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。
SearchDirection	可选	Variant	可以是以下 XlSearchDirection 常量之一： xlNext 或 xlPrevious。
MatchCase	可选	Variant	如果为 True，则搜索区分大小写。默认值为 False。
MatchByte	可选	Variant	仅在选择或安装了双字节语言支持时使用。如果为 True，则双字节字符仅匹配双字节字符。如果为 False，则双字节字符匹配其单字节等效字符。
SearchFormat	可选	Variant	搜索格式。

返回值

一个 Range 对象，它代表在其中找到该信息的第一个单元格。

来自 <Range.Find 方法 (Excel) | Microsoft Docs>

例子:

Sub x15() '.FIND函数查找
Dim r As Integer, r1 As Integer
Dim icount As Integer
icount = Application.WorksheetFunction.CountIf(Sheets("sheet1").[b:b], [c3]) '调工作表函数统计个数
If icount > 0 Then '如果存在则查找
r = Sheets("sheet1").[b:b].Find(Range("G3"), LookAt:=xlWhole).Row '找查第一次出现的行
r1 = Sheets("sheet1").[b:b].Find([g3], , , , , xlPrevious).Row '从下住上查找。也就是最后一个
MsgBox r & ";" & r1 '显示第一个出现&最后一个
End If
End Sub

单元格的复习篇章到此到一段落；

谢谢观看。文章来源地址https://www.toymoban.com/news/detail-452630.html

到了这里，关于VBA(13)单元格的属性(三)附单元格颜色图/FIND函数的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！