Excel VBA質問箱 IV

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

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


33044 / 76734 ←次へ | 前へ→

【48916】Re:処理の早い検索について
質問  kita  - 07/5/16(水) 0:55 -

引用なし
パスワード
   ▼Kein さん:
検索に興味があるので質問させてください
横から失礼してすみません""test""の部分を
インプットboxを使うにはどう書き込めばいいのですか?
よろしくお願いします。

Sub test()
Dim i As Variant
i = Application.InputBox("検索文字列を入力してください。", Type:=2)

★後で読み返して説明が下手でした
Application.InputBoxを利用するには下記コードの修正
方法を教えていただきたいのですが・・・

>例えば A列の最終入力行 までを基準として、A:F列 までで "test" の文字を
>検索し、無ければ行全体を削除する。ということがしたいなら・・
>
>  Application.ScreenUpdating = False
>  With Range("A1", Range("A65536").End(xlUp)).Offset(, 6)
>   .Formula = "=MATCH(""test"",$A1:$F1,0)"
>   .Copy
>   .PasteSpecial xlPasteValues
>   .CurrentRegion.Sort Key1:=Columns(7), Order1:=xlAscending, _
>   Header:=xlGuess, Orientation:=xlSortColumns
>   If WorksheetFunction.Count(.Cells) < .Count Then
>     .SpecialCells(2, 16).EntireRow.ClearContents
>   End If
>   .ClearContents
>  End With
>  Range("A1").Select
>  With Application
>   .CutCopyMode = False
>   .ScreenUpdating = True
>  End With
>
>というコードで、高速な処理ができると思います。

3 hits

【48903】処理の早い検索について 霧島 07/5/15(火) 16:06 質問
【48904】Re:処理の早い検索について Kein 07/5/15(火) 16:29 回答
【48906】Re:処理の早い検索について Kein 07/5/15(火) 16:43 発言
【48910】Re:処理の早い検索について kita 07/5/15(火) 20:46 質問
【48915】Re:処理の早い検索について 霧島 07/5/15(火) 23:51 お礼
【48916】Re:処理の早い検索について kita 07/5/16(水) 0:55 質問
【48919】Re:処理の早い検索について Jaka 07/5/16(水) 9:37 発言
【48932】Re:処理の早い検索について kita 07/5/16(水) 13:15 発言
【48933】Re:処理の早い検索について Kein 07/5/16(水) 14:05 回答
【48934】Re:処理の早い検索について kita 07/5/16(水) 14:36 お礼

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