時間を求める方法を教えてください。

質問

エクセルで経過時間を求めたいので、教えてください。A列には時間（秒)B列～Ｆ列には温度があります。BからF列の値が20℃の時の各列の経過時間を求めたいのです。（20℃未満になった場合はその時間)FINDを使ってみたのですが、うまくいきません。
例
A B C D E F℃
0 30 30 31 27 30
1 25 28 29 26 30
2 20 26 27 27 28
3 23 24 25 25 26
4 20 22 23 24 24
5 18 20 21 23 22
6 16 18 19 22 21
7 14 16 17 21 20
8 12 14 15 20 19

ご教授お願いします。

回答No.4

KURUMITO · ベストアンサー

お示しのデータがシート１のA列からF列の１行目から下方に入力されているとします。
お求めの表は同じシート内でも、別のシートでもよいでしょう。
お求めの表の形式を横方向に表示させるのでしたら次の式を例えば同じシートのJ１セルに入力して右横方向にドラッグコピーしたのちに下方向にもドラッグコピーします。

=IF(COLUMN(A1)>5,"",IF(ROW(A1)=1,Sheet1!B1,IF(ROW(A1)=2,INDEX(Sheet1!$A:$A,MATCH(20+0.1,Sheet1!B:B,-1)+1),"")))

縦方向にデータを表示させるのでしたら次の式を適当なセル、例えば同じシートのJ１セルに入力し右横方向にドラッグコピーしたのちに下方向にもドラッグコピーします。

=IF(OR(ROW(A1)>5,COLUMN(A1)>2),"",IF(COLUMN(A1)=1,INDEX(Sheet1!$B$1:$F$1,ROW(A1)),IF(COLUMN(A1)=2,INDEX(Sheet1!$A:$A,MATCH(20+0.1,INDEX(Sheet1!$B:$F,1,ROW(A1)):INDEX(Sheet1!$B:$F,1000,ROW(A1)),-1)+1))))

お礼

御礼遅くなりました。回答有難うございました。社内のいろいろな要望がありますので、参考させていただきます。

回答No.3

keithin

＞作成済みのマクロ

一体何をどうしたいのか、まるでイミフメイです。

sub macro1()
　dim r as long, c as long, LastRow as long
　lastrow = cells(rows.count, 1).end(xlup).row

　for c = 2 to 6
　　for r = 1 to lastrow
　　　if cells(r, c) <> "" and cells(r, c) <= 20 then
　　　　cells(r, c).select
　　　　msgbox cells(r, 1).value & vblf & cells(r, c).value
　　　　exit for
　　　end if
　　next r
　next c
end sub

お礼

御礼遅くなりました。回答有難うございました。

回答No.2

tom04

こんばんは！
一例です。

↓の画像の配置だと、B1セルに
=IF(COUNTIF(B2:B10,"<=20"),INDEX($A2:$A10,MIN(IF(B2:B10<=20,ROW(A1:A9)))),"")

これは配列数式になってしまいますので、Shift＋Ctrl＋Enterで確定！
この画面からコピー＆ペーストする場合は
B1セルを選択　→　数式バー内に貼り付け　→　そのまま（編集可能のまま）Shift＋Ctrlキーを押しながらEnterキーで確定！
数式の前後に｛　｝マークが入り配列数式になります。
これを列方向にオートフィルでコピーすると画像のような感じになります。

※　注意点として
数式内の
＞ROW(A1:A9)
の部分はINDEX関数で範囲指定した行数に必ず1行目から合わせます。m（_ _）m

お礼

ご回答有難うございます。作成済みのマクロに追加してみて上手くいきませんでした。助かりました。

回答No.1

keithin

ごく安直に。

添付図：
Ｂ１に
=IF(MIN(B2:B10)>20,"NA",INDEX($A:$A,MIN(IF(B2:B10<=20,ROW(B2:B10)))))
と記入、必ずコントロールキーとシフトキーを押しながらＥｎｔｅｒで入力、右にコピー。

ところで
＞FINDを使ってみた

マクロでも使って調べたかったのですか？（どこに）どういう具合に結果を示したいのかも、ご相談に書き忘れてますけど。
マクロでも全く同様に、特に策を弄するまでも無く上から順に調べて２０以下になったところで結果を示すのでも、十分です。

お礼

ご回答有難うございます。作成済みのマクロに追加してみて上手くいきませんでした。助かりました。