[[20151031033056]]　『検索キーについて』（あん）　ページの最後に飛ぶ

『検索キーについて』（あん）

現在、下記のようにシートから対象文字を検索することを
やろうとしています。

それをベースに次の事をしたいのですが、
どうすればできるのか…。
すいません、アドバイスいただけますでしょうか？

検索データは郵便番号のように間に"-"(ハイフン)がありますが
入力時この"-"が無くても検索することは可能でしょうか。

<例>
100-0001
1000001 どちらでもヒットさせたい
かなり無理なことかと思いますが、よろしくお願いします。

Sub 検索()

    Dim oRange As Range
    Dim sValue As String

    sValue = InputBox("対象データ数値は？")

    Set oRange = Cells.Find(What:=sValue _
                          , After:=ActiveCell _
                          , LookIn:=xlFormulas _
                          , LookAt:=xlPart _
                          , SearchOrder:=xlByRows _
                          , SearchDirection:=xlNext _
                          , MatchCase:=False _
                          , MatchByte:=False _
                          , SearchFormat:=False)

    If oRange Is Nothing Then
       MsgBox sValue & "は見つかりませんでした" _
            , vbOKOnly + vbInformation _
            , "検索結果"
    Else
       oRange.Activate
    End If
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 InputBoxの次の行に
 sValue = Format$(sValue, "000-0000")
 を挿入?
（seiya） 2015/10/31(土) 05:39

コメント返信：

[ 一覧(最新更新順) ]

[[20151031033056]] 『検索キーについて』（あん） ページの最後に飛ぶ

[[20151031033056]]　『検索キーについて』（あん）　ページの最後に飛ぶ