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

　↓　２つあわせて。
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