Excel VBA質問箱 IV

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

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


1068 / 13644 ツリー ←次へ | 前へ→

【76480】検索のダイアログボックスの検索文字欄を空白にしたい ペンネーム船長 14/12/10(水) 21:59 質問[未読]
【76481】Re:検索のダイアログボックスの検索文字欄... カリーニン 14/12/10(水) 23:58 発言[未読]
【76482】Re:検索のダイアログボックスの検索文字欄... カリーニン 14/12/11(木) 0:14 発言[未読]
【76483】Re:検索のダイアログボックスの検索文字欄... β 14/12/11(木) 8:37 発言[未読]
【76487】Re:検索のダイアログボックスの検索文字欄... ペンネーム船長 14/12/12(金) 23:38 お礼[未読]

【76480】検索のダイアログボックスの検索文字欄を...
質問  ペンネーム船長  - 14/12/10(水) 21:59 -

引用なし
パスワード
   いつもお世話になっています。
「Ctrl」+「F」で表示される検索のダイアログボックスの「検索する文字列(N)」の欄を空白にするコードを教えて下さい。
理由:マクロで検索を行った後、検索ダイアログを表示させると直前に検索した文字が残っています。これをクリアしたいのです。
宜しくお願いします。

【76481】Re:検索のダイアログボックスの検索文字...
発言  カリーニン  - 14/12/10(水) 23:58 -

引用なし
パスワード
   Application.SendKeysを使った方法です。

Application.SendKeys ("^f")
Application.SendKeys ("{BS}")

【76482】Re:検索のダイアログボックスの検索文字...
発言  カリーニン  - 14/12/11(木) 0:14 -

引用なし
パスワード
   こんな方法でも。
文字列のところを""にすればブランクになります。

Sub test()
Dim shurui As Long
Dim mystr As String
 shurui = xlDialogFormulaReplace '置換
 'shurui = xlDialogFormulaFind '検索
 mystr = "あいう" '文字列
 Application.Dialogs(shurui).Show mystr
End Sub

【76483】Re:検索のダイアログボックスの検索文字...
発言  β  - 14/12/11(木) 8:37 -

引用なし
パスワード
   ▼ペンネーム船長 さん

End Sub で抜ける直前に以下のコードを記述しておいてもいいかも。

  Application.DisplayAlerts = False
  Cells.Find What:=""

【76487】Re:検索のダイアログボックスの検索文字...
お礼  ペンネーム船長  - 14/12/12(金) 23:38 -

引用なし
パスワード
   ▼β さん:
私が今作っている前後のコードから検索ダイアログボックスを表示しない
方が良さそうなので、βさんのコードを使わせていただくことにしました。
有難う御座いました。

>
>End Sub で抜ける直前に以下のコードを記述しておいてもいいかも。
>
>  Application.DisplayAlerts = False
>  Cells.Find What:=""

1068 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free