日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

VBA函数 find

發布時間:2023/12/9 编程问答 27 豆豆
生活随笔 收集整理的這篇文章主要介紹了 VBA函数 find 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

Range.Find 方法 (Excel)

在區域中查找特定信息。

語法

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

expression 一個表示 Range 對象的變量。

參數

名稱

必需/可選

數據類型

說明

What

必需

Variant

要搜索的數據。 可為字符串或任意 Microsoft Excel 數據類型。

After

可選

Variant

要在其后開始搜索的單元格。 從用戶界面搜索時,這對應于活動單元格的位置。

請注意,After 必須是區域內的單個單元格。 請注意,搜索在此單元格之后開始;在方法回繞到此單元格之前,不會搜索指定的單元格。

如果未指定此參數,搜索將在區域左上角的單元格后面開始。

LookIn

可選

Variant

可以是下列 XlFindLookIn 常量之一:xlFormulasxlValuesxlCommentsxlCommentsThreaded

LookAt

可選

Variant

可以是下列 XlLookAt 常量之一:xlWholexlPart

SearchOrder

可選

Variant

可以是以下 XlSearchOrder 常量之一:xlByRowsxlByColumns

SearchDirection

可選

XlSearchDirection

搜索的方向。

MatchCase

可選

Variant

如果為 True,則搜索區分大小寫。 默認值為 False

MatchByte

可選

Variant

僅在選擇或安裝了雙字節語言支持時使用。 如果為 True,則雙字節字符僅匹配雙字節字符。 如果為 False,則雙字節字符匹配其單字節等效字符。

SearchFormat

可選

Variant

搜索格式。

返回值

一個 Range 對象,它代表在其中找到該信息的第一個單元格。

注解

如果未發現匹配項,此方法返回 NothingFind 方法不會影響所選內容或活動單元格。

每次使用此方法時,都會保存 LookIn、LookAt、SearchOrder 和 MatchByte 的設置。 如果在下次調用此方法時不指定這些參數的值,則使用保存的值。 設置這些參數會更改“查找”**** 對話框中的設置,更改“查找”**** 對話框中的設置會更改省略參數時使用的已保存值。 為避免出現問題,請在每次使用此方法時顯式設置這些參數。

使用 FindNextFindPrevious 方法可重復搜索。

當搜索到達指定的搜索區域末尾時,它會繞到該區域開頭位置。 若要在發生此繞回時停止搜索,請保存第一個找到的單元格的地址,然后針對此保存的地址測試每個連續找到的單元格地址。

若要查找與更復雜模式匹配的單元格,請將 For Each...Next 語句與 Like 運算符結合使用。 例如,以下代碼搜索區域 A1:C5 中使用其名稱以字母 Cour 開頭的字體的所有單元格。 Microsoft Excel 找到一個匹配項時,會將字體更改為 Times New Roman。

VB

For Each c In [A1:C5] If c.Font.Name Like "Cour*" Then c.Font.Name = "Times New Roman" End If Next`

?

示例

本示例在第一個工作表的單元格區域 A1:A500 中查找包含值 2 的所有單元格,并將這些單元格的值更改為 5。

VB

With Worksheets(1).Range("a1:a500")

??? Set c = .Find(2, lookin:=xlValues)

??? If Not c Is Nothing Then

??????? firstAddress = c.Address

??????? Do

??????????? c.Value = 5

??????????? Set c = .FindNext(c)

??????? Loop While Not c Is Nothing

??? End If

End With

轉載于:https://www.cnblogs.com/inocalli/p/11003881.html

總結

以上是生活随笔為你收集整理的VBA函数 find的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。