sub findsheets()
dim n as integer
dim myworksheetcount as integer
dim findsheetsname as string
dim instringture as integer
myworksheetcount = worksheets.count
prompt:="
請輸入要查詢的工作表名
", _
title:="
查詢工作表
", type:=2)
for n = 1 to worksheets.count
instringture = instr(1, ucase(worksheets(n).name), ucase(findsheetsname))
if instringture <> 0 then
worksheets(n).select
myprompt = "
你要找的是這個工作表嗎
?" & chr(13) & chr(13) & worksheets(n).name
mytitle = "
確認工作表"
myfindresult = msgbox(myprompt, vbyesno, mytitle)
if myfindresult = 6 then
exit for
end if
end if
next n
if n = worksheets.count + 1 then
msgbox ("
查詢完畢")
end if
end sub
excel中if的巢狀使用方法
if函式是 excel 中的條件判斷函式，它由條件與兩個返回結果組成，當條件成立時，返回真，否則返回假。if函式中的條件既可以單條件，也可以是多條件 多條件組合有三種方式，一種為多個 if 巢狀，第二種為用 and 或 組合多個條件，第三種為用 or 或 組合多個條件。用 and 或 組合條件是 與...
vi vim中查詢替換使用方法
vi vim 中可以使用 s 命令來替換字串。該命令有很多種不同細節使用方法，可以實現複雜的功能，記錄幾種在此，方便以後查詢。s vivian sky 替換當前行第乙個 vivian 為 sky s vivian sky g 替換當前行所有 vivian 為 sky n，s vivian sky 替...
excel中的vlookup使用方法與易錯地方
vlookup 的常用功能和使用情景是 集合s中有一堆一一對應的資料，我現在有的資料只有,我要用a查到與之對應的資料是中的哪個。vlookup lookup value,table array,col index num,range lookup 一下我們舉例用大寫字母abc，在幾個s中查詢對應的小...