[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力したら日付を出したい』(はった)
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
無理矢理実現する場合、例えばA1とA2の値を他のセルにコピーしておくならば、値が違っていたら当日、同じならコピー日という式で実現できますが、セルを自動的にコピーするには、マクロで閉じる際に処理するとかになりますから。
(???) 2016/08/17(水) 09:48
セル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.