1樓：
如果 elseif 和 else 後面需要執行多個語句的話，建議稍微改一下試試看。就是用「:」來分隔這個語句：
file.cells(i, 7) = "晉級": file.
cells(i, 8) = standard.cells(nowlevel - 1, level): file.
cells(i, 9) = standard.cells(nowlevel - 1, pay)
else
file.cells(i, 7) = "保級": file.
cells(i, 8) = standard.cells(nowlevel, level): file.
cells(i, 9) = standard.cells(nowlevel, pay)
end if
2樓：匿名使用者
你這個是因為find沒有找到合適的單元格，所以單元格不存在，那麼返回row就出錯了！
建議這麼改：
dim rnglevel as range, rngjob as range
set rngjob = standard.range("e1:j2").find(file.cells(i, 2))
if not rngjob is nothing then nowjob = rngjob.column
set rnglevel = standard.range("a1:a10").find(file.cells(i, 3))
if not rnglevel is nothing then nowlevel = rnglevel.row
3樓：旅遊達人傲傲
回答excel用巨集做查詢動作，如果查詢不到，就出這個錯誤。
修改**前面部分如下：
dim frow as integer
if txt1.value = "" then '先判斷使用者名稱是否為空
msgbox "使用者名稱不能為空！", vbinformation, "系統提示"
exit sub
end if
dim xrng as range
set xrng = sheets("使用者表").range("a3:a53") '再判斷使用者名稱是否不存在
msgbox "無此使用者名稱！", vbinformation, "系統提示"
exit sub
end if
with sheets("使用者表") '最後判斷使用者名稱與密碼是否一致
frow = .range("a3:a53").find(what:=txt1).row
if .cells(frow, 2) > cstr(txt2.text) then
msgbox ("密碼錯誤")
txt1.text = ""
txt2.text = ""
exit sub
end if
希望可以幫到您哦親
更多20條
4樓：匿名使用者
nowjob = standard.range("e1:j2").find(file.cells(i, 2)).column
標準 這個檔案的 e1：j2 找不到 模板檔案 第二列的 值 就會 提示這個錯誤
你是要遮蔽 這個提示，繼續執行，
還是 自己修改 模板第二列的值， 讓他能在 標準 e1:j2 範圍內找到？
excel vba執行巨集時，提示：執行時錯誤'91';物件變數或with塊變數未設定
5樓：匿名使用者
可能原因是在每二行中未find "dm"、"jc"、"lb"，你需要對未找到進行處理
比如在巨集前面加上語句
on error resume next
等，看你希望怎麼處理。
6樓：匿名使用者
set rng = thisworkbook.sheets("sheet1").rows("2:2").find("dm")
x = rng.column
set rng = thisworkbook.sheets("sheet1").rows("2:2").find("jc")
y = rng.column
set rng = thisworkbook.sheets("sheet1").rows("2:2").find("lb")
z = rng.column
以上find，確實都能找到結果嗎？
如果都能找到結果，也就是反 返回的rng 不是nothing的話，建議把**發全看看
日常編寫**時，建議**做以下調整：
set rng = thisworkbook.sheets("sheet1").rows("2:2").find("dm")
if rng is nothing then
msgbox "dm:不存在"
else
x = rng.column
endif
7樓：旅遊達人傲傲
回答excel用巨集做查詢動作，如果查詢不到，就出這個錯誤。
修改**前面部分如下：
dim frow as integer
if txt1.value = "" then '先判斷使用者名稱是否為空
msgbox "使用者名稱不能為空！", vbinformation, "系統提示"
exit sub
end if
dim xrng as range
set xrng = sheets("使用者表").range("a3:a53") '再判斷使用者名稱是否不存在
msgbox "無此使用者名稱！", vbinformation, "系統提示"
exit sub
end if
with sheets("使用者表") '最後判斷使用者名稱與密碼是否一致
frow = .range("a3:a53").find(what:=txt1).row
if .cells(frow, 2) > cstr(txt2.text) then
msgbox ("密碼錯誤")
txt1.text = ""
txt2.text = ""
exit sub
end if
希望可以幫到您哦親
更多20條
請教excel大神,vba 提示錯誤：執行時錯誤91，物件變數或with塊變數未設定,實在不知**有問題 5
8樓：人皇
直觀上沒看出什麼毛病，要說不足就是過程名字是漢字，外加單元物件未指名呼叫的屬性。把你錯誤後除錯的介面截圖發出來看看
9樓：匿名使用者
問題很難找，可以不停按f8，一行一行執行，出錯了就知道哪一行有問題
執行錯誤91』 未設定物件變數或 with block 變數 執行軟體是出現的問題 15
10樓：
具體步驟如下：
1、首先找到右下角【開始】選項卡，然後在【附件】選項卡裡面點選【執行】選項，並且單擊開啟。
2、接著在【執行】選項卡裡面輸入「regedit」，再單擊【確定】即可開啟登錄檔編輯器。
3、然後在登錄檔編輯器介面找到「hkey_current_user」檔案，雙擊它開啟下拉子檔案欄。
4、緊接著在下拉子檔案欄裡再依此檔案順序（software/microsoft/office/excel/addins）雙擊點開。
5、最後刪除「addins」檔案下的所有子項。雙擊「addins」檔案，選擇它的子項並點選滑鼠右鍵選擇刪除。
6、然後確認項刪除點選「是」，再開啟excel文件，即可解決問題。
11樓：匿名使用者
你是開發人員麼，還是 使用者呢？為什麼找這個問題呢，
我是搞軟體的，這個應該是個 程式的bug什麼的，是不是dotnet環境沒有安裝什麼的，詳細情況 說明下
q385749807
excel vba 執行時錯誤91 物件變數或with塊變數未設定
12樓：匿名使用者
沒有活動的worksheet物件。
13樓：旅遊達人傲傲
回答excel用巨集做查詢動作，如果查詢不到，就出這個錯誤。
修改**前面部分如下：
dim frow as integer
if txt1.value = "" then '先判斷使用者名稱是否為空
msgbox "使用者名稱不能為空！", vbinformation, "系統提示"
exit sub
end if
dim xrng as range
set xrng = sheets("使用者表").range("a3:a53") '再判斷使用者名稱是否不存在
msgbox "無此使用者名稱！", vbinformation, "系統提示"
exit sub
end if
with sheets("使用者表") '最後判斷使用者名稱與密碼是否一致
frow = .range("a3:a53").find(what:=txt1).row
if .cells(frow, 2) > cstr(txt2.text) then
msgbox ("密碼錯誤")
txt1.text = ""
txt2.text = ""
exit sub
end if
希望可以幫到您哦親
更多20條
EXCEL公式求助，excel公式求助
在c3單元格輸入公式為 lookup 1,0 sheet1 a 3 a 20 a3 sheet1 b 3 b 20 left b3,find b3 1 sheet1 c 3 a 3 a 20 a3 sheet1 b 3 b 20 left b3,find b3 1 sheet1 c 3 c 20 r...
求助EXCEL函式，求助乙個EXCEL函式
問題不難,關鍵是你的問題未說清楚,差價到底有多少種,是否存在舉例的兩種之間的數值?有沒有一定的範圍?用choose函式或lookup函式就可以解決.應該有乙個過渡的吧？例如0.07或者0.12之類怎麼算？如果有的話，按我的理解是 if a1 0.35,0.1 1 0.1 2 0.1 3 a1 0.3...
如何用excel排序，excel表中怎麼運用排序？
excel排序的所有用法 excel資料的排序 excel排序小技巧有哪些？很簡單，讓我來教會你！首先，對操作 全選。在資料選單下點排序。彈出的對話方塊會讓你選擇，是按公升序或降序。在此對話方塊裡點選項，是按行排或是按列排，依你自己需要選擇，確定即可。excel表中怎麼運用排序？1 首先開啟exce...
求助excel大神
j2輸入 index f f,min if countif j 1 j1,f 2 f 18 100,row 2 18 先按住 ctrl shift,最後回車 公式下拉k2輸入 countif f f,j2 公式下拉l2輸入 sumif f f,j2,e e 公式下拉 你描述的有點不妥，所以誤導大家為...
求助excel高手
if and a1 0,a1 0.75 a1 1.2,if and a1 0.75,a1 1 a1 0.6,if and a1 1,a1 1.25 a1 0.4,if and a1 1.25,a1 1.5 a1 0.2,if and a1 1.5,a1 1.75 a1 0.1 在a1裡輸入乙個0至1...