Excel VBA質問箱 IV

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

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


66659 / 76734 ←次へ | 前へ→

【14638】Re:全シートの検索結果表示
回答  Jaka  - 04/6/3(木) 17:16 -

引用なし
パスワード
   こんにちは。
ない方が良いくらい中途半端ですが...もう帰りますので。

Sheets("検索結果").Select '検索結果シートを選択
Cells.Select       '全てのセルを選択
Selection.Clear      '選択範囲を全てクリア
  ↓
Sheets("検索結果").Cells.Clear

*******************
'キャンセルが押されたときの処理
  If a = False Then
    Sheets("検索結果").Range("A1").Select
   Exit Sub
  End If
   ↓  違うブック、シートのセルを選択する時は、きっちり仕事を分けましょう。
  If a = False Then
    Sheets("検索結果").Select
    Range("A1").Select
    Exit Sub
  End If

*******************
a = StrConv(a, vbWide)   '半角文字を全角に変換
aa = "*" + a + "*"
  ↓
aa = "*" & StrConv(a, vbWide) & "*"
雑誌などでも文字列の連結に「+」を使って書いてある所もありますが、私から見ると「なんだこの雑誌!」と思えてしまいます


連結には「&」を使うようにした方が良いです。

*******************
'フィルタをかける
  Sheets("No.1").Select
  Range("A4").Select
  Selection.AutoFilter
  '選択した範囲にフィルタをかける
 
'-----------------------------------

'5列目(E列)にJIS関数(半角を全角に変換する関数)している
'5列目(E列)より[aa]変数を検索する
  Selection.AutoFilter Field:=5, Criteria1:=aa

 ↓ 2つあわせて。
Sh2Ed = Sheets("No.1").UsedRange.Cells(Sheets("No.1").UsedRange.Count).Row
Sheets("No.1").Range("E4:E" & Sh2Ed).AutoFilter Field:=1, Criteria1:=aa
2 hits

【14637】全シートの検索結果表示 ママさん 04/6/3(木) 16:25 質問
【14638】Re:全シートの検索結果表示 Jaka 04/6/3(木) 17:16 回答
【14677】Re:全シートの検索結果表示 Jaka 04/6/4(金) 12:36 回答
【14756】Re:全シートの検索結果表示 Jaka 04/6/7(月) 9:10 回答
【14761】Re:全シートの検索結果表示 ママさん 04/6/7(月) 11:03 お礼

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