2018.06.17スポンサーリンク成績表や住所録などの表の中から条件に合うデータだけ取り出して、リストアップした一覧表を作りたいって事ありませんか?点数順や科目別に並び替えたりするには、エクセルのフィルター機能を使って行うこともできますが、リストアップする内容がいつも同じならば、ボタン一つで一瞬で男性リスト・女性リストとかできると便利です。3教科のそれぞれの点数と3教科合計点数を表にして、合計点の評価別に名前をリストアップできるようにします。1つの条件に合うデータを繰り返し取り出してリストアップフィルター機能では各項目の並び替えやリストアップしかできませんが、「合計点」の【A】評価の人の名前をL列に取り出してリストアップします。使うVBAコードはFindNextメソッドで、Findメソッドで設定した検索条件で連続して検索を行います。引数「After」で設定したセルの次のセルから検索を行ってくれて、検索内容の含まれるセルをRangeオブジェクトで返してくれます。下の図のようにコマンドボタン1回押すだけでA評価の人がリストアップされました。これはあくまでも基本的な使い方なので、実際にはもう少し付け加えて、表の中から同じ検索条件で条件に合うデータだけを順に取り出しています。上の図のように「A評価」だけではなく「B評価」「C評価」も全て一括で検索して表示する場合でも使っていますし、各科目別に「A評価」だけ取り出してみたりして使っています。1つの条件を複数検索条件として条件別に転記する先ほどのA評価のみ表示されている図を参考にすると、残りのB評価とC評価も一緒に表示させることができます。Subの間にもう1回2行目~14行目を追加するという事です。追加1回目がB評価、さらに追加2回目がC評価って事ですね。そんなに難しくないでしょう?ただし、同じ名前の変数が使えないので名前をちょっと変えれば大丈夫です。下のコードは2回目のB評価を追加してみました。Sub追加しただけではエラーになるので、変数名を下記のように変えました。myRangeをmyyRangemeRangeをmeeRangemyAddressをmyyAddressiをj4つの変数を変えました!適当な変更ですが、これで大丈夫なのです。あとは、見つけたい評価をB評価に(L2をM2)に変えるだけです。3つ目のC評価も今と同じように変数を適当に変更すれば大丈夫ですよ!同じ条件で探し続けなくていいから特定の値だけ探す、そうVLOOKUP関数を使わずExcel-VBAでできないかな?使い方覚えると応用範囲が広がります。お時間があれば、VLOOKUP関数の代わりにエクセルVBAでやる方法もご覧くださいませ。VLOOKUP関数の代わりにエクセルVBAでやる方法エクセル関数のVLOOKUP関数。文字の置換をエクセルVBAでやる方法データを使ってイベント参加者をリストアップした時に感じたことですが、元々の住所録リストには「男」「女」としている部分を「男性」「女性」に置き換え用とした時の事です。皆さんにお配りする参加者リストなので「男」より「男性」の方がいいですよね。2018.12.03データの操作エクセルVBAで4つ以上並べ替えする方法エクセルの標準機能で並び替えはいくつでもできるのに、VBAだと3つしかできません。4つ以上の並び替えKEY4はエラーになります。そこでちょっとした工夫で4つ以上の並び替えをVBAできるので、ぜひマネして取り入れてはいかがですか?2019.09.11データの操作VLOOKUP関数の代わりにエクセルVBAでやる方法エクセル関数のVLOOKUP関数。データ検索するのに便利なのですが、数式だと困るのでVBAを使ってVLOOKUP関数と同じことができると便利で、仕事の作業効率化になるのでぜひマネして取り入れてみてはいかがですか?2019.09.09このサイトに掲載のVBAコードの動作確認済み環境は下記の通りです。・Excel2010パーソナルにExcel2016プロフェッショナルをインストール・Excel2007プロフェッショナルにExcel2016プロフェッショナルをインストール上記環境以外での動作確認は行っておりません。サンプルのVBAコードは自由にコピーしてご自身のエクセルに使っていただいて構いません。波乗りアヒルエクセルの勉強お疲れ様です。旅行先での移動に鉄道やバスを使う時にフリーパスや往復乗車券付きクーポンを使ってお得に楽しみたい時、意外と調べるのが面倒なんですよね。通常1人分の料金表示なのにJRのフルムーン夫婦グリーンパスは2人分の料金表示だったり、電話で聞いて分かる事も。tripbowl.net誰でもリニア試乗ができるJR東海専用応募サイト2019年第2回リニア試乗募集発表!2027年品川~名古屋間で開通予定の中央リニア新幹線。Reserved.HOMEお問い合わせプライバシーポリシーサイトマップタイトルとURLをコピーしました。