Excel2000で困っています（２）

sheet2のA列の最後に入力されているものを
sheet1のA1に表示させたいのですがやり方がわかりません

sheet2のA1に入力されているものを
sheet1のA1に表示させる方法はわかるのですが
sheet2のA2に何かを入力するとsheet1のA1には自動的にsheet2のA2が、
sheet2のA3に何かを入力するとsheet1のA1には自動的にsheet2のA3が
sheet2のA4に何も入力せず、A5に何かを入力するとsheet1のA1には自動的にsheet2のA5が
sheet2のA6、A7に何も入力せず、A8に何かを入力するとsheet1のA1には自動的にsheet2のA8が表示される
というように一番下に入力されたものを表示させる
というものを作りたいのです。
宜しくお願いします

No.4 ベストアンサー 回答者： nishi6 回答日時： 2002/06/18 09:20

=INDEX(Sheet2!A:A,MAX(

　　　　IF(COUNTIF(Sheet2!A:A,"*"),MATCH("",Sheet2!A:A,-1)),
　　　　IF(COUNT(Sheet2!A:A),MATCH(MAX(Sheet2!A:A)+1,Sheet2!A:A,1))))

少々長いですが上記でどうでしょうか。改行していますが、つながった式です。
飛び離れた入力、文字、数値に対応しています。

この回答へのお礼

ありがとうございます

お礼日時：2002/06/18 19:05

No.6 回答者： imogasi 回答日時： 2002/06/18 09:33

最後に入力または変更したセルの内容をＡ１に表示する

のが質問の趣旨でしょうか。ただどのように使うか想像
出来ませんが。
ＶＢＡは望まない人も多いが、記してみます。
（１）ツール－オプション－編集タブ－「入力後にセルを移動する」を「下」に設定しておく。
（２）ＶＢＥの画面のＰｒｏｊｅｃｔエクスプローラーのＳｈｅｅｔ２をクリックして出てくる、イベントプロシージャーに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("sheet1").Range("a1") = ActiveCell.Offset(-1, 0).Value
End Sub
の１行(全３行）を入れて、Ｓｈｅｅｔ２に戻り、どこでもセルに値を入力すると、同じ値がＳｈｅｅｔ１のＡ１セルにセットされます。
右移動の時はOffset( 0、-1)に変えれば良い。
（１）の設定はVBAでは
Application.MoveAfterReturnDirection = xlToRightまたはApplication.MoveAfterReturnDirection = xlDown（Ｔｏ無し）でも設定できます。テスト済み。

No.5 回答者： kbonb 回答日時： 2002/06/18 09:23

こんにちは

　以下のページがご参考になるのでは？

【エクセル技道場】－関数－最下行にある数値または文字列を返す数式
http://www2.odn.ne.jp/excel/waza/function.html#S …

参考URL：http://www2.odn.ne.jp/excel/waza/function.html#S …

No.3 回答者： Singleman 回答日時： 2002/06/18 08:56

#2の早とちりです。

すいません、誤解しました。
一番下ではなく常に一番新しいデーターが
A列に入力されたものを反映したいのですね、
そこまでは分かりません、あしからず。

No.2 回答者： Singleman 回答日時： 2002/06/18 08:18

sheet2のA8を選択コピーしてそのままsheet1のA1を

選択右クリックか編集の「形式を選択して貼り付け」
で下の「リンク貼り付け」をクリックすれば、
A8の変化が常にA1に反映されます。

No.1 回答者： h_narunaru 回答日時： 2002/06/18 07:17

sheet1のA1で「＝」を押してからsheet2に移動しA1おクリックしEnterを押すとsheet2で入力したのがsheet1にも表示になります。

A2も同様ですヨ
試してくださいネ