エクセルで部活動名簿を作っています。
この学校では、一人の生徒が複数の部活に所属しています。
シート1に下記のような名簿を作成しておいて
A B C D E F G
______________________________
1 学年 氏名 性別 部活 部活 部活 部活
2 1 スズキ 男 バスケ 水泳
3 1 ヤマシタ 女 テニス 水泳
4 2 サトウ 女 バスケ バレー
5 2 イトウ 男 テニス
6 3 タナカ 男 バスケ テニス バレー
シート2に、たとえば「2 男 バレー」(2は、2年生ということ)
と入力して、ボタンをクリックするとシート1の名簿から抽出されてシート2に表示されるようにしたいのです。
最初は複数抽出ではなく、バレー部ならバレー部、バスケ部ならバスケと抽出すればよかったので、マクロの記録を使って
フィルタオプションの設定で指定した範囲を選択
シート1でリスト範囲を指定し
検索条件範囲は、シート2に部活 バレー部と入力しそこのセルを指定
抽出範囲でシート2の表示したいセルを選択しました。
マクロの記録を終了してから、ビジュアルベーシックエディタで
少しいじって、その後フォームでボタンを作成し
そこにマクロを読み込ませて、そのボタンをクリックすると
シート2に表示されるようにしました。
これで出来上がりと思ったら、依頼主からバレー部の中でも
学年でわけ、さらに性別で分けるようにしたいという要望があり
いろいろと試してみたのですがうまく行かず・・・
お手上げ状態です。
ちなみに、私はエクセルは詳しくないです。
前回の抽出も、ネットや図書館で借りてきた本で調べ調べやっと出来たものです。
どうか、お力をお貸しください!よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
部活を 部活1 部活2 部活3 部活4 といった具合に変更します
条件となるセルに
学年 性別 部活1 部活2 部活3 部活4
2 男 バレー
2 男 バレー
2 男 バレー
2 男 バレー
といった具合に設定しておき
フィルターのオプションで抽出してみてください
1行の列にきじゅるされた条件がアンド(AND)
行方向に伸びる条件がオア(OR)
になります
No.3
- 回答日時:
登録のシートと検索結果のシートを分けなくてもいいのであれば、下のように表を変更して、オートフィルタを使うのが簡単だと思います。
A B C D E F G
______________________________
1 学年 氏名 性別 バスケ テニス 水泳 バレー
2 1 スズキ 男 ○ ○
3 1 ヤマシタ 女 ○ ○
4 2 サトウ 女 ○ ○
5 2 イトウ 男 ○
6 3 タナカ 男 ○ ○ ○
1行目で、[データ]メニューの[フィルタ]から[オートフィルタ]をチェックします。
この回答への補足
ありがとうございます。
そうなんです!私も最初それを提案しました。
それで、ほしいデータだけをコピーして別の名簿に貼り付ける等したら
どうかと提案したのですが・・・
依頼主は、とにかくワンタッチボタンで・・・と言うので。
すみません・・・
ありがとうございました。
No.2
- 回答日時:
エクセルの初心者がやるような問題ではないと思う。
それで処理ロジックは総なめ(全員をIF文で判別する方法)法という初等的な方法でやったものを挙げておく。
例データ
A1:G6
学年氏名性別部活部活部活部活
1スズキ男バスケ水泳
1ヤマシタ女テニス水泳
2サトウ女バスケバレー
2イトウ男テニス
3タナカ男バスケテニスバレー
部活所属記録はD列から左よりになっているが、質問例でも問題なかろう。
ーーー
コード
標準モジュールに
Sub test01()
k = 3
d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
MsgBox d
For i = 2 To d
If Worksheets("Sheet1").Range("C" & i) = Worksheets("Sheet2").Range("A1") Then
For j = 4 To 8 'D-H列まで
If Worksheets("Sheet1").Cells(i, j) = Worksheets("Sheet2").Range("B1") Then
For m = 1 To 8 'その行A-H列をSheet2へ値代入
Worksheets("Sheet2").Cells(k, m) = Worksheets("Sheet1").Cells(i, m)
Next m
k = k + 1 '次の行をポイント
End If
Next j
End If
Next i
End Sub
これをSheet2のコマンドボタンのクリック処理のなかへ
Private Sub CommandButton1_Click()
test01
End Sub
にする。
ーー
結果 1例です
男テニス(コマンドボタン)<--条件をA1,B1に入れる
学年氏名性別部活部活 <--コピーしておく
2イトウ男テニス <-以下が結果
3タナカ男バスケテニスバレー
ありがとうございます。
確かに、私のような初心者がやるようなことではないかもしれないですが
仕事上、やらざるを得なくて・・・
部活1 部活2 部活3 部活4とすることで
うまく出来ました!!
imogasi様の回答はすごいですね。
やはり、初心者には難しいです。
これを機に、勉強してみたいと思います。
ありがとうございました!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
退部した部活に戻るか迷ってます
-
部活をやめたいです。ですが、...
-
部活辞めたいです。(バスケ部) ...
-
18:00 バスケ 近所迷惑と言われ...
-
息子(小4)がミニバスを辞めた...
-
「バスケやってそう!」って言...
-
小学6年ミニバスをしている娘を...
-
至急!運動音痴にはバスケとバ...
-
朝の7時から外でバスケのドリブ...
-
Hすると一日ぼーっとしてしまう
-
バスケW杯で盛り上がっていると...
-
バスケ部っぽいとよく言われる...
-
筋肉
-
バスケコート一面程度の体育館...
-
スポ小の保護者の輪の中に入れ...
-
□■バスケをしている時よくこけ...
-
習い事かけもち、指導者の言う...
-
腕脚が長い方が明らかに有利な...
-
練習試合で、先生がスタートの...
-
私はバスケ部に入っています。 ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
部活動の作文をかきたいです。
-
部活辞めたいです。(バスケ部) ...
-
部活をやめたいです。ですが、...
-
退部した部活に戻るか迷ってます
-
高二からの部活
-
助けてください
-
上智大学外国語 英語学科について
-
足が速くなる部活は・・・?
-
私は高校で男バスのマネージャ...
-
たとえば、中高とバスケなりバ...
-
部活(バスケ)のことなんです...
-
50~60代の女性に質問です。長...
-
限界を超えるのって簡単にいき...
-
バスケの部活を辞めましたが今...
-
18:00 バスケ 近所迷惑と言われ...
-
腕脚が長い方が明らかに有利な...
-
「バスケやってそう!」って言...
-
朝の7時から外でバスケのドリブ...
-
Hすると一日ぼーっとしてしまう
-
なんでバスケってチノパンなん...
おすすめ情報