[[20041122100354]] 『日付の自動挿入』(杏) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『日付の自動挿入』(杏)

 すみません、又お世話になります。
 あるセル(A1)に何かを入力すると、別のセル(B1)にその日の日付が入力されるような
 数式を組むことはできるでしょうか?

 自分でもIF関数にTODAYを使ってB1に関数を入れてみたのですが、
 ファイルを開くと日付が更新されてしまって、行き詰まってしまいました。
 かなり初歩的な部分だとは思うのですが、どうか知恵をお貸し下さい。
 よろしくお願い致します。
 (Exel2002×Win2000)

 以前に似たような質問が有りました。
[[20030903144302]]『セルに数字を入力した時間を表示したい』(いずみ)
(ケン)


 初めてのユーザー定義関数・・・(^_^A;
 こんな感じで良いのでしょうか。
Option Explicit
Public Function MyDate(MyR As Range) As Variant
Dim MyV As String
MyV = MyR
    If MyV = "" Then
        MyDate = ""
    Else
        MyDate = Date
    End If
End Function

 標準モジュールにコピペして、 =MyDate(A1) としてみてください。
 ※書式は、日付形式にしておく必要があります。

 (川野鮎太郎)

 ケンさん、川野さん、ありがとうございます!
 ケンさんに教えて頂いてすぐ、以前の例をカスタマイズしようと
 頑張ってみたのですが、うまくいかず四苦八苦しておりました。
 川野さんに組んでいただいたマクロで綺麗に動きました!
 これでファイルが完成しそうです。ありがとうございました。
 (杏)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.