- 帖子
- 65
- 主題
- 15
- 精華
- 0
- 積分
- 87
- 點名
- 0
- 作業系統
- WINDOWS10
- 軟體版本
- 2019
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-7-26
- 最後登錄
- 2024-1-31
|
[發問] 查詢提示問題(以解決，感謝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) '增加 |
|
發表於 2010-8-10 00:32
| 
