□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 検索用マクロで同じ名称の場合にスキップする機能 | |
|---|---|
[195378] 検索用マクロで同じ名称の場合にスキップする機能- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ジンバブエ -(2022/11/14(16:23)) □U R L/ 下記のマクロですが、InputBoxで指定した文字を"Sheet1", "保存用シート"のＢ列に該当する文字があった場合にヒットする様に作成したのですが
該当する名称が全く同じ名前で複数続けてあった場合に１個づつヒットしないで別の名称を探す様にできないでしょうか？
ヒットした名称と１個したのセルが同じ名称だった場合スルーする的なイメージです
説明が下手ですみません。
下記の様な名称があった際に「山本」で検索した場合、最初に２行目でヒットしてずっと同じ名称の為次に９行目でヒットする様な感じです
1行目 田中
2行目 山本
3行目 山本
4行目 山本
5行目 山本
6行目 加藤
7行目 加藤
8行目 鈴木
9行目 山本２
Sub 件名search()
Dim searchStr As String
Dim 記憶 As String
Dim sh As Worksheet
Dim fCell As Range, fAdr As String
記憶 = Range("AM1").Value
searchStr = InputBox("検索する見積ファイル名を入力してください", , 記憶)
Range("AM1").Value = searchStr
If searchStr = "" Then Exit Sub
For Each sh In Worksheets(Array("Sheet1", "保存用シート"))
Set fCell = sh.Columns("B").Find(what:=searchStr)
If Not fCell Is Nothing Then
fAdr = fCell.Address(External:=True)
Do
Application.Goto fCell
If MsgBox("次を検索しますか", vbYesNo) = vbNo Then Exit Sub
Set fCell = sh.Columns("B").FindNext(after:=ActiveCell)
Loop Until fAdr = fCell.Address(External:=True)
End If
Next
End Sub
以上よろしくお願いします。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒Windows XP Version⇒Excel 2007 ++++++++++++++++++++ | |
[195379] Re[1]: 検索用マクロで同じ名称の場合にスキップする機能- ■記事引用/メール受信=OFF■ □投稿者/ 通りすがり -(2022/11/14(18:50)) □U R L/ 作成したのですが、とありますが、本当に ご自分で作成したのでしょうか？ ここまでコードを書ける方が簡単な修正 ー出来ないとは思えません。 | |
[195380] Re[2]: 検索用マクロで同じ名称の場合にスキップする機能- ■記事引用/メール受信=OFF■ □投稿者/ リンク -(2022/11/14(18:58)) □U R L/ リンクです h ttps://www.excel.studio-kazu.jp/kw/20221110123056.html | |
[195381] Re[3]: 検索用マクロで同じ名称の場合にスキップする機能- ■記事引用/メール受信=OFF■ □投稿者/ ジンバブエ -(2022/11/15(11:52)) □U R L/ すみません、作成したというのは、全てではありません。 別のサイトで教えて頂いてこのマクロになりました。 どもまで詳細を話すべきなのか分からなかったので… 話すとかなり長くなるので | |
[195382] Re[4]: 検索用マクロで同じ名称の場合にスキップする機能- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/11/15(13:39)) □U R L/ studio-kazu.jpの方にレスがついていますが、それではダメだったんですか？ ダメだとしても、何か返信を入れるのが筋ですけど。。 | |
[195385] Re[5]: 検索用マクロで同じ名称の場合にスキップする機能- ■記事引用/メール受信=OFF■ □投稿者/ ジンバブエ -(2022/11/16(13:57)) □U R L/ studio-kazu.jp方にて解決致しました。 | |