|
▼Kein さん:
ありがとうございました。お礼が遅くなり失礼しました。
勉強になりました。
説明不足がありましたが、丁寧な回答に感謝しております。
願わくは、別シートからクリック(フォームで「あ」「か」…「わ」を作成)だけで
文字入力するInputBoxを使わず
検索できれば…更に使いやすいかな?っと思っていました。
そのような方法が有りましたら、アドバイスいただければ幸いです。
…この質問は比較的最近にしたのですが、遥か彼方に移動してしまっていて
?削除されたのか?っと思っていました。…
そのため、お礼が本当に遅くなり失礼しました。
今後ともよろしくご指導をお願いします。
失礼します。
>Sub Test_検索()
> Dim Ary As Variant
> Dim St As String
> Dim FR As Range
>
> Ary = Array("あ", "い", "う", "え", "お", "か", "き", "く", _
> "け", "こ", "さ", "し", "す", "せ", "そ", "た", "ち", "つ", _
> "て", "と", "な", "に", "ぬ", "ね", "の", "は", "ひ", "ふ", _
> "へ", "ほ", "ま", "み", "む", "め", "も", "や", "ゆ", "よ", _
> "ら", "り", "る", "れ", "ろ", "わ")
> Do
> St = InputBox("{ あ〜わ } のうちの一文字を入力して下さい")
> If St = "" Then Exit Sub
> Loop While IsError(Application.Match(St, Ary, 0))
> Set FR = Worksheets("AAA").Range("A:A") _
> .Find(St, , xlValues, xlWhole, , xlPrevious)
> If FR Is Nothing Then
> MsgBox "「 " & St & " 」は見つかりません", 48
> Else
> Application.GoTo FR, True
> Set FR = Nothing
> End If
>End Sub
>
>で、どうでしょーか ?
|
|