- ベストアンサー
エクセル／組み込み検索ダイアローグで初期値の指定は？
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Sub DrgFind() ActiveSheet.Cells.Find _ What:="", _ LookIn:=xlValues, _ SearchOrder:=xlByColumns, _ MatchByte:=False Application.Dialogs(xlDialogFormulaFind).Show End Sub はいかがでしょう、事前にFindメソッドで空の検索を一回行っておいて、引数 LookIn、LookAt、SearchOrder、 MatchByte の設定が保存されることを利用します。
関連するQ&A
- Excelで検索マクロを作りたい
Excelで検索マクロを作るのに Sub test01() Application.Dialogs(xlDialogFormulaFind).Show End Sub を記述しましたが検索画面で「半角と全角を区別する」にチェックが入ってしまっていますが、チェックがない状態で立ち上げるにはどうしたら良いでしょうか？
- ベストアンサー
- オフィス系ソフト
- Excel VBA組み込みダイアログボックス
Excel2002で、あるセルに入力した文字列をキーワードに、複数のワークシートを検索、検索結果表示を「編集」－「検索」－「すべて検索」をクリックしたように一覧表示したい。 組み込みダイアログボックスを使い、VBAを次のように記述しましたが、表示されるウィンドウに「すべて検索」の表示は無く、「次を検索」しかできません。 組み込みダイアログボックスの引数に何か指定すれば「すべて検索」が可能になるのでしょうか？ それとも、組み込みダイアログボックスを使うことが間違っているのでしょうか？ よろしくお願いします。 Public Sub Kensaku() '変数の宣言 Dim strKeywords As String Dim vntShar As Variant '検索したい文字列を変数Keywordsに取得 strKeywords = Range("B4").Value '左から2番目、3番目、4番目のワークシートを選択 vntShar = Array(2, 3, 4) Sheets(vntShar).Select '検索ウインドウを開いて検索を実行 Application.Dialogs(xlDialogFormulaFind).Show (strKeywords) End Sub
- 締切済み
- オフィス系ソフト
- エクセルVBAの「組み込みダイアログボックス」の使用法？
いつもありがとうございます。 組み込みダイアログボックスについて教えてください。 エクセルのシート内容をCSV形式で保存する場合、組み込みダイアログボックスを使い、下記のマクロでうまく行きました。 Sub CSV保存() '～略～ Application.Dialogs(xlDialogSaveAs).Show ARG2:=6 '～略～ End Sub 試した結果、上記の組み込みダイローグのファイルの種類のデフォルトは ARG2:=の次の値が６でcsv、１でエクセルになるようでした。 次に、エクセルを開いた状態でCSVファイルを開こうと思い、同様に組み込みダイアローグを使用するため下記のマクロを作りました。ところがうまくいきません。 Sub CSVdata取得() Application.Dialogs(xlDialogOpen).Show ARG2:=6 End Sub ・・・・と記述するとエラーになります。 この場合、どうも ARG2:=6の６の数字のところが４以上はエラーとなるようです。 ARG2:=の次の値を１～３にするとエラーにはなりませんが、デフォルトはいずれもエクセルでした。 最初からファイルの種類をCSV形式にするにはどう記述したらよいのでしょうか？ どうかお助けください。
- ベストアンサー
- オフィス系ソフト
- エクセル「検索と置換」の表示を消すマクロ
エクセルの「検索と置換」を Application.Dialogs(xlDialogFormulaFind).Show で出現させて検索の作業をしています。 作業後に「検索と置換」の画面をマクロで消したいのですが どのようなコードになるでしょうか。 宜しくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- excelでマクロが思うように動きません
EXCELでのマクロを使った文字列検索についてお尋ねします。 EXCEL2003のシートにフォームボタンを設置し、そのボタンに 以下のマクロを設定しています。 ここから--------------------------------------------- Sub 検索() Cells.Select Application.Dialogs(xlDialogFormulaFind).Show End Sub ここまで--------------------------------------------- ボタンをクリックすると、検索ダイヤログが開き、任意の文字列を 検索できるのですが、別シートまで検索してしまいます。 【希望1】検索対象をアクティブシートのみにしたい。 表示される“検索ダイヤログ”では、以下項目が設定可能ですが、 1.検索する文字列 2.検索方向 3.対象 4.大文字と小文字を区別 5.完全に同一なセルだけを検索 6.半角と全角を区別 【希望2】変更可能な以下の項目を固定(変更できないように)したい。 2.は“列”に固定 3.は“値”に固定 4.5.6.はチェックボックスでon/offできるようになっていますが、 全てoffに固定 【希望3】出来れば検索ダイヤログには1.の“検索する文字列”欄と、 “次を検索”ボタン、“閉じる”ボタンの3つだけを表示したい。 このような希望を満たすマクロは作成可能でしょうか？ おわかりの方がいらっしゃいましたら、ご教授ください。 よろしくお願い致します。
- 締切済み
- Visual Basic
- 検索マクロの終了について
台帳からの検索方法として、ご教示いただいた下記のマクロを使用させていただいていますが、検索終了後において、「閉じる」か「×」をクリックし検索を終了させないと先にすすみません。 この、「閉じる」か「×」のクリックをしないで、何処でもセルをクリックすると検索が終了するようには出来ないものでしょうか。 チョッとしたことですが、検索行為の度に、非常に不便に感じております。 どなたか、よろしく、お願いいたします。 Sub Sample1() ' // ダミー検索 ' // MatchByte：全角・半角を区別する Range("A8:C1700").Select ActiveCell.Find What:=ActiveCell.Value, _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchByte:=False ' // 検索ダイアログ表示 Application.Dialogs(xlDialogFormulaFind).Show End Sub
- ベストアンサー
- オフィス系ソフト
- IMEを制御するマクロについて教えてください
エクセルを開いて、検索ボタンをクリックするとエクセルの検索ウインドが開くマクロを組みました。 Application.Dialogs(xlDialogFormulaFind).Show それで、この検索ウインドに入力する文字は日本語しか想定してないので、自動的にIMEをデフォルトの半角英数から、ひらがなに変更させるマクロを組みたいのですが、私は全くのド素人のためさっぱりわかりません。 どなたかお手数ですが教えてください。よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- Excel VBAの組み込みダイアログについて
ExcelのVBAの組み込みダイアログで、 Application.Dialogs(xlDialogInsertPicture).Show についてですが、ヘルプの組み込みダイアログボックス引数一覧をみると xlDialogInsertPicture file_name、filter_number とあります。 これは、ダイアログボックスの図の挿入で、ファイル名とファイルの種類の引数になると思いますが、 ダイアログボックスの右上に表示される、表示の縮小表示を選択することってできるのでしょうか？また、ファイルの場所の指定ってできるのでしょうか？どなたか、詳しい方いらっしゃいましたら教えてください。よろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルVBA 組み込みダイアログのコンパイルエラーについて
ファイル保存のための組み込みダイアログでデフォルトの名前を指定したい場合、 Application.Dialogs(xlDialogSaveAs).Show 'ARG1:="あたらしいファイル", ARG2:=1) でOKなのですが、 キャンセルボタンを押された場合の処理をするため Dim boCheck As Boolean boCheck = Application.Dialogs(xlDialogSaveAs).Show 'ARG1:="あたらしいファイル", ARG2:=1) If boCheck = False Then キャンセルの場合の処理 Else そうでない場合の処理 End if とするとコンパイルエラーになります。 どこが悪いのでしょうか？
- 締切済み
- オフィス系ソフト
- エクセル マクロ 検索 自動記録できない
excel2003でマクロを作っていますが、 ファイルを立ち上げたときに自動的にファイル－編集－検索を実行し、 検索画面を起動するようにしたいので、その動作を自動記録しようとするのですが、記録できません。 過去の質問を見て、 Application.Dialogs(xlDialogFormulaFind).Show ↑これを使えば出来ると書いてありましたが、 少し古いエクセルの検索画面で、私が使いたいexcel2003の検索画面ではありませんでした。 どのようにすれば、検索画面をマクロで起動できるのでしょうか。 ご教示いただけますようよろしくお願いします。
- 締切済み
- Visual Basic
お礼
なーるほどお！！！ TTakさん、凄い！感服しました。 ありがとうございました。 本当に助かりました。