[[20150701133554]] 『日付の転記』(グローバ) ページの最後に飛ぶ

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

 

『日付の転記』(グローバ)

 エクセル D列に2015/5/12 と入力してある場合 F列に2015と年だけコピーしたいです。

関数を使っていましたが、年度始めが4/1日なので
2015/3/31=2014

 2015-4-1 =2015 というふうにしたいです。

 適用範囲はA列の値のある最後の行までです。

 相当な数のブックがあり、そのたびに関数を入力するのも大変なので、

VBAを教えてください。

< 使用 Excel:Excel2012(Mac)、使用 OS:Windows7 >


 訂正 15:18 A列基準をD列基準にしていたので変更。

 >> 2015-4-1 =2015 というふうにしたいです

 この意味が全くわかりませんが、4月始まりの年度表示なら。
 いろんな方法がありますが、たとえば。

 Sub test()
    With Range("A1", Range("A" & Rows.Count).End(xlUp)).Offset(, 5)
        .Formula = "=IF(MONTH(D1)>3,YEAR(D1),YEAR(D1)-1)"
        .Value = .Value
    End With
 End Sub

(β) 2015/07/01(水) 14:42


コメント返信:

[ 一覧(最新更新順) ]


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