AKB48の推しメンをセンターにできちゃうかもしれない!? >>

2行目にオートフィルタをかけて、組で赤を選んでフィルタをかけたときに、A1のセルに赤と表示させる方法を教えてください。A列のみ印刷するのでA列に組を表示させたいのです。よろしくお願いします。
  A  B
1
2 名前 組
3 佐藤 赤
4 田中 青
5 山田 黄
6 鈴木 赤
7 木村 黄
8 井上 赤

A 回答 (3件)

A1に


=INDEX(B3:B100,MATCH(1,SUBTOTAL(3,INDIRECT(ADDRESS(ROW(B3:B100),1))),0))
と入力し、
Ctrlを押しながらShiftを押しながらEnterを押して確定してください。

数式バーを見て
{=INDEX(B3:B100,MATCH(1,SUBTOTAL(3,INDIRECT(ADDRESS(ROW(B3:B100),1))),0))}
のように括弧がついて表示されていましたら入力成功です。

この数式は表示された範囲の一番最初に入力されている値を返します。
    • good
    • 1
この回答へのお礼

希望通りに表示されました。関数が複雑で理解できてない部分があるので少しずつ勉強しようと思います。ありがとうございました。
結局、印刷するときに氏名を含まないと1ページに収まらない問題が起きたので、ヘッダーに表示するマクロで解決しました。

お礼日時:2004/02/18 17:58

Sub Macro2()


x = InputBox("criteria=")
Selection.AutoFilter Field:=2, Criteria1:=x
Cells(1, 1) = "条件=" & x
End Sub
    • good
    • 0
この回答へのお礼

今回は入力して項目を選ぶ方法は希望ではありませんが、
参考になりました。ありがとうございました。

お礼日時:2004/02/18 17:51

オートフィルタではなく、フィルタオプションを使用するというのはどうでしょうか。


下記のように1行追加する必要はありますが、それ以外はご希望に添えると思います。

1.A2に組の色を入力します(これは入力規則のリストを使ってもいいと思います)。
2.データ→フィルタ→フィルタオプションの設定
3.リスト範囲→$A$3:$B$9、検索条件範囲→$A1:$A2と入力しOKをクリックします。

 A  B
1 組
2
3 名前 組
4 佐藤 赤
5 田中 青
6 山田 黄
7 鈴木 赤
8 木村 黄
9 井上 赤
    • good
    • 0
この回答へのお礼

今回は入力して項目を選ぶ方法は希望ではありませんが、
参考になりました。ありがとうございました。

お礼日時:2004/02/18 17:52

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qオートフィルターで指定した値を取得したい

表題の通りです。

オートフィルターで指定した値を、別のセルに表示させたいのですが
そのようなことは可能でしょうか?

Aベストアンサー

標題の「オートフィルターで指定した値」とは、「オートフィルタによる絞り込みの条件とした値」という意味でよろしいでしょうか?


A 列に数値データがあり、それを 1 種類の値のみに絞り込むという場合、次式によりその値を取得できます。この数式は、平均値を求めています。したがって A 列に複数の種類の値が表示されている状態では、小数などを返します。

=subtotal(1,a:a)


文字列などの数値でない値であっても取得するには、マクロを使います。オートフィルタがあるシートのシートタブを右クリック、「コードの表示」から表示されるコードウィンドウに次のコードを貼り付け。

絞り込んだ瞬間ではなく、その次にカーソルを動かした瞬間に、E1 セルに絞り込み条件となっている値を記入します。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Me
    If .AutoFilterMode Then
      With .AutoFilter.Filters(1)
        If .On Then Range("e1").Value = Replace(.Criteria1, "=", "")
      End With
    End If
  End With
End Sub

標題の「オートフィルターで指定した値」とは、「オートフィルタによる絞り込みの条件とした値」という意味でよろしいでしょうか?


A 列に数値データがあり、それを 1 種類の値のみに絞り込むという場合、次式によりその値を取得できます。この数式は、平均値を求めています。したがって A 列に複数の種類の値が表示されている状態では、小数などを返します。

=subtotal(1,a:a)


文字列などの数値でない値であっても取得するには、マクロを使います。オートフィルタがあるシートのシートタブを右クリック、「...続きを読む

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Q=SUBTOTAL に =COUNTIF の機能を実装

お世話になります。

掲題の件で ご相談が御座います。


=SUBTOTAL(3,U5:U63) と
=COUNTIF(U5:U63,"完了") を 1つのセルで表現したいのですが
これは不可能でしょうか?

本当は「U列」だけではなく、20~30列全部に そのような機能を持った関数を入れたいのですが
両方を兼ね備えた関数を どなたかご存知ないでしょうか。

ようは、その表全体にフィルタを設定しており、いくつかの条件で抽出した時に「完了」の数が変わるので
現状 自分が思いつく所で考えると別シートに移して「=COUNTIF(●:●,"完了")」を都度入れていくか?
ぐらいしか思いつきません。

・フィルタで抽出しても元の範囲選択はそのまま。
・フィルタで抽出後に見えている選択範囲の「完了」だけを数えて欲しい
・上記2つの条件で1つのセルに数式を入力したい。

この3つの条件が満たされれば「=SUBTOTAL」や「=COUNTIF」にこだわる必要はありません。

どなたか ご存知であればご教示いただけますでしょうか。

説明が不足のようでしたら何度でも補足致しますので何卒宜しくお願い致します。

お世話になります。

掲題の件で ご相談が御座います。


=SUBTOTAL(3,U5:U63) と
=COUNTIF(U5:U63,"完了") を 1つのセルで表現したいのですが
これは不可能でしょうか?

本当は「U列」だけではなく、20~30列全部に そのような機能を持った関数を入れたいのですが
両方を兼ね備えた関数を どなたかご存知ないでしょうか。

ようは、その表全体にフィルタを設定しており、いくつかの条件で抽出した時に「完了」の数が変わるので
現状 自分が思いつく所で考えると別シートに移して「=COUNTIF(●:●,"...続きを読む

Aベストアンサー

またまたまた登場、myrangeです。

質問者がマクロをどの程度使えるのか分からないのでなんですが、
(質問から推測するにあまり使ったことがない?)
先に提示したマクロは関数ではありませんから
データの内容が変るたびに(結果を求めたい時点で)実行しなければいけません。
もし、SUBTOTALのような関数(セルに式としてセットする)にしたければ
以下のようなユーザー定義関数を作ることになります。

'---------------------------------------------- 
Function Ookami(myRange As Range, myStr As Variant) As Long
 Dim Rng As Range
 Dim Cnt As Long
 For Each Rng In myRange
  If Rng.EntireRow.Hidden = False And Rng.Value = myStr Then
    Cnt = Cnt + 1
  End If
 Next Rng
 Ookami = Cnt
End Function
'---------------------------------------------

使い方は、以下のようにします。
関数名は質問者のハンドルネームです。。(^^;;;

■Ookami(セル範囲, 検索文字)■

=Ookami(U5:U63,"完了")

F5~F666の範囲で、表示されてる"連絡済"をカウントしたければ

=Ookami(F5:F666,"連絡済")

要するにふつうの関数と同じような使い方になります。
以上です。
 

またまたまた登場、myrangeです。

質問者がマクロをどの程度使えるのか分からないのでなんですが、
(質問から推測するにあまり使ったことがない?)
先に提示したマクロは関数ではありませんから
データの内容が変るたびに(結果を求めたい時点で)実行しなければいけません。
もし、SUBTOTALのような関数(セルに式としてセットする)にしたければ
以下のようなユーザー定義関数を作ることになります。

'---------------------------------------------- 
Function Ookami(myRange As Range, myStr...続きを読む

Qオートフィルタで選択した項目を別セルにて反映 [EXCEL]

出来るかわかりませんが。

例えばB列が「東北、関東、東海、近畿……」などの「地域名」だとして、「東北」でオートフィルタをかけた時にA1に「東北のリストです」などと表示するような関数はないでしょうか。フィルタの条件に反応して複数の種類にわたって表示が変わるようにしたいのですが。

今まではIF(SUBPRODUCT=COUNTIF)でやってましたが、10種類ほどの項目が出来て正確性を失ったばかりか機能しなくなってしまったので、良い方法があればご教授願います。

Aベストアンサー

こんにちは。maruru01です。

>A行に数値をいれず
ということなら、こんな感じで。
A1に、

=IF(OR(SUBTOTAL(3,B2:B30)={0,29}),"",INDEX(B:B,MAX(INDEX(SUBTOTAL(3,INDIRECT("B"&ROW(B2:B30)))*ROW(B2:B30),)))&"のリストです")

と入力します。
B列は、1行目がタイトルで2~30行にデータです。
データ範囲は適宜変更して下さい。

QEXCEL関数でフィルタの様にデータ抽出したい

発注品一覧表から社別にデータを抽出した発注シートを関数で作りたいです。
オートフィルタは諸事情あって使用しません。

過去の質問のこちらが、かなり近い回答なのだと思いますが
不勉強で自分用に修正ができませんでした。
http://oshiete.goo.ne.jp/qa/3157199.html

一覧表はこのようになっています。
日付 社名 品目 値段
4/1  C社 鉛筆 50円 
4/1  A社 定規 150円
4/2  C社 ペン 100円
4/2  B社 鉛筆 100円

社別の別シートに日付・品目・値段を一覧から関数で抽出できるでしょうか?
どうぞよろしくお願いします。

Aベストアンサー

拝見いたしましたが参考にされたサイトですが
データが社名順に並んでいますよね。
今回の質問ですが、データが順に並んでいませんので全く違った発想が必要になります。
簡単な方法では、作業列を一列入れる方法がわかりやすいです。
データのシートに作業列も作れないのであれば 配列関数を使うことになりますが
データの量が多くてその式を縦横にコピーして使うですからパソコンの負担も重くなります。

式の意味を理解が難しいかと思いますが
INDEX関数で 範囲の指定の部分を条件で抽出した内容が入るように工夫した式がよく見受けられます
ので一応紹介しておきます
仮に シート名 データ
日付 社名 品目 値段
4/1  C社 鉛筆 50円 
4/1  A社 定規 150円
4/2  C社 ペン 100円
4/2  B社 鉛筆 100円

別のシート
   社名 品目
   C社

日付 社名 品目 値段

とB2セルに抽出したい社名が入っているとして
A4セルに
=INDEX(データ!A:A,SMALL(INDEX((データ!$B$1:$B$100<>$B$2)*1000+ROW(A$1:A$100),),ROW(A1)))&""
と入れて 右へコピー、下へコピーしてみてください。
INDEX((データ!$B$1:$B$100<>$B$2)*1000+ROW(A$1:A$100),)
の部分が理解しにくいと思います。
社名の範囲でC社でなかったら1000倍したとてつもない大きな数字を加える
C社でればそのまま、その行番号 といった架空の列を作成します。
その架空の列の小さい数値の順に 最初のINDEX関数で取り出します
といった感じです。(なかなか文書で説明するのも難しくてすみません)

別案ですが
フィルターオプションの設定(オートフィルターではありません)
をしたほうがシンプルでデータ量が増えた時も勝手に対応してくれます。

拝見いたしましたが参考にされたサイトですが
データが社名順に並んでいますよね。
今回の質問ですが、データが順に並んでいませんので全く違った発想が必要になります。
簡単な方法では、作業列を一列入れる方法がわかりやすいです。
データのシートに作業列も作れないのであれば 配列関数を使うことになりますが
データの量が多くてその式を縦横にコピーして使うですからパソコンの負担も重くなります。

式の意味を理解が難しいかと思いますが
INDEX関数で 範囲の指定の部分を条件で抽出した内容が入るように...続きを読む

Qexcelオートフィルタの検索条件をセルに入力したい

以下のようなexcelのリストがあるとします。

    A       B    C~
1 佐藤・鈴木  Aタイプ
2 田中・山田  Bタイプ
3  佐藤     Aタイプ
4  田中     Cタイプ
5 山田・鈴木  Cタイプ

A列の"田"が含まれる行を抽出したい場合
オートフィルタをかけ、オプションの抽出条件の指定で
"田"を含む、で検索すれば良い、というのはわかります。
ですが、この動作をもうちょっと簡単にできないかと思っています。
具体的には、以下のようにセルに入力して検索・抽出するとはできないでしょうか。

    A       B    C~
1   田


4   A       B    C~
6 田中・山田  Bタイプ
8  田中     Cタイプ
9 山田・鈴木  Cタイプ
(1、2行目=検索用 3行目=空き 4行目以降=リスト)

過去の質問で、同じようにセルに入力して抽出する方法を
聞いていた方がいらっしゃったので参考にしようと思ったのですが
方法がVBAを使ったもので、VBAの知識がまったく無いために
さっぱり理解することができませんでした。

何か良い方法がありましたら教えていただけないでしょうか。

以下のようなexcelのリストがあるとします。

    A       B    C~
1 佐藤・鈴木  Aタイプ
2 田中・山田  Bタイプ
3  佐藤     Aタイプ
4  田中     Cタイプ
5 山田・鈴木  Cタイプ

A列の"田"が含まれる行を抽出したい場合
オートフィルタをかけ、オプションの抽出条件の指定で
"田"を含む、で検索すれば良い、というのはわかります。
ですが、この動作をもうちょっと簡単にできないかと思っています。
具体的には、以下のようにセルに入力し...続きを読む

Aベストアンサー

関数でもできるのでご参考に。(imogasi方式)
データ例 A1:B6に
AB
佐藤・鈴木Aタイプ
田中・山田Bタイプ
佐藤Aタイプ
田中Cタイプ
山田・鈴木Cタイプ
E1に「田」の字を入れておく。
C2に
=IF(ISERROR(FIND($E$1,A2)),"",MAX($C$1:C1)+1)
C3:C6に式を複写する。C2:C6は
空白
1
空白
2
3
E3に
=INDEX($A$1:$B$6,MATCH(ROW()-2,$C$1:$C$6,0),COLUMN()-4)
と入れてF3に複写。
E3:F3を範囲指定し、F3に+ハンドルを出しF3まで引っ張る。
結果
田中・山田Bタイプ
田中Cタイプ
山田・鈴木Cタイプ
C列、E列、F列は別の列へ変えられる。別シートにも替えられる。
ただし式のセル指定・範囲指定、マイナスする値 を変えなければなりません。

Qエクセル オートフィルタで選択したセルと同じ内容を表示させたい

エクセルで表を作成しています。
H列に担当者を入力してあって、その担当者ごとにプリントアウトします。
その時にB2のセルにオートフィルタで選択した担当者名を表示させてプリントアウトしたいのです。(H列は印刷範囲から外します)

=H3 の数式だとフィルタでH5のセルの担当者を選択しても、H3の担当者のままです。

フィルタで担当者を変えていくごとにB2のセルに担当者名が表示されるようにはできますでしょうか?

ご教授お願いします。

Aベストアンサー

逆(B2の担当者でフィルタを掛ける)ならフィルタオプションの設定で出来そうですけど...
http://www.kenzo30.com/ex_kisotoku/ex_ks_tokubetu9.htm

またB2で担当者を入力するのが面倒なら入力規則のドロップダウンリストを使ってください。
http://www.kenzo30.com/ex_kisopoint/onepoint_sonota3.htm

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
A列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。
これを簡単に抽出する方法はないでしょうか?
教えてください お願いいたします。

Aベストアンサー

企業名がセルB2からセルB300まで入力されていると仮定します。
セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング