[[20160817083545]] 『入力したら日付を出したい』(はった) ページの最後に飛ぶ

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

 

『入力したら日付を出したい』(はった)

    A       
1 平成28年8月16日
2 文字or数字

 A2に何か文字や数字を入力した時点で、A1に上記のように
今日の日付を表示したいのでよろしくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows7 >


 'シートモジュールへ貼り付け

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count <> 1 Then Exit Sub
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    If Not IsEmpty(Range("A2")) Then
        With Range("A1")
            .NumberFormatLocal = "ggge年m月d日"
            .Value = Date
        End With
    End If
 End Sub

(とおりすがり) 2016/08/17(水) 09:10


とおりすがり様、早々のご教示ありがとうございます。
関数での対応も可能なのでしょうか?
(はった) 2016/08/17(水) 09:38

関数(数式)だけでは無理かと思いますよ。セル値を変えたことを、式では検出できません。

無理矢理実現する場合、例えばA1とA2の値を他のセルにコピーしておくならば、値が違っていたら当日、同じならコピー日という式で実現できますが、セルを自動的にコピーするには、マクロで閉じる際に処理するとかになりますから。
(???) 2016/08/17(水) 09:48


???様、やはりそうですか・・・
マクロは苦手ですが何とかやってみます。
ありがとうございます。
(はった) 2016/08/17(水) 09:52

こんにちは

セルA1に

=IF(A2<>"",TEXT(TODAY(),"ggge年m月d日"),"")

ではダメでしょうか?

今日の日付ではなくて、A2に何か入力した日付という事であればダメですけど、

質問は常にA2に値があったらA1に今日の日付が表示されていればいい

という意味ではないのですか?
(ウッシ) 2016/08/17(水) 09:58


コメント返信:

[ 一覧(最新更新順) ]


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