エクセルのセルへの値の自動入力

質問

こんにちは。

エクセルへのセルへの値の自動入力の仕方が分からなくて困っています。

文章よりも、添付の画像を見て頂いた方が分かりやすいと思うのですが、
A2のセルへ、日付を自動で入力したいのですが、A2の行を右に検索して、
○が見つかったら、その○が見つかった列の一番上の行にある値をA2のセルに
自動で反映されるようにしたいのです。

A2の行には、○の他に、×が入力されている場合もあるので、”○だったら”
という判定が必要です。

始めは、目視で見ながら手入力しようと思っていたのですが、行数が数百ある上、
目視・手入力だと間違いが発生する可能性があるので、エクセルの関数などで
自動で入力したいです。

すみませんが、宜しくお願い致します。

回答No.5

kagakusuki · ベストアンサー

○が存在しない行がある場合や、1行目に日付が未入力となっている場合の事も考えますと、A2セルに入力する関数は次の様にされた方が良いと思います。

=IF(AND(COUNTIF($B2:$D2,"○"),COUNT($1:$1)),INDEX($B$1:$D$1,MATCH("○",$B2:$D2,0)),"")

　更に、セルの削除や挿入、切取り&貼付け、等の編集作業が行われたり、表が右側に延長（列数が増加）されたりした場合でも、関数を入力し直さずに済ませたい場合には、A2セルに入力する関数は次の様にされた方が良いと思います。

=IF(ISNUMBER(1/COUNTIF(INDEX(2:2,COLUMN($A$1)+1):INDEX(2:2,MATCH(9^9,$1:$1)),"○")),INDEX($1:$1,MATCH("○",INDEX(2:2,COLUMN($A$1)+1):INDEX(2:2,MATCH(9^9,$1:$1)),0)+COLUMN($A$1)),"")

お礼

凄いです！とにかく凄いの一言です！
この方法でおこないました。

自分は努力がたりませんでした。

どうもありがとうございました。

回答No.4

noname#204879

A2: =IF(COUNTIF(B2:Z2,"○"),SUMPRODUCT((B2:Z2="○")*(B$1:Z$1)),"")
ただし、各行において ○のセルは２個以上はないものとします。

お礼

ありがとうございます。シンプルなやり方も覚えておきます。

回答No.3

tom04

No.2です！
たびたびごめんなさい。

投稿した後で気づきました。（難しく考えすぎていました）
No.1さんの　imogasiさんの方が簡単な数式ですね！

No.2は無視してください。m(_ _)m

お礼

ご丁寧にありがとうございます。tom04さんの温かい心、やさしさに触れてちょっぴり感激しています。

回答No.2

tom04

こんばんは！

各行に「○」は一つしかない！という前提での一例です。

当方使用のExcel2003の場合で最終列まで対応できる関数です。

画像の配置でA2セル（セルの表示形式は「日付」にしておきます）に
=IF(COUNTIF(B2:IV2,"○"),INDEX($B$1:$IV$1,,SUMPRODUCT((B2:IV2="○")*COLUMN($A$1:$IU$1))),"")

としてオートフィルで下へコピーではどうでしょうか？

※　上記数式の場合、「○」がない行があればそのA列は空白になってしまいます。
空白が目障りであれば空白を削除する。
他の方法としてはVBAの方が簡単かもしれませんね。

お役に立てば良いのですが・・・m(_ _)m

お礼

ありがとうございました。

回答No.1

imogasi

例データ
ーは空白セルで左詰されるのを便宜上防止するためのもの。
- 2011/9/5 2011/9/6 2011/9/7 2011/9/8 2011/9/9
2011/9/5 ○
2011/9/6 - ○
2011/9/5 ○
2011/9/7 - - ○
2011/9/9 - - - - ○
Ａ２の式は　=INDEX($B$1:$Z$1,MATCH("○",$B2:$Z2,0))
下方向に式を複写。
Ａ列の表示形式を日付書式に設定しておく（または自後設定する）。

お礼

早速教えて頂き、ありがとうございます。いくらなんでもみなさん頭がよすぎです。

自分はまだまだ本当の努力をしていないとわかりました。

ありがとうございました。