Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10277 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【22695】抽出 koshimizu 05/2/28(月) 18:15 質問[未読]
【22707】Re:抽出 ponpon 05/2/28(月) 22:22 発言[未読]
【22712】Re:抽出 koshimizu 05/3/1(火) 8:08 質問[未読]
【22713】Re:抽出 koshimizu 05/3/1(火) 8:14 質問[未読]
【22716】Re:抽出 G-Luck 05/3/1(火) 8:50 発言[未読]
【22717】Re:抽出 koshimizu 05/3/1(火) 9:24 質問[未読]
【22731】Re:抽出 Jaka 05/3/1(火) 17:12 回答[未読]
【22745】Re:抽出 koshimizu 05/3/2(水) 8:56 お礼[未読]
【22767】Re:抽出 koshimizu 05/3/2(水) 16:27 お礼[未読]
【22695】抽出
質問  koshimizu E-MAIL  - 05/2/28(月) 18:15 -
引用なし
パスワード
   教えていただけますか。

下記のようなデータのなかから4行目の中にある名前と一致する（例名前２）の
場合C列2行目にある（クラス２）をsheet2のＡ３に、又名前のすぐ上の（２２）を
sheet2のＡ２に書き出す数式はありませんか。
ＶＢＡの質問箱ではありますが、数式で出来ないでしょうか。
宜しくお願い致します。

sheet1
Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ 　　Ｓ
１　表　　　題
２　クラス１　クラス２　クラス３　・・・・・・
３　１１　　　２２　　　１１
４　名前１　　名前２　　名前３
５　２２　　　３３　　　１１
６　名前４　　名前２　　名前１
７・・
８・・

sheet2に
　　Ａ　　　　
１　
２　２２　
３　クラス２
【22707】Re:抽出
発言  ponpon  - 05/2/28(月) 22:22 -
引用なし
パスワード
   ▼koshimizu さん：
>
>下記のようなデータのなかから4行目の中にある名前と一致する（例名前２）
　　　　　　　　　　　　　　　　　　　　　　　　↑
　　　　　　　　　　　　　　　　　　　　何と、何処と一致するのでしょうか？
　　　　　　　　　　　　　　　　　　　　sheet2の１行目？

>sheet1
>Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ 　　Ｓ
>１　表　　　題
>２　クラス１　クラス２　クラス３　・・・・・・
>３　１１　　　２２　　　１１
>４　名前１　　名前２　　名前３
>５　２２　　　３３　　　１１
>６　名前４　　名前２　　名前１
>７・・
>８・・
>
>sheet2に
>　　Ａ　　　　
>１　
>２　２２　
>３　クラス２
【22712】Re:抽出
質問  koshimizu E-MAIL  - 05/3/1(火) 8:08 -
引用なし
パスワード
   ponpon さん
おはようございます。
ponpon さんの回答よく拝見させていただいています。
これは時間割を個人別表にしたいのですが私にはＶＢＡではとても不可能なので
関数でやって見たいと思っ他のですが、関数の組み合わせが出来ません。
宜しくお願いします。

>>下記のようなデータのなかから4行目の中にある名前と一致する（例名前２）
>　　　　　　　　　　　　　　　　　　　　　　　　↑
>　　　　　　　　　　　　　　　　　　　　何と、何処と一致するのでしょうか？
>　　　　　　　　　　　　　　　　　　　　sheet2の１行目？

　　　　　　　　　　　　　　　　　　sheet1の4行目の中から名前２を探して、探し当　　　　　　　　　　　　　　　　　　　てた場所の上方の欄にあるクラス２をsheet2
　　　　　　　　　　　　　　　　　　のＡ３に記入、また名前２のすぐ上の２２をＡ２　　　　　　　　　　　　　　　　　　へ記入したいのです。これを又名前１でも名前３　　　　　　　　　　　　　　　　　　でも同じ事をしたいのです。
　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　
>>sheet1
>>Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ 　　Ｓ
>>１　表　　　題
>>２　クラス１　クラス２　クラス３　・・・・・・
>>３　１１　　　２２　　　１１
>>４　名前１　　名前２　　名前３
>>５　２２　　　３３　　　１１
>>６　名前４　　名前２　　名前１
>>７・・
>>８・・
>>
>>sheet2に
>>　　Ａ　　　　
>>１　
>>２　２２　
>>３　クラス２
【22713】Re:抽出
質問  koshimizu E-MAIL  - 05/3/1(火) 8:14 -
引用なし
パスワード
   ponpon さん
表示がうまく出来なかったためもう一度。
初心者で申し訳ありません。

これは時間割を個人別表にしたいのですが私にはＶＢＡではとても不可能なので
関数でやって見たいと思ったのですが、関数の組み合わせが出来ません。
宜しくお願いします。

>>下記のようなデータのなかから4行目の中にある名前と一致する（例名前２）
>　　　　　　　　　　　　　　　　　　　　　　　　↑
>　　　　　　　　　　　　　　　　　　　　何と、何処と一致するのでしょうか？
>　　　　　　　　　　　　　　　　　　　　sheet2の１行目？

sheet1の4行目の中から名前２を探して、探し当てた場所の上方の欄にあるクラス２をsheet2のＡ３に記入、また名前２のすぐ上の２２をＡ２へ記入したいのです。
これを又名前１でも名前３でも同じ事をしたいのです。


>>sheet1
>>Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ 　　Ｓ
>>１　表　　　題
>>２　クラス１　クラス２　クラス３　・・・・・・
>>３　１１　　　２２　　　１１
>>４　名前１　　名前２　　名前３
>>５　２２　　　３３　　　１１
>>６　名前４　　名前２　　名前１
>>７・・
>>８・・
>>
>>sheet2に
>>　　Ａ　　　　
>>１　
>>２　２２　
>>３　クラス２
【22716】Re:抽出
発言  G-Luck  - 05/3/1(火) 8:50 -
引用なし
パスワード
   ▼koshimizu さん：

G-Luckといいます。
割り込みますが、

整理させていただきます。
データは、下記のように入力されていて、
横にクラス名
縦にそのクラスのメンバーおよびグループ番号(?)が入力されている。
出力は、各人をいちシートに、2行にグループ番号、3行にクラス名
該当クラスが複数ある場合は、順次横に出力する。

Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　Ｅ 　　Ｓ
１　表　　　題
２　クラス１　クラス２　クラス３　・・・・・・
３　１１　　　２２　　　１１
４　名前１　　名前２　　名前３
５　２２　　　３３　　　１１
６　名前４　　名前２　　名前１
７・・
８・・

でよろしいでしょうか？
【22717】Re:抽出
質問  koshimizu E-MAIL  - 05/3/1(火) 9:24 -
引用なし
パスワード
   G-Luck さん
こんにちは。
お手数をおかけいたします。
sheet1　このような表があり、これを元にsheet2のようにしたいのです。
Ａ　 Ｂ　　　　Ｃ　　　　Ｄ　　　
１　月　　曜　　日
２　1年1組　　1年2組　　1年3組　・・・・・・
３　国語　　　数学　　　科学　　←１時限
４　名前１　　名前２　　名前３　←１時限
５　英語　　　国語　　　数学　　←２時限
６　名前４　　名前１　　名前２　←２時限
７・・　　　　　　　　　　　　　←３時限
８・・　　　　　　　　　　　　　←３時限

sheet2　下記のようにならないでしょうか
　　Ａ　　　　　Ｂ　　　　Ｃ
１　　名前２先生
２　１時限　　数学
３　１時限　　1年2組
４　２時限　　数学
５　２時限　　1年3組
【22731】Re:抽出
回答  Jaka  - 05/3/1(火) 17:12 -
引用なし
パスワード
   Sheet2が、こんなだとして、

　　Ａ　　　　　Ｂ
１　名前２
２　１時限
３　１時限
４　２時限
５　２時限

Ｂ２に　=IF(ISNA(MATCH($A$1,Sheet1!$A4:$C4,0)),"",OFFSET(Sheet1!$A3,0,MATCH($A$1,Sheet1!A4:C4,0)-1,,))
Ｂ３に　=IF(ISNA(MATCH($A$1,Sheet1!$A4:$C4,0)),"",OFFSET(Sheet1!$A$2,0,MATCH($A$1,Sheet1!A4:C4,0)-1,,))

を入れ、B2:B3をコピーし、B4、B6とペースト。
後、A1の名前を変えるだけです。
尚、一々自分でデータを考えて増やすのも面倒だったので、記載されたデータ分でしか試してません。
【22745】Re:抽出
お礼  koshimizu  - 05/3/2(水) 8:56 -
引用なし
パスワード
   Jaka さん
おはようございます。

回答ありがとうございます。いつもお世話になっています。

一部分で試しましたところＯＫです。
これから組み込みします。
私のことですからまたわからないことがあると思います、回答をお願い致します。
ありがとうございました。
【22767】Re:抽出
お礼  koshimizu  - 05/3/2(水) 16:27 -
引用なし
パスワード
   Jaka さん
こんにちは。
お手数をおかけしました。無事に組み込みに成功しました。
ありがとうございました。Jaka さんの心使いに感謝しております。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10277 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free