EXCELで現在時刻をスタンプする方法

質問

株価が一定率上昇した時刻を集計する方法を考えています。
WEBクエリーをいうのを使って現在の株価をEXCELに取得することはできるようになりました。そこで例えば株価が５％上昇した時刻をスタンプしたいと思っています。IF文で５％上昇したらNOW（）時間を表示するということで一旦は時刻が表示されるのですが、クエリが更新される度に見に行ってしまうので最初の時間が更新されてしまいます。
(1)最初に５％を超えた時間を残したい。
(2)５％を割ったらクリアしたい。
ということを実現する方法があれば教えていただけますか。
VBAというのを使えば色々できるようなのですが、ちょっと苦戦しています。関数だけで解決できるのが一番いいのですが・・・。
よろしくお願いします。

回答No.3

hige_082 · ベストアンサー

関数では無理
＞IF文で５％上昇したらNOW（）時間を表示する
このセルを利用したマクロを作ってみた
条件は、IF文が５％上昇したらNOW、５％を割ったら""と成っていること
WEBクエリをこちらで再現していないので、うまくいくかどうか分からない
コピーしたファイルで試すこと

対象のシートタブを右クリック－コードの表示
以下のマクロをコピペ
←の行を書き換える

'------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng_in, rng_out As Range
Dim 式を設定してあるセル, 保持用セル As String

式を設定してあるセル = "a1"　　'←IF文の式のあるセルに書き換える
保持用セル = "a2"　　'←書き出したいセルに書き換える

Set rng_in = Range(式を設定してあるセル)
Set rng_out = Range(保持用セル)
If rng_in <> "" And rng_out = "" Then
rng_out = rng_in
End If
If rng_in = "" And rng_out <> "" Then
rng_out = ""
End If
End Sub
'------------------------------------------------------------

うまくいったかな？

お礼

うまくいきました。
このロジックは色々応用できそうですし、VBAも少しは使えるようになりました。
本当にありがとうございました。

補足

うまくいきました。
このロジックは色々応用できそうですし、VBAも少しは使えるようになりました。
本当にありがとうございました。

回答No.2

ORUKA1951

マクロかで
　IFを使って場合わけをし
　　5%を超えたら、記録セルをIFで再度参照し、高覧ならコピー&ペースト(値だけ)を行う。
　　5%を切ったら、記録セルの値をクリア

回答No.1

hana-hana3

関数は随時計算されるので、固定した時刻を残す事はできません。
ＶＢＡか手入力が必用になります。