[[20100129084916]]　『日付関数』（田中）　ページの最後に飛ぶ

『日付関数』（田中）

 日付の入力ミスを起こさないため、C1のセルに文字、数字、アルファベットをいれたら
 A1に当日の日付を表示したいのですが、保存しても次に開けたらA1の日付は変わらない ようにしたい。このような関数をお願いします。
 WindowsXP,Excel2003

 関数ではないですが、Ctrl+; で今日の日付を入力する。
 （名無し１号）

 名無し１号さん回答ありがとうございます。関数でお願いしたいのですが、宜しくお願いします。
（田中）

 あまりお勧めしませんが。

 まず「ツール」―「オプション」の「計算方法」タブで「反復計算」にチェックを入れて「最大反復回数」を「1」と設定します。

 次にA1セルに
 =IF(AND(A1=0,CELL("address")="$C$1"),TODAY(),A1)
 と入力してセルの書式設定の「表示形式」で「分類」に「ユーザー定義」、「種類」に「yyyy/m/d;;;」としてみてください。

 なお、上記の設定を行ったブックでは式が循環参照（自分自身を参照している状態）になってもメッセージは表示されなくなります。

 追記
 　上記の式では一度C1セルに値が入力されたら、その後C1セルを書き換えたりクリアしても
 　日付は変わりません。
 　A1セルをリセットしたい場合はA1セルでF2を押してそのままEnterを押してください。
 　（式を再入力する）

 (独覚)

 普通は、マクロに頼るものと思います。
　
[[20091214134620]] 『セルに文字を入力したら別セルに自動的に入力した日付を表示』（ベック）
[[20090514110127]] 『日付を変わらない様にしたいのでが』（たくみ）
　
（純丸）(o^-')b

 独覚さんありがとうございました。
 できたのですが
 =IF(AND(A1=0,CELL("address")="$C$1"),TODAY(),A1)
　　　　　　　　↓
 =IF(AND(A1=0,CELL("address")="C1"),TODAY(),A1)

 行が多いため、式を変えてドラッグしたのですが
 うまくいかないです。
 また
 C1に入力して間違えて取り消した場合
 A1の日付が消えるようにならないでしょうか?
 宜しくお願いします。
（田中）

 1番目

 =IF(AND(A1=0,CELL("address")=CELL("address",C1)),TODAY(),A1)
 で。

 2番目
 =IF(AND(A1=0,CELL("address")=CELL("address",C1)),TODAY(),IF(C1="",0,A1))

 で、どうでしょうか？

 純丸さん参考ログありがとうございます。

 独覚さんありがとうございました。
 1行目
 =IF(AND(A1=0,CELL("address")=CELL("address",C1)),TODAY(),IF(C1="",0,A1))
 2行目
 =IF(AND(A2=0,CELL("address")=CELL("address",C2)),TODAY(),IF(C2="",0,A2))
 3行目
 =IF(AND(A3=0,CELL("address")=CELL("address",C3)),TODAY(),IF(C3="",0,A3))
　　　　　　　　　　　　　　　　↓
 これで思うようにできました。

 >「反復計算」にチェックを入れて「最大反復回数」を「1」と設定します。
 これはどような意味なのでしょうか?
 教えていただけませんか。

 宜しくお願いします。
（田中）

 自分を参照する数式がある場合（循環参照）の動作を設定します。

 例えばA1セルに「=A1+1」と入力されている場合、「反復計算」にチェックが入っていない場合「循環参照」のエラーだと
 メッセージが表示され式を修正するよう促されます。

 「反復計算」にチェックを入れた場合、「最大反復回数」だけ計算を繰り返し、エラーにはなりません。
 たとえば「最大反復回数」を「10」とした場合、「=A1+1」は「A1+1」を10回繰り返して「10」になります。
 (なお、A1セルに「=B1+1」、B1セルに「=A1+1」となっているような回りまわって自分を参照している場合も循環参照になります）
 (独覚)

 独覚さん
 勉強になりました。
 ありがとうございました。
 （田中）

コメント返信：

[ 一覧(最新更新順) ]

[[20100129084916]] 『日付関数』（田中） ページの最後に飛ぶ

[[20100129084916]]　『日付関数』（田中）　ページの最後に飛ぶ