[467.xls]



' [mjSumple] のコード
'■■ 前後一致あいまい検索する ■■
'
'
Const intStartRow = 9
Const intEndRow = 13
Const intFixCol = 8
'フォームを表示します
Sub frmSumple_Show()
             
    'フォームの表示
    frmSumple.Show

End Sub


Sub psCell_Search()
    
Dim strJoken As String
Dim intCnt As Integer
    
    '表示領域のクリア
    frmSumple.txtView.Text = ""
    
    '検索条件を変数にセット
    strJoken = frmSumple.txtJoken.Text
    
    For intCnt = intStartRow To intEndRow
        If Worksheets("Title").Cells(intCnt, intFixCol).Value Like "*" & strJoken & "*" Then
            '検索条件に合致した場合
            frmSumple.txtView.Text = frmSumple.txtView.Text & _
                 Cells(intCnt, intFixCol - 1).Value & Space(3) & _
                    Cells(intCnt, intFixCol).Value & Chr(13)
        End If
    
    Next intCnt
    
End Sub




' [frmSumple] のコード

Private Sub cmdSearch_Click()
    Call psCell_Search
End Sub