帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-8-10 00:32 | 只看該作者

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

本帖最後由 olisun 於 2010-8-10 12:14 編輯

我希望當查詢週次尚未輸入時，能夠在查詢的時候會出現"無此週次"，並離開此程序
如果要查詢的週次存在，則繼續程序
不知哪錯了，就是有問題
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("n4

37") = ""
      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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 15
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-12

2^#

發表於 2010-8-10 00:52 | 只看該作者

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

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

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

TOP

olisun

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

3^#

發表於 2010-8-10 01:04 | 只看該作者

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

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-8-10 01:45 | 只看該作者

沒有實際需要,不要用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

換成

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

複製代碼

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

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

olisun

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

5^#

發表於 2010-8-10 02:20 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-8-10 08:05 | 只看該作者

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

TOP

olisun

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

7^#

發表於 2010-8-10 10:10 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2010-8-10 10:32 | 只看該作者

回復 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)

TOP

olisun

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

9^#

發表於 2010-8-10 10:53 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-8-10 11:18 | 只看該作者

回復 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

TOP