No.5ベストアンサー
- 回答日時:
私も作ってみました。
検索範囲はシート全体にしてあります。検索文字はInputBoxを使って入力します。
Findを使って、検索文字があるだけMsgBoxで出力します。
ご参考に。
Sub searchCharacter()
Dim schArea As Range '検索する範囲
Dim myTarget As String '検索文字
Dim fndCell As Range '見つけたセル
Dim firstAdr As String '最初に見つけたセル
Dim schCot As Integer '見つけた個数
'検索文字の入力
myTarget = Application.InputBox("検索する文字列を入力します", "検索", Type:=2)
If myTarget = "False" Then Exit Sub
'1回目の検索実行
Set schArea = ActiveSheet.UsedRange '検索する範囲(この場合はシート全部)
Set fndCell = schArea.Find(what:=myTarget) '検索
If fndCell Is Nothing Then
MsgBox "検索文字:" & myTarget & " は見つかりませんでした。"
Exit Sub
End If
firstAdr = fndCell.Address '1回目の検索結果のアドレス
'2回目以降の検索実行
Do
If MsgBox("検索文字:" & myTarget & " は" _
& fndCell.Row & "行目" & fndCell.Column & "列目" & "にあります。", _
vbOKCancel, "結果") = vbCancel Then
Exit Sub
End If
schCot = schCot + 1
Set fndCell = schArea.FindNext(after:=fndCell) '次を検索
Loop While fndCell.Address <> firstAdr And Not fndCell Is Nothing
MsgBox "検索文字:" & myTarget & " は " & schCot & "個見つかりました。"
End Sub
No.4
- 回答日時:
こんにちは
ワークシート関数でしたら、
=MATCH("バナナ",A:A,0)
マクロでしたら、
Sub test()
Dim Answer As Variant
On Error GoTo errHandler
Answer = Application.WorksheetFunction.Match("バナナ", Columns(1), 0)
MsgBox Answer, , "検索結果"
Exit Sub
errHandler:
MsgBox "検索値が見つかりません"
End Sub
でいかがでしょうか?
参考URL:http://www2.odn.ne.jp/excel/
No.3
- 回答日時:
おとと;
先ほどの当方の回答、一部不足;
> rngWk = Range("F1") '<=MATCHを使用するためのセル
↑
Set rngWk = Range("F1")
~~~
ですね
この方法を使うならMsgboxなどで検索結果を表示した後に
rngWk.Value = ""
で消してしまった方がカッコイイでしょう(^^)
No.2
- 回答日時:
ExcelのVBAからMATCHを使用する場合は
Dim rngWk as Range
rngWk = Range("F1") '<=MATCHを使用するためのセル
rngWk.FormulaR1C1 = "=MATCH(""バナナ"",R1:R5,0)"
Msgbox rngWk.value,,"検索結果"
といった感じで書きますね
セルを使いたくない場合は
dim Answer as Variant
Answer = Application.WorksheetFunction _
.Match("バナナ", Worksheets(1).Range("A1:A5"), 0)
Msgbox Answer,,"検索結果"
でAnswerに結果が返ります
*VBAのシート上でMATCHなどのワークシート関数を書いて[F1]を押すとhelpにコードの書き方が出ますよ
なおMATCHで戻ってくる数字は「行番号」ではなく、「"A1:A5"で指定された中の何番目であるか」なので
データを"A5:A10"に入れている場合には戻ってきた数字に[+4]などしてあげましょう♪
No.1
- 回答日時:
=MATCH("みかん",A1:A5,0) -> 2
=MATCH("バナナ",A1:A5,0) -> 3
というふうに結果が出るかと....
"みかん"とか"バナナ"をセル名にしてもいいでしょう...
お試しください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[Ctrl]+FをVBAで表現
-
【WordXP】網掛け文字の検索
-
InputBoxの値で検索して転記す...
-
「大舎制」ってなんて読むんで...
-
Excelで、テキストボックスに書...
-
windows11のエクスプローラーで...
-
エクセルで検索結果を抽出し、...
-
オーバークロックについて
-
検索キーワードが二重に表示さ...
-
Word、特定の文字を網掛けにす...
-
Alfred Evernote検索出来ない…?
-
viで連続で検索したい時
-
エクセルの検索機能でコピーペ...
-
グーグル先生
-
特定のサイトだけが重くて開けない
-
ホームページの画面文字を濃く...
-
エクセルのプルダウン三角マー...
-
IEの画面に、マカフィーの通...
-
株式会社オール5 について
-
単純所持になりますか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで、テキストボックスに書...
-
windows11のエクスプローラーで...
-
[Ctrl]+FをVBAで表現
-
viで連続で検索したい時
-
検索キーワードが二重に表示さ...
-
エクセルの検索機能でコピーペ...
-
「大舎制」ってなんて読むんで...
-
Word、特定の文字を網掛けにす...
-
エクセルで検索結果を抽出し、...
-
ACCESS VBA Filterに配列を使い...
-
検索の窓に変な文字が
-
エクセルでテキストボックス内...
-
エクセルで~ (チルダー)が検...
-
InputBoxの値で検索して転記す...
-
Bingの「話題の検索ワード」を...
-
検索エンジンで個人情報入力は...
-
教えてgooで質問者の名前で検索...
-
メール内 本文の検索を行いた...
-
Alfred Evernote検索出来ない…?
-
DROPBOXで、ファイルを検索する...
おすすめ情報