セルの値が最後に１になった同じ行に LAST マークをつけたいのですが・・・

よろしくお願いします。いつもｇｏｏの皆さんには大変お世話になっています
以下の問題がなかなか解決できずにいます
せっかくの休日ですが、どなたかわかる方おりましたら教えてください

データの範囲はＡ列の１行から10行とします
（実際は100行近くになります）

ここにサーバーから読み込んだデータが随時更新されます
その値は0か1です

今回は、データ範囲にキーボードから0か1を入力してテストします

式はできるだけセルに書きたいです
式で処理できないことはマクロでやるとして

以下を実現するには、マクロと式はどう書いたら良いでしょうか？
（式だけでできれば一番良いのですが・・・）
どなたか教えてください

１、Ａ列のどこかの行に1が入力されたら隣のＢ列のセルに on と表示させます
２、Ａ列のどこかの行に0が入力されたら隣のＢ列のセルに OFF と表示させます
３、Ａ列の空白の行の隣のＢ列のセルは何も表示しません　""(空白)です
４、Ａ列に１が入力された行が４行あれば、その隣のＢ列に表示されている on の文字も４行です

このとき、一番最後にＡ列に１が入力された行だけ、Ｃ列に LASTと表示させるには
マクロと式はどう書いたら良いでしょうか？

今回Ａ列にはキー入力しますが、実際はＡ列はサーバーから常時読み込んで表示するので
マクロはPrivate Sub Worksheet_Calculate()に書くことになるかと思います
エクセルはＡ列の値によっていろいろな計算をしますので

以上です。よろしくお願いします

質問者からの補足コメント

• 私の説明がヘタでお手数かけています
  
  「最後に１が入力された」とは
  「時間的に最後に１が入力された行」のことです
  
  最初からこのように書けば良かったのですが
  知恵が足りなくて迷惑をかけています
  お許し下さい

  No.3の回答に寄せられた補足コメントです。 補足日時：2015/12/23 16:28

• 思いつきました
  時間的に最後ということは、入力された同じ行のどこかのセルに、その時間を記録して
  時間的に最後かどうかをfor next　などで1行から10行まで回って
  調べればよいのでしょうか？

    補足日時：2015/12/23 16:33

• 補足させていただきます
  Ａ列には同じ行でも何度もデータを入れます
  
  仮にキー入力手順１→２→３であれば
  １、Ａ列１行目に１→Ｂ列１行目が on表示→Ｃ列１行目がLAST表示
  
  ２、Ａ列５行目に１→Ｂ列５行目が on表示→Ｃ列５行目がLAST表示→Ｃ列１行目のLAST表示は消える
  
  ３、Ａ列１行目に１→Ｂ列１行目が on表示→Ｃ列１行目がLAST表示→Ｃ列5行目のLAST表示は消える

    補足日時：2015/12/23 17:27

• 

  何度もありがとうございます。私のミスでした。マクロが止まっていたようです
  保存終了後開いてＡ列に１を入力すると見てびっくり、なんとばっちりです
  
  時間的に最後のＬＡＳＴだけ残ります。時間的とは言っても、時間なんか関係ないんですね
  このトリックお見事です。やられました。うれしいような、がっかりしたような
  でもやっぱりうれしいです
  
  ああ、今までどれだけ苦労したことか。
  今まではフラグを使うことしか頭になくて、
  でも、条件が一致するとそのフラグも変わってしまって
  フラグのフラグが必要かとも思ったりして
  
  あっぱれ、お見事です
  ああ、こんな簡単な理屈だったんですねえ
  もう9割がた完成しているのであともう少しです
  ありがとうございました。深くお礼申し上げます。きょう質問してよかったです
  助かりました
  ありがとうございました

  No.5の回答に寄せられた補足コメントです。 補足日時：2015/12/23 18:47

No.5 ベストアンサー 回答者： hallo-2007 回答日時： 2015/12/23 17:53

＞指示通りにしましたが何も変化がありません

あれま～、どうしてでしょうかね。
一応、コードを説明しておきますね。
１、シート名のタブを右クリック、コードの表示をクリック
それぞれのシートにシートモジュールがあるので、そこに記述します。
標準モジュールではありません。
Private Sub Worksheet_Change(ByVal Target As Range)
↑このシートでセルの値に変更があったら実行するイベント

If Target.Column = 1 Then
↑もし、変更があったセルの列が Ａ列だったら
If Target.Value = 1 Then
↑もし、変更があったせるの値が　１　だったら

Range("C1:C100").Value = ""
Target.Offset(0, 2).Value = "LAST"
↑Ｃ列を空白にして、変更があったセルに二つ右を　ＬＡＳＴ
と云う意味のコードです。

この回答へのお礼

度々ありがとうございます
マクロは私がなにか間違ってるのかと思いますので
まだまだチェックしてみますが
理屈はやっとわかりました

最初に、その都度、全部に””を書き込んで
次に変更があったセルにLASTを書き込むんですね

これはいい方法です
これで私が狙った方法が可能ですね

ここまでずいぶんかかったのですが
以外に簡単な方法でできました

やはり、この辺は発想の問題ですね

マクロが狙った通りにならないのは私のチェックが足りません
結果を後ほど報告します
トータルで今までに1か月はこれをやっていますので解決は近いですね
頑張ります

お礼日時：2015/12/23 18:27

No.4 回答者： hallo-2007 回答日時： 2015/12/23 17:01

>「最後に１が入力された」とは

>「時間的に最後に１が入力された行」のことです
ご希望の動作になるか不明ですが
１、シート名のタブを右クリック、コードの表示をクリック
２．ＶＢエディターが起動したら

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = 1 Then
Range("C1:C100").Value = ""
Target.Offset(0, 2).Value = "LAST"
End If
End If
End Sub

を張り付けて閉じるで
Ａ列に　１を入力してみてください。

この回答へのお礼

休日の貴重な時間に教えていただきましてありがとうございます
説明がヘタで皆さんに迷惑をかけています

指示通りにしましたが何も変化がありません

お礼日時：2015/12/23 17:19

No.3 回答者： hallo-2007 回答日時： 2015/12/23 15:40

ＮＯ２です。

失礼しました訂正です。
＞一番最後にＡ列に１が入力された行だけ
Ｃ１セルは　=IF(A1=1,IF(COUNTIF(A$1:A1,1)=COUNTIF(A:A,1),"LAST",""),"")

この回答へのお礼

私の説明がヘタで何度もお手数おかけします

上から順に１を入れてくるとLAST表示されますが
上にもどって、空白の５行目に１を入れてもLAST表示されません

説明がヘタですみません

お礼日時：2015/12/23 16:25

No.2 回答者： hallo-2007 回答日時： 2015/12/23 15:36

念のため、質問を勘違いしていないかの確認ですが

＞１、Ａ列のどこかの行に1が入力されたら隣のＢ列のセルに on と表示させます
は、以下の様な事でしょうか
　Ａ　　Ｂ
　1　　ＯＮ
　0　　ＯＦＦ
　1　　ＯＮ
　0　　ＯＦＦ
・・・
Ｂ１セルに　=IF(A1="","",IF(A1=1,"ON","OFF"))　下へコピーです。
Ｃ１セルに　=IF(COUNTA(A:A)=ROW(),"LAST","")　下へコピーでは如何でしょうか。

この回答へのお礼

休日の貴重な時間に教えていただきましてありがとうございます

＞以下の様な事でしょうか
はい、そうです

私の説明がヘタで狙った動きを説明できていません

仮に今、Ｃ列10行目がLASTと表示されているとき
Ａ列5行目を0にして、再度１にしたら
または、何も入力されていないＡ列5行目に１を入力したら
LAST表示は5行目だけであってほしいのですが・・・

説明不足で２度手間をおかけします

お礼日時：2015/12/23 16:10

No.1 回答者： zircon3 回答日時： 2015/12/23 15:14

行数が固定なのでしたら該当行のB列のセルには、、、

=IF(A1=1:"ON":IF(A1=0:"OFF":""))

同じくC列のセルには、、、
=IF(A1=1:"LAST":""))

といった感じの式を書けばよいのではないでしょうか？
上記の式はシートの1行目のB列とC列の物ですが、実物の最初の行にこれと同様の式を書き、あとはこれを下方向にコピーすれば書かれておられる1.～4.の機能は実装終了です。

あれ？　そういゆうことではなくて？？？

この回答へのお礼

休日に親切におしえていただいてありがとうございます
最初エラーになったので:を,にしたら答えがでましたが

私の説明が下手で希望する結果になりません

Ａ列が１のセルは、同じ行のＣ列はLASTと表示されますが
最後にLASTになった行だけ残して、それ以前にLASTと表示されていた行は
空白にしたいのですが・・・

つまりＣ列でLASTと表示されるのは１行だけになります

お礼日時：2015/12/23 15:52