[示例1]查詢值並選中該值所在的單元格
[示例1-1]
sub find_first()
dim findstring as string
dim rng as range
findstring = inputbox("請輸入要查詢的值:")
if trim(findstring) <> "" then
with sheets("sheet1").range("a:a")
set rng = .find(what:=findstring, _
after:=.cells(.cells.count), _
lookin:=xlvalues, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlnext, _
matchcase:=false)
if not rng is nothing then
else
msgbox "沒有找到!"
end if
end with
end if
end sub
[示例1-2]
sub find_last()
dim findstring as string
dim rng as range
findstring = inputbox("請輸入要查詢的值")
if trim(findstring) <> "" then
with sheets("sheet1").range("a:a")
set rng = .find(what:=findstring, _
after:=.cells(1), _
lookin:=xlvalues, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlprevious, _
matchcase:=false)
if not rng is nothing then
else
msgbox "nothing found"
end if
end with
end if
示例說明：與上面的程式不同的是，執行該程式後，將在工作表sheet1的a列中查詢inputbox函式輸入框中所輸入的值，並選中該值所在的最後乙個單元格。請比較**中find方法的引數。
[示例1-3]
sub find_todays_date()
dim findstring as date
dim rng as range
findstring = date
with sheets("sheet1").range("a:a")
set rng = .find(what:=findstring, _
after:=.cells(.cells.count), _
lookin:=xlformulas, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlnext, _
matchcase:=false)
if not rng is nothing then
else
msgbox "沒有找到!"
end if
end with
end sub
示例說明：執行程式後，將在工作表sheet1的a列中查詢日期所在的單元格，並選中第乙個日期單元格。
[示例2]在b列中標出a列中有相應值的單元格
sub mark_cells_in_column()
dim firstaddress as string
dim myarr as variant
dim rng as range
dim i as long
myarr = array("vba")
'也能夠在陣列中使用更多的值,如下所示
'myarr = array("vba", "vsto")
with sheets("sheet2").range("a:a")
.offset(0, 1).clearcontents
'清除右側單元格中的內容
for i = lbound(myarr) to ubound(myarr)
set rng = .find(what:=myarr(i), _
after:=.cells(.cells.count), _
lookin:=xlformulas, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlnext, _
matchcase:=false)
'如要想查詢rng.value中的一部分,可使用引數值xlpart
'如果使用lookin:=xlvalues,也會處理公式單元格中與條件相同的值
[示例3]為區域中指定值的單元格填充顏色
sub color_cells_in_range()
dim firstaddress as string
dim mysearch as variant
dim mycolor as variant
dim rng as range
dim i as long
mysearch = array("vba")
mycolor = array("3")
'也能在陣列中使用多個值
'mysearch = array("vba", "hello", "ok")
'mycolor = array("3", "6", "10")
with sheets("sheet3").range("a1:c4")
'將所有單元格中的填充色改為無填充色
.interior.colorindex = xlcolorindexnone
for i = lbound(mysearch) to ubound(mysearch)
set rng = .find(what:=mysearch(i), _
after:=.cells(.cells.count), _
lookin:=xlformulas, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlnext, _
matchcase:=false)
'如果想查詢rng.value的一部分,則使用引數值xlpart
'如果使用lookin:=xlvalues,則也會處理公式單元格
if not rng is nothing then
firstaddress = rng.address
dorng.interior.colorindex = mycolor(i)
set rng = .findnext(rng)
loop while not rng is nothing and rng.address <> firstaddress
end if
next i
end with
end sub
示例說明：執行程式後，將在工作表sheet3上的單元格區域a1：c4中查詢含有「vba」的單元格，並將這些單元格填充為紅色。如示例中的注釋所提示的，也可以使用陣列，將不同的值所在的單元格標記為不同的顏色。
也可以新增下面的語句，改變單元格中文字的顏色：
.font.colorindex=0
.font.colorindex=mycolor(i)
Mongodb查詢文件find方法的使用
連線mongodb 建立集合規則 使用集合規則建立集合 使用find方法查詢文件 1.連線mongodb 引用第三方模組 mongoose const mongoose require mongoose 鏈結伺服器 返回promise 物件 mongoose.connect mongodb loca...
LINUX 中 find 查詢 的使用方法
find find在linux中是乙個非常優秀的查詢命令，其功能強大，支援多種條件判斷 下面我們先介紹 find對應的選項 及 引數 的 設定 size unit 根據檔案大小來查詢 常用單位 k,m,g,c byte unit 1,如 6k 表示 5k,6k unit 0,1 如 6k 表示 0,...
C 使用Find方法
在list，arraylist等資料的集合類中，我們可以看到它包含乙個find方法。這個方法的結構如下 以list為例 public t find predicatematch find的引數是乙個返回型別為bool的函式，引數為t 例如 public form1 messagebox.show s...