- ベストアンサー
フィルターで抽出した値について
Excel VBAでオートフィルターを設定し、 抽出された値を変数に代入したいのですが、 想定通りの動きをしません。 どうすれば良いかお教え下さい。
- cliosworld
- お礼率37% (6/16)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- オートフィルターで一つずつ抽出したものを....
Bの行にオートフィルターをかけ、列の11で一つずつ抽出したものをコピーし、新規シートに貼り付けたいのですがどうやれば良いですか? 見出し『商品』として抽出されるもの全て新規シートにそれぞれコピーしたいです。 VBAの場合、初心者ですのでわかりやすくお願いします。 わかる方には面倒な事ばかりで申し訳ありませんが宜しくお願いします。 エクセル2010です。
- 締切済み
- その他MS Office製品
- エクセルＶＢＡでフィルタ抽出部分のみのコピー
エクセルＶＢＡで売上帳を作成していますが、オートフィルタでデータ抽出した後、表示されている行のみをコピーして別シートに貼りつけるにはどうすればよいのでしょう？ 別シートは指定したセルに値のみの貼り付けをしたいと思っています。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- オートフィルタの指定の値以上抽出マクロについて
VBA初心者です。 よろしくお願いします。 オートフィルタの指定の値以上を抽出するマクロを作りたいのですが、 うまくいきません。 内容は、Sheet1のB6にSheet2のA2の値を代入し A列のA2の値以上の抽出をしたいのですが、Seet1のB2の5000は抽出されるのに どうしてもB6に代入した5000の値が抽出されません。 自分なりにマクロ記録を少しいじってつくったのですが。。。 Sub aa() ' Dim a As Integer a = Sheets("Sheets2").Range("A2").Value Range("B6").Select ActiveCell.FormulaR1C1 = a ActiveSheet.Range("$A$5:$FX$307").AutoFilter Field:=4, Criteria1:=">" & a _ End Sub B6の5000の値は他の数値とは異なる扱いになっているようです。 Sheet1 .......A......... B..........C............D 1 数値｜数値２｜数値3｜数値4 2 5000...1000 3 2000.. 2000 4 3000...3000 5 4000...4000 6 5000..←-----（抽出されない） Sheet2 .......A 1 値 2 5000 3 0 素人のため、説明もうまくできませんが、わかる方どうぞご指導願います。 使用しているのはEXCEL2007です。
- ベストアンサー
- オフィス系ソフト
- エクセル オートフィルタ、文字色で抽出
エクセル_2000なのですが、オートフィルタ等で、テキストの色が違う部分（たとえば、文字色「赤」のみ）抽出するような方法はありませんでしょうか。 VBAはあまりわかりませんので、アドインでそのようなものがあると有難いのですが・・。ご存知のかた、教えてくださいませ。
- ベストアンサー
- オフィス系ソフト
- フィルタオプションの設定で空欄を抽出
エクセルどなたか教えてください！！ フィルタオプションの設定で空欄を抽出したいのですが（オートフィルタではありません） セルに条件は、なにを入力したらよいですか
- 締切済み
- Windows系OS
- オートフィルタの抽出速度を上げるには？
エクセルで、データを抽出する際よく「データ」→オートフィルタ」を使うのですが、データ量が増えるにつれデータ抽出するのに５秒ぐらいかかるときがあります。 それが、別のエクセルファイルで、私がよく使うファイルよりもはるかに重いものがあるのですが、そのファイルで「オートフィルタ」を使ってもデータ抽出するのに５秒もかかりません。 もしかして、セル入力に「リスト」を使うのと「直接入力」とでオートフィルタの抽出速度の差が出てるのかなと思ったりもしたのですが、どうなんでしょうか？ いろいろ調べたのですが、わからないので、アドバイスを下さい。
- ベストアンサー
- オフィス系ソフト
- EXCELのオートフィルターで抽出されたレコード件数をVBAで参照する方法は？
EXCELのオートフィルターで抽出されたデータの件数が、左下のステータスバーに表示されますが、その抽出件数をVBAで取得する方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- オートフィルタがかかっていて、なおかつ抽出中なら
オートフィルタがかかっていて、なおかつ抽出中なら、 という状態をvbaで取得する方法はありますか？ Sub Sample() If ActiveSheet.AutoFilterMode = True Then End If End Sub これだと、 オートフィルタがかかっているだけでも、反応してしまいます。 「行番号が青色になってるのなら」 と同じ状態にしたいのですが、 どういうコードになりますか？
- ベストアンサー
- オフィス系ソフト
- Excelのオートフィルタで抽出した件数の表示
Excelのオートフィルタで抽出した件数が確か、画面の枠の下に表示できたと思うのですが、どこで設定すればいいのかよく分かりません。Excel2002です。
- ベストアンサー
- オフィス系ソフト
- オートフィルタ 助けてください！
初心者です。 エクセルのオートフィルタを使って抽出しようとしても、ある範囲までしかオートフィルタが反映されません。 範囲の設定がおかしいのではと思うのですが、フィルタオプションでの範囲の指定方法が良く分かりません。 すみませんがご回答お願いします。
- ベストアンサー
- その他（インターネット・Webサービス）
- 通常の白黒コピーとスキャンの画質が不鮮明で困っています。製品は新品を購入してまだ２か月程度です。住民票（下地が薄いカラー）を白黒コピーすると文字の画質がぼやけてしまう。濃度を濃くすると下地のドットが強くでてしまい、汚くなる。同様に、（下地が薄いカラー）の紙を白黒スキャンすると、文字が粗くなってしまう（400×400は文字が粗すぎて読めない,600×600でも同じ。1200×1200にすると下地が濃くでてしまうのでかえって汚い。）。他に詳細設定を色々試してみたのですが、もとの黒文字が薄目の印刷なのできれいにスキャンできません。下地のドット部分が完全に除去ではなく、文字がきれいにスキャンできる方法はないでしょうか。
- お使いの環境はWindows10で有線LAN接続です。関連するソフト・アプリとしては、ブラザーの印刷ソフトをダウンロードして使用しています。電話回線はひかり回線です。
- この問題について、新品のMFC-J4440Nの画質の改善方法を教えてください。通常の白黒コピーと白黒スキャンの際に画質が不鮮明になる問題が発生しており、濃度や解像度の設定など試しても改善されません。特に下地が薄いカラーの紙を処理する際に問題が顕著です。下地のドット部分が完全に除去されず、文字がぼやけたり粗くなってしまいます。きれいにスキャンするための設定や方法があればご教授ください。
