Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40589 / 76732 ←次へ | 前へ→

【41239】Re:期間を判定し、予定表をつくりたい
発言  mori3  - 06/8/2(水) 21:33 -

引用なし
パスワード
   ▼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月まで!って指定しちゃってますよね・・・
解けそうでなかなか解けません。

0 hits

【41205】期間を判定し、予定表をつくりたい mori3 06/8/1(火) 20:01 質問
【41207】Re:期間を判定し、予定表をつくりたい ichinose 06/8/1(火) 20:22 発言
【41239】Re:期間を判定し、予定表をつくりたい mori3 06/8/2(水) 21:33 発言
【41240】Re:期間を判定し、予定表をつくりたい ichinose 06/8/2(水) 22:22 発言
【41336】Re:期間を判定し、予定表をつくりたい mori3 06/8/6(日) 17:25 お礼
【41454】Re:期間を判定し、予定表をつくりたい りお 06/8/10(木) 20:50 質問
【41464】Re:期間を判定し、予定表をつくりたい ichinose 06/8/11(金) 7:10 発言
【41489】Re:期間を判定し、予定表をつくりたい りお 06/8/12(土) 2:32 発言
【41491】Re:期間を判定し、予定表をつくりたい ichinose 06/8/12(土) 4:13 発言
【41597】Re:期間を判定し、予定表をつくりたい ichinose 06/8/15(火) 14:26 発言
【41598】Re:期間を判定し、予定表をつくりたい りお 06/8/15(火) 22:37 発言
【41599】Re:期間を判定し、予定表をつくりたい ichinose 06/8/16(水) 8:31 発言
【41709】Re:期間を判定し、予定表をつくりたい りお 06/8/21(月) 0:00 お礼

40589 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free