戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
検索用マクロで同じ名称の場合にスキップする機能

    [195378] 検索用マクロで同じ名称の場合にスキップする機能-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ジンバブエ -(2022/11/14(16:23))
    □U R L/
      下記のマクロですが、InputBoxで指定した文字を"Sheet1", "保存用シート"のB列に該当する文字があった場合にヒットする様に作成したのですが
      該当する名称が全く同じ名前で複数続けてあった場合に1個づつヒットしないで別の名称を探す様にできないでしょうか?
      ヒットした名称と1個したのセルが同じ名称だった場合スルーする的なイメージです
      説明が下手ですみません。
      
      下記の様な名称があった際に「山本」で検索した場合、最初に2行目でヒットしてずっと同じ名称の為次に9行目でヒットする様な感じです
      1行目	田中
      2行目	山本
      3行目	山本
      4行目	山本
      5行目	山本
      6行目	加藤
      7行目	加藤
      8行目	鈴木
      9行目	山本2
      
      
      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方にて解決致しました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G