Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1188 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75851】検索ダイアログを表示させるﾏｸﾛﾎﾞﾀﾝを作成したいのですが hamako 14/7/15(火) 11:03 質問[未読]
【75852】Re:検索ダイアログを表示させるﾏｸﾛﾎﾞﾀﾝを作... kanabun 14/7/15(火) 11:39 発言[未読]
【75853】ありがとうございます！ hamako 14/7/15(火) 14:11 質問[未読]
【75854】Re:ありがとうございます！ 独覚 14/7/15(火) 15:29 発言[未読]
【75855】Re:ありがとうございます！ 独覚 14/7/15(火) 15:46 発言[未読]
【75856】できました！ありがとうございます! hamako 14/7/16(水) 9:11 お礼[未読]
【75851】検索ダイアログを表示させるﾏｸﾛﾎﾞﾀﾝを作...
質問  hamako  - 14/7/15(火) 11:03 -
引用なし
パスワード
   ★★★やりたいこと★★★
シートのＣ列に得意先名
（他の列には住所や電話番号や得意先コードが入ってます）
検索ダイアログを表示させるマクロボタンを作成し、
Ｃ列を検索したい
もしできれば、ヒットした得意先名のセルの色を赤くしたい（検索中に）
★★★★★★★★★★★★

Sub 検索()
Columns("C:C").Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub

上記のように設定してみたのですが、
検索ダイアログの初期検索方向が「行」となっているため、
毎回毎回タブで「列」に変えないといけないのをなんとかしたいです。
（はじめから「列」になっている検索ダイアログを開きたい）
また、「列」としたとしても
C列に検索ワードがないと他の列まで検索してしまうのも
できればなくしたいです
（・・エクセルの検索とはそういうものなのでしょうか？）

お手数おかけしますが、
よろしくお願いいたします。
【75852】Re:検索ダイアログを表示させるﾏｸﾛﾎﾞﾀﾝを...
発言  kanabun  - 14/7/15(火) 11:39 -
引用なし
パスワード
   ▼hamako さん：

>Sub 検索()
>Columns("C:C").Select
> Application.Dialogs(xlDialogFormulaFind).Show
> End Sub
>
>上記のように設定してみたのですが、
>検索ダイアログの初期検索方向が「行」となっているため、
>毎回毎回タブで「列」に変えないといけないのをなんとかしたいです。
>（はじめから「列」になっている検索ダイアログを開きたい）
>また、「列」としたとしても

他の掲示板ですが、
ht tp://okwave.jp/qa/q674515.html
が参考になるかと。
【75853】ありがとうございます！
質問  hamako  - 14/7/15(火) 14:11 -
引用なし
パスワード
   ▼kanabun さん：

早々のご返信ありがとうございます。
教えて頂いたページより、
ダイアログの初期値を「列」にすることができました！

ただ、やはりC列以外も検索してしまうのですが
C列以外は検索しないようにはどのようにしたらよいでしょうか・・m(__)m
今は下記マクロを登録しています。

Sub 検索()
ActiveSheet.Cells.Find _
　What:="", _
　LookIn:=xlValues, _
　SearchOrder:=xlByColumns, _
　MatchByte:=False
　Columns("C:C").Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
【75854】Re:ありがとうございます！
発言  独覚  - 14/7/15(火) 15:29 -
引用なし
パスワード
   ▼hamako さん：
>ただ、やはりC列以外も検索してしまうのですが
>C列以外は検索しないようにはどのようにしたらよいでしょうか・・m(__)m
>今は下記マクロを登録しています。

C列以外に検索値があった場合に「検索値に一致するデータが見つかりません」が表示されないのが
難点ですが。

あと、検索方向の列選択は下記を参考にしています
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=16359;id=excel

Sub 検索()
　　Columns("C:C").Select
　　ActiveSheet.ScrollArea = "C:C"
　　Application.Dialogs(xlDialogFormulaFind).Show , , , 2
　　ActiveSheet.ScrollArea = ""
End Sub
【75855】Re:ありがとうございます！
発言  独覚  - 14/7/15(火) 15:46 -
引用なし
パスワード
   追記で。

上では列選択以外を省略していますがきちんと指定しておいたほうがいいかもしれません。
【75856】できました！ありがとうございます!
お礼  hamako  - 14/7/16(水) 9:11 -
引用なし
パスワード
   ▼独覚 さん：
ばっちりです！
なるほどですね！
ありがとうございました!!m(__)mm(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1188 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free