case 邏輯語法

cool_fan

老師您好,

想請教下邏輯語法問題:

構思:
1. 假設   (1) 輸入inputbox 值為空白,則為msgbox(“空”)   (ex:輸入空白)
             (2) 輸入inputbox 值不為空，但輸入的值(inputbox)不在搜尋範圍內, 則Msgbox(“搜尋時間不在範圍”)  
             (ex:假設inputbox輸入10:19:58,但搜尋範圍內裡面沒有此時間)
             (3) else inputbox 不為空且搜尋時間有被找到，則 msgbox(“輸入時間的值”)，程式執行下去
2. 是否可以針對特定某一行去做搜尋 (ex:假設搜尋範圍為B40列到B100列->B40:B100)


問題如下:

Q1: 目前遇到問題是 inputbox輸入空白,沒有沒有進入 (1)  msgbox(“空”)   //是不是無法對輸入空白東西做判斷?

Q2:  假設我今天輸入值為123 , 應該進入 (2) =>Msgbox(“搜尋時間不在範圍”)  ，不過沒有進入(2),卻進入(3)

代碼如下:

Sub search_test()

    Range("B2").Select
    ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("工作表1").Sort
        .SetRange Range("B2:B10000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

   '輸入第一個值
    x1 = InputBox("請輸入時間")
   '尋找第一個值
    x2 = Cells.Find(What:=x1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate

        Select Case x1
        '假設輸入值為空
        Case Is = ""
            MsgBox ("輸入時間為空")

'        '輸入值與資料搜尋範圍內時間不符
        Case x1 <> x2
            MsgBox ("不在此時間範圍，請輸入正確時間")

        Case Else
'          '顯示時間值，程式繼續執行下去
            MsgBox (x1)

        End Select
End Sub

imingho

第2個問題.
您用了case x1,在判斷式中就不用到x1,改成is <>x2來判斷。
另外您用find尋找指令，要用物件去接收結果，再用if來判斷是否是nothing(找不到)

1. Sub search_test()
   
2. 
   
3.     Range("B2").Select
   
4.     ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Clear
   
5.     ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Add Key:=Range("B2"), _
   
6.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
7.     With ActiveWorkbook.Worksheets("工作表1").Sort
   
8.         .SetRange Range("B2:B10000")
   
9.         .Header = xlNo
   
10.         .MatchCase = False
    
11.         .Orientation = xlTopToBottom
    
12.         .SortMethod = xlPinYin
    
13.         .Apply
    
14.     End With
    
15.    
    
16.    '輸入第一個值
    
17.     x1 = InputBox("請輸入時間")
    
18.    
    
19.    '尋找第一個值
    
20.    '要將尋找結果放到物件,再用nothing來判斷是否有找到
    
21.     Set x = Cells.Find(What:=x1, After:=ActiveCell, LookIn:=xlFormulas, _
    
22.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    
23.         MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    
24. 
    
25.     '若沒找到則給空字串
    
26.     If x Is Nothing Then
    
27.        x2 = ""
    
28.     Else
    
29.        x2 = x.Value
    
30.     End If
    
31. 
    
32.         Select Case Trim(x1)
    
33.         '假設輸入值為空
    
34.         Case Is = ""
    
35.             MsgBox ("輸入時間為空")
    
36. 
    
37. '        '輸入值與資料搜尋範圍內時間不符
    
38.         Case Is <> x2
    
39.             MsgBox ("不在此時間範圍，請輸入正確時間")
    
40. 
    
41.         Case Else
    
42. '          '顯示時間值，程式繼續執行下去
    
43.             MsgBox (x1)
    
44. 
    
45.         End Select
    
46. End Sub
    
47. 
    
48. 
    

複製代碼

imingho

先回答第1個問題.
空白跟空字串不同，您可以用trim來去除左右空白。

1. Sub search_test()
   
2. 
   
3.     Range("B2").Select
   
4.     ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Clear
   
5.     ActiveWorkbook.Worksheets("工作表1").Sort.SortFields.Add Key:=Range("B2"), _
   
6.         SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
7.     With ActiveWorkbook.Worksheets("工作表1").Sort
   
8.         .SetRange Range("B2:B10000")
   
9.         .Header = xlNo
   
10.         .MatchCase = False
    
11.         .Orientation = xlTopToBottom
    
12.         .SortMethod = xlPinYin
    
13.         .Apply
    
14.     End With
    
15.    
    
16.    '輸入第一個值
    
17.     x1 = InputBox("請輸入時間")
    
18.    '尋找第一個值
    
19.     x2 = Cells.Find(What:=x1, After:=ActiveCell, LookIn:=xlFormulas, _
    
20.         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    
21.         MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
    
22. 
    
23.         Select Case Trim(x1)
    
24.         '假設輸入值為空
    
25.         Case Is = ""
    
26.             MsgBox ("輸入時間為空")
    
27. 
    
28. '        '輸入值與資料搜尋範圍內時間不符
    
29.         Case x1 <> x2
    
30.             MsgBox ("不在此時間範圍，請輸入正確時間")
    
31. 
    
32.         Case Else
    
33. '          '顯示時間值，程式繼續執行下去
    
34.             MsgBox (x1)
    
35. 
    
36.         End Select
    
37. End Sub
    
38. 
    
39. 
    
40. 
    

複製代碼

cool_fan

老師您好, 學到一個新用法 謝謝您。

cool_fan

了解，老師謝謝 。 我在修正一下自己的一些想法

cool_fan

老師，我想請教下inputbox問題,
在輸入時間裡的08:06:23 是否能輸入數字即可，而裡面的 : (分號不用打會顯示出來,也不會被修改)，只需輸入數字即可

以下是我的程式碼
InputBox("Time input", Default:="08:06:23")

imingho

cool_fan 發表於 2019-12-6 14:01
老師，我想請教下inputbox問題,
在輸入時間裡的08:06:23 是否能輸入數字即可，而裡面的 : (分號不用打會顯 ...

您好,
     inputbox沒有您說的這個功能。

cool_fan

了解，謝謝。