TOTO予想ソフトを作ってみよう　検索の設置

TOTO予想ソフトを作ってみよう

Step 8 検索の設置

シートコード

下記のコードを追加してください
'検索ボタン
Private Sub CommandButton7_Click()
    Dim s As String
    Dim srow As String
    Dim lk As Long
    Dim tRange As Range

    s = TextBox1
    If IsNumeric(s) = False Then
        Beep
        MsgBox "回数を入力してください。", , "TOTO予想Excel"
        TextBox1.Activate
        Exit Sub
    End If

    lk = TextBox1

    '1行目から検索
    Set tRange = Sheets("T戦績").Columns(1)
    Set tRange = tRange.Find(What:=lk, LookIn:=xlValues, LookAt:=xlWhole)
    If Not tRange Is Nothing Then
        srow = tRange.Address(RowAbsolute:=False, ColumnAbsolute:=False)
        DataDisp srow
    End If
End Sub

'テキストボックスキー入力イベント
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = KeyInputVal(KeyAscii)
End Sub

標準モジュールコード

下記のコードを追加してください
'整数のみ入力
Public Function KeyInputVal(Key) As Integer
    If Key <> 8 Then
        If (Key < 48 Or Key > 57) Then
            Key = 0
        End If
    End If
    KeyInputVal = Key
End Function

戦績入力画面

	「検索」ボタン、「回数」ラベル、「回数入力」のテキストボックスを設置します。

Topへ