[發問] 查詢提示問題(以解決，感謝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)    '增加

luhpro

a:                      czxm = InputBox("輸入查詢週次!")

這一行前面的 a: 可能是問題所在,  (建議你養成排列好程式中文字的習慣,會比較方便找問題點)
當問題發生時可以在訊息視窗中按 "偵錯" 按鍵找問題點,
然而之後出現的畫面中,
不見得反黃區就是問題點.

相反的若出現小小的反藍字元才是問題發生的原因,
雖然那個反藍字元可能很小,
小到幾乎忘了它的存在...
(我常常要看老半天才發現有它的存在.XD)

olisun

我這樣設定的結果是
輸入不存在的週次並沒有出現MsgBox "無此週次", 0的作用，但是會exit sub
就是說除了沒有出現警告之外，一切都符合要求，所以不知是哪錯呢

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的意思.

olisun

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

GBKEE

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

olisun

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

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

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

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