EXCEL： 日付を残す関数

どなたか教えてください。
伝票明細に度々同じような編集を加えるので、自動的に編集した日付を履歴として残すようにしたいのです。
↓
明細行の一番左側(A5)に、プルダウンリスト(入力規則)から「入庫」または「出庫」を選ぶと、自動的にとなりのセルにその日の日付が入力されるようにする。

私が考えたのは、次のとおり。
(B5)にひとまずToday関数を入れる。→(C5)に次の関数を入れる。
C5=IF(OR(A5="入庫",A5="出庫"),B5,"")
けど、これじゃ値ではなく数式をもってきちゃうので、別な日に開くと日付が更新されてしまうのです。
どうすればよいですか？よろしくお願いします。

No.4 ベストアンサー 回答者： taisuke555 回答日時： 2002/11/20 15:48

＞入力セルをA5,A6だけではなく、列Aすべてに有効にするには

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　If(.Column = 1 ) then 'A列ならば
　　　　　　If (.Value = "入庫" Or .Value = "出庫") Then '入力値チェック
　　　　　　　　Range("B" & CStr(.Row)) = Date '日付を表示
　　　　　　Else
　　　　　　　　Range("B" & CStr(.Row)) = "" 'セルのクリア
　　　　　　End If
　　　　End If
　　End With
End Sub
に変更してください。

＞Range("B" & CStr(.Row)) = Date '日付を表示」の部分の
＞「& CStr(.Row)) 」はどういう意味になっているのですか？

セルを指定する場合、VBAでは、
　Range("A1")
　Cells(1,1) 'Cells(行番号,列番号)
のように指定します。
Cstr(.Row)は実際には With Targetを受けて
Cstr(Target.Row)の事です。（Tagetは入力セル .Rowは行）
Target.Rowは入力セルの行番号を数値で返しますのでCstr()で文字に変換しています。
(str()だと数値の前にスペースが入る（今はよく知りませんが）為、Cstr()にしています）
昔の知識をそのまま現在も使用しているので、もしかしたら、変換しなくても
うまくいくのかもしれませんが・・・

Range("B" & CStr(.Row))の代わりに
Cells(.Row,2)でも同様になります。
今回はB列という事がわかり易いようRangeを使用しました。

この回答へのお礼

できました！
わざわざ書き換えてくださりありがとうございました。
しかも、分かり易い説明まで加えていただいて、ホントにホントに感謝しております。
ありがとうございました。

お礼日時：2002/11/20 16:20

No.3 回答者： taisuke555 回答日時： 2002/11/19 14:10

関数を関数で値に変換することはできないと思います。

手動でしたらimogasiさんの（２）の方法で、関数の入ったセルを選択し、
[F2]→[F9]で関数を値にするのが、簡単かと思います。

VBA（マクロ）でよければ、

１、[Alt]+[F11]を押す。VisialBasicEditerに変更されます。
２、左上にプロジェクトと書いてある中に、
　　　VBAProject(現在のブック名）
　　　　　└Microsoft Excel Objects
　　　　　　　　├Sheet1
　　　　　　　　　・・・
　　　　　　　　└ThisWorkbook
　　とあると思うので、Sheet1（伝票明細のシート）をダブルクリック
３．以下のコードを貼り付ける
***************************この下から*****************************
Private Sub Worksheet_Change(ByVal Target As Range)
　　With Target
　　　　Select Case .Address(False, False) '入力セルのアドレス
　　　　　　Case "A5", "A6"
　　　　　　　　If (.Value = "入庫" Or .Value = "出庫") Then '入力値チェック
　　　　　　　　　　Range("B" & CStr(.Row)) = Date '日付を表示
　　　　　　　　Else
　　　　　　　　　　Range("B" & CStr(.Row)) = "" 'セルのクリア
　　　　　　　　End If
　　　　End Select
　　End With
End Sub
***************************この上まで***************************
４．[Alt]+[F11]を押す。Excelに戻ります。
５．Sheet1のA5,A6で[入庫],[出庫]のどちらかを入力すると隣のセルに日付が表示されます。 （プルダウンリスト）の選択でもできると思います。

詳細が分かりませんでしたので、１シートにしか対応させていません。
おかしい所や分からない事があれば補足してください。

この回答への補足

こんにちは。
やってみたらできました！すばらしいっ。マクロでやってみようと思っていたのですがサッパリわかりませんでした。ありがとうございます。
一つお願いがあるのですが、入力セルをA5,A6だけではなく、列Aすべてに有効にするにはどうしたらいいのでしょうか？
また、「Range("B" & CStr(.Row)) = Date '日付を表示」の部分の 「& CStr(.Row)) 」はどういう意味になっているのですか？
作っていただいた上に、わがまま言ってすみませんが、よろしくお願いいたします。

補足日時：2002/11/20 12:28

No.2 回答者： imogasi 回答日時： 2002/11/18 20:00

（１）関数は、値を反映してくれるところがメリットで　　　す。

　　例えば＝Ｂ１と言う式を、Ｃ１に入れると、Ｂ１の値　　が変ると、Ｃ１も即座に変ってくれます。（設定を自　　動計算として）
　　一般的には再計算される都度そこを参照しているセル　　の値も変ります。既回答もＢ５の値が変る時はＶＡＬ　　ＵＥにしても＝Value(b5)の式が残る以上、Ｂ５が変る　　とＣ５も変ると思います。
　　　日付けの時にこれが困る訳です。そこで対策は
（２）計算値へ置換する方法
　　　対象セル数が１つの時に使うのが適当です。
　　　a.計算値に変換したいセルをアクチブにする。
　　　b.数式バーをクリックする。データを編集できる
　　　　状態にする。
　　　c.ここでＦ９キーを押す。数式バー全体がハイライ　　　　トされる。
　　　d.エンタキーを押す。数式は消え、値になることが
　　　　判る。
（３）セル範囲に対してするときは、コピーして、同じ範　　　囲に対し「形式を選択して貼り付け」「貼り付けオ　　　プション」で「値」オプションをＯＮにして、貼り　　　付ける。

No.1 回答者： kazuhiko5681 回答日時： 2002/11/18 19:12

初めまして。

C5=IF(OR(A5="入庫",A5="出庫"),VALUE(B5),"")
これで値を拾ってくると思います。お試しになってみて下さい。