[發問] 查詢提示問題(以解決，感謝GBKEE的幫忙)

olisun

我希望當查詢週次尚未輸入時，能夠在查詢的時候會出現"無此週次"，並離開此程序
如果要查詢的週次存在，則繼續程序
不知哪錯了，就是有問題
Private Sub CommandButton1_Click() '查詢
    Dim a As Integer
       Dim b As Range
         Dim t As Range
           Dim r As Range
   
    Sheets(5).Range("f4:g37") = ""
      Sheets(5).Range("j4:k37") = ""
       Sheets(5).Range("n437") = ""
         Sheets(5).Range("a5") = ""
           Sheets(5).Range("a29") = ""
             Sheets(5).Range("a35") = ""

a:                      czxm = InputBox("輸入查詢週次!")
   
    With Sheets("初看未購原因")
        Set r = .Range("A4:A" & .Range("A65536").End(xlUp).Row)

  On Error Resume Next
   d = .Cells(.Range("A4:A").Find(czxm).Row, 1)
  If d = czxm Then
   MsgBox "無此週次", 0
  Exit Sub
End If
End With
With Sheets(5)
     Set c = Sheets(2).Range("A:A").Find(czxm, lookat:=xlWhole)
   
       If Not c Is Nothing And czxm > "1" Then
         Sheets(5).Range("a5").Value = czxm
            Sheets(5).Range("a29").Value = Sheets(2).Cells(c.Row, 2).Value '日期
                     .Range("a35").Value = .Range("a29").Value + 6 '日期
         Arr = Sheets(2).[a4].Resize(c.Row - 4, 36)    '增加
         Arr1 = Sheets(3).[a4].Resize(c.Row - 4, 36)    '增加
         Arr2 = Sheets(4).[a4].Resize(c.Row - 4, 36)    '增加

GBKEE

回復 11# olisun
請附上檔案看看

olisun

使用f8逐步執行是ok的
可是真正執行的時候，輸入已存在的週次都會出現"物件不支援此屬性或方法"
如果輸入不存在的週次則正確的顯示"無此週次"

GBKEE

回復 9# olisun
With Sheets("初看未購原因")
    Set r = .Range("A4:A" & .Range("A65536").End(xlUp).Row) '
    '不要用它On Error Resume Next
    If r.Find(czxm) Is Nothing Then
        MsgBox "無此週次"
        Exit Sub
    End If
End With

olisun

我的式子是有&的，只是複製到這不見了
我希望輸入不存在的週次會出現"無此週次"都沒有執行
MsgBox "無此週次", 0

GBKEE

回復 7# olisun

With Sheets("初看未購原因")  紅字的語法錯誤
    Set r = .Range("A4:A" .Range("A65536").End(xlUp).Row)
   On Error Resume Next
   d = .Cells(.Range("A4:A").Find(czxm).Row, 1)   =>應簡化為  d =r.Find(czxm)
  
這是你要的嗎?
With Sheets("初看未購原因")
    Set r = .Range("A4:A" & .Range("A65536").End(xlUp).Row)  ->修正後
   On Error Resume Next
   d =r.Find(czxm)

olisun

可是沒有那一句就出現錯誤400

GBKEE

回復 5# olisun
On Error Resume Next
d = .Cells(.Range("A4:A").Find(czxm).Row, 1)  這句語法錯誤
因為你使用On Error Resume Next 所以 就忽列這一錯誤繼續執行下去

olisun

經過測試
1.如果輸入存在的週次，則執行到 MsgBox "無此週次", 0   出現執行階段錯誤"424"  此處需要物件。
2.如果輸入不存在的週次，則執行到 d=r.Find(czxm)     出現執行階段錯誤"91"沒有設定物件變數或WITH區塊變數。
這有問題耶!

kimbal

沒有實際需要,不要用On Error Resume Next

上面代碼也不完整,我只看到end with前的

試試把
On Error Resume Next
   d = .Cells(.Range("A4:A").Find(czxm).Row, 1)
  If d = czxm Then
   MsgBox "無此週次", 0
  Exit Sub
End If

換成

1. d=r.Find(czxm)
   
2. if d is nothing Then
   
3.    MsgBox "無此週次", 0
   
4.    Exit Sub
   
5. end If

複製代碼

是查查在a欄找不找到czxm的意思.