|
▼ichinose さん:
>>
>>8/1〜2007年の1/31の期間がどれだけあるのかを判定。
>>上記の例であると6ヶ月とカウント。
>>[sheet1]
A B
2006/8/1 2007/1/31
>>[sheet2]
>>A B C D E F
>>8月 9月 10月 11月 12月 2007年1月
>>
>>期間の月のカウントとそれをsheet2のように書き出すには
>>どうしたらよいのでしょうか?
>
>Datediffっていう便利な関数がありますよ!!
>
>Sub test()
> Dim d1 As Date
> Dim d2 As Date
> d1 = "2006/8/1" 'こんな記述すると日付が文字列だなんて
> d2 = "2007/1/31" '思ってしまいそうですが、違いますよ!!
> MsgBox DateDiff("m", d1, d2) + 1
>End Sub
ありがとうございます!!!カウントについて、解決できました!
次に月の書き出しについて一日考えていたのですが・・・
sub test()
dim rg as range
dim rgall as range
set rg=worksheets(2).range("A1")
set rgall=worksheets(2).range("A1:F1")
rg.value=worksheets(1).range("A1")
rg.autofill destination:=rgall,type:=xlfillmonths
rgall.numberformatlocal="yyyy年mm月"
set rg=nothing
set rgall=nothing
end sub
これだと"F1"まで入力!、期限は1月まで!って指定しちゃってますよね・・・
解けそうでなかなか解けません。
|
|