- 帖子
- 9
- 主題
- 3
- 精華
- 0
- 積分
- 62
- 點名
- 1
- 作業系統
- Window 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺北
- 註冊時間
- 2018-10-25
- 最後登錄
- 2024-5-16
|
[發問] Cells.Find 如何讓找不到資料時就跳過
大家好
自己在製作表格查詢時，遇到Cells.Find的用法不知道如何能夠解決，
還請版本的各位能不吝指教，謝謝
說明：附近excel檔案有兩個頁面 (查詢、總表)，當把某一些材料號碼放到『查詢』頁面的A2-A16後，
程式可以去總表把後面的資料 (包含舊資料、替代關係、可用機型)，貼到對應的欄位。
目前已經可以做查詢的功能，但如果『查詢的資料』在總表不存在就會出現以下錯誤，
『執行階段錯誤 '91':』
『沒有設定物件變數或With區塊變數』
再請各位協助幫忙指出問題與解法，謝謝- Sub 替代料表用資材查詢220901()
- '
- Dim find_data, dat_rng, data_end, data_row, CleanFail
- Application.ScreenUpdating = False
- Sheets("查詢").Select
- Range("B2:BQ16").ClearContents
- For i = 2 To 16
- If Cells(i, "A") = "" Then
- Exit For
- Else
- find_data = Sheets("查詢").Cells(i, "A")
- Cells(i, "A").Select
- Sheets("總表").Select
- date_end = Range(Selection, ActiveCell.SpecialCells(xlCellTypeLastCell)).Address
- date_rng = "A1:" & date_end
-
- Cells.Find(What:=find_data, After:=ActiveCell, LookIn:=xlValues, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
- MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
-
- Selection.End(xlToRight).Select
- Selection.Copy
- Sheets("查詢").Select
- Cells(i, "A").Select
- ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("總表").Select
- Selection.End(xlToRight).Offset(0, 1).Select
- Selection.Copy
- Sheets("查詢").Select
- ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Sheets("總表").Select
- Selection.Offset(0, 2).Select
- Range(Selection, Selection.End(xlToRight)).Copy
- Sheets("查詢").Select
- ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- End If
- Next
- Cells(ActiveWindow.ActivePane.ScrollRow, ActiveWindow.ActivePane.ScrollColumn).Select
- Application.ScreenUpdating = True
- End Sub
|
-
-
CUT.JPG
(134.13 KB)
-
-
試驗料表up.rar
(36.75 KB)
替代
|
發表於 2022-9-2 12:00
| 
