関数などを使用した自動入力は可能ですか？

質問

新たな表を作成するに当たり、関数やマクロを使用して完成させようと考えております。
数式などお分かりになりましたら、ご教示ください。

　A　　B　　C　　D　　E
1日　　　　700
2日　　　　200　　　　500
3日　　　　100
4日　100　100
5日
6日　500　500
7日　200　　　　　　　700
〃　 700　　　　　　　200

上記のものを元に質問です。

(1)C・E列に同じ数値を２つ入力した時点でB列に同じ数値を自動で入力されるようにし、
2つ目が入力された同じ日に入力されるようにしたいです。

(2)同日に別の数値がそれぞれ揃った場合（上記7日のように）、順不同で構わないのでそれぞれ表示することは可能でしょうか？

※D列は範囲に含まない

以上の点を踏まえ、よろしくお願いいたします。

回答No.2

bunjii · ベストアンサー

回答No.1の数式に余分な関数が含まれていましたので訂正します。
B1=IF(COUNTIF(C$1:E1,C1)=2,MAX(C1),IF(COUNTIF(C$1:E1,E1)=2,E1,""))
　　　　　↓
B1=IF(COUNTIF(C$1:E1,C1)=2,C1,IF(COUNTIF(C$1:E1,E1)=2,E1,""))

尚、「同じ値が複数（2つ以上）入力されたとき」と言う条件の場合は次の数式にしてください。
B1=IF(COUNTIF(C$1:E1,C1)>1,C1,IF(COUNTIF(C$1:E1,E1)>1,E1,""))

お礼

お返事いただきありがとうございます。

無事完成しました。
また何かありましたら、ご教示いただければ幸いです。

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

回答No.1

bunjii

>関数などを使用した自動入力は可能ですか？
関数で自動入力と言う表現は誤りかと思います。
関数は数式を設定したセルに計算結果を表示するものです。
VBAの場合は参照するセルに入力されたことを検知して検査結果の値を指定セルにセットしますので自動入力と言う表現でも差し支えないように思います。

>2つ目が入力された同じ日に入力されるようにしたいです。
関数の場合は次のような数式で良いと思います。
B1=IF(COUNTIF(C$1:E1,C1)=2,MAX(C1),IF(COUNTIF(C$1:E1,E1)=2,E1,""))
B1セルを下へ必要数コピーしてください。
(2)の要件はC列またはE列に入力された値を検査対象にしますので日付については関係なく行番号の小さい順に結果を表示します。