Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45409 / 76735

←次へ　｜　前へ→


	【36319】Re:表のインデックス呼び出しに関して

Kein - 06/3/28(火) 21:29 -


	引用なし

	パスワード

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

で、どうでしょーか ?

0 hits

▼

【36317】表のインデックス呼び出しに関して Hirok 06/3/28(火) 20:59