1樓：匿名使用者
沒有活動的worksheet物件。
2樓：旅遊達人傲傲
回答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塊變數未設定
3樓：匿名使用者
可能原因是在每二行中未find "dm"、"jc"、"lb"，你需要對未找到進行處理
比如在巨集前面加上語句
on error resume next
等，看你希望怎麼處理。
4樓：匿名使用者
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
5樓：旅遊達人傲傲
回答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
6樓：人皇
直觀上沒看出什麼毛病，要說不足就是過程名字是漢字，外加單元物件未指名呼叫的屬性。把你錯誤後除錯的介面截圖發出來看看
7樓：匿名使用者
問題很難找，可以不停按f8，一行一行執行，出錯了就知道哪一行有問題
求助「執行時錯誤『91』;未設定物件變數或with block變數
visual basic 執行時錯誤
因為我平時也經常用巨集處理資料,所以,個人認為出現這種情況要能有以下幾種原因 檔案的位置,檔名,excel標籤頁的名字 如sheet1,sheet2或是其它名字 是否符合巨集的規範。檔案裡有資料格式與巨集規定的不一致，比如a1單元格中應該是 數值型 的，卻寫了文字字元。或是其它地方複製過來，有空格 ...
vba執行顯示 執行時錯誤「9」 下標越界
有可能是陣列，超過上屆導致的。報錯的時候，建議樓主選擇除錯，然後會在報錯的一行 顯示黃色底色吧。滑鼠放到各個變數上看看，到底是哪個出的問題。vba執行時錯誤9，下標越界 excel中vba提示下標超界，說明物件不存在或者陣列元素不存在。舉個簡單的例子 工作表中沒有 1月 這個工作表，卻用sheets...
DNF執行時電腦自動重啟，DNF執行時電腦自動重啟
1 可能是系統或程式間有不相容的地方，開機按f8不動到高階選項出現在鬆手，選 最近一次的正確配置 回車修復，還不行按f8進入安全模式還原一下系統或重灌系統。2 cpu或其它硬體溫度過高 記憶體 顯示卡不相容或故障引起的。3 硬碟有壞道了，請用系統自帶的功能或軟體修復磁碟，或格式化硬碟重新分割槽重灌系...