藍(lán)屏提示Call your hardware vendor for support通常意味著硬件故障或驅(qū)動問題。建議先檢查最近是否更新了驅(qū)動或安裝新硬件,嘗試進(jìn)入安全模式卸載相關(guān)驅(qū)動或軟件。若無效,聯(lián)系電腦廠商客服尋求進(jìn)一步支持,可能需要檢測硬盤、內(nèi)存等硬件。
你這個是因為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