Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9554 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【26819】年をまたぐ月数カウント ヒロヒロ123 05/7/19(火) 18:35

【26820】Re:年をまたぐ月数カウント りん 05/7/19(火) 19:31

【26822】Re:年をまたぐ月数カウント [名前なし] 05/7/19(火) 22:58


	【26819】年をまたぐ月数カウント

ヒロヒロ123 - 05/7/19(火) 18:35 -


	引用なし

	パスワード

Excelでセルごとに[2004/03/03]から[2005/07/07]と入力されたデータの場合、どうのようにしたら自動計算してくれますか？


	【26820】Re:年をまたぐ月数カウント

りん

- 05/7/19(火) 19:31 -


	引用なし

	パスワード

ヒロヒロ123 さん、こんばんわ。

>Excelでセルごとに[2004/03/03]から[2005/07/07]と入力されたデータの場合、どうのようにしたら自動計算してくれますか？
マクロではないですが、
[A1]2004/03/03
[B1]2005/07/07
[C1]=DATEDIF(A1,B1,"M")

同じ内容をマクロにすると
Sub Test()
　 Dim s1 As String, s2 As String
　 s1 = Chr(34) & "M" & Chr(34)　'"M"
　 s2 = "=DATEDIF(A1,B1," & s1 & ")"
　 MsgBox Application.Evaluate(s2), vbInformation, "月数"
End Sub
こんな感じです。
DATEDIFはWorksheetFunctionにない（Visual Basic で使用できるワークシート関数一覧にない）ので、Evaluateメソッドを使用します。


	【26822】Re:年をまたぐ月数カウント

[名前なし] - 05/7/19(火) 22:58 -


	引用なし

	パスワード

DateDiff関数なんてのがあります。
A1セルとB1セルに日付が入力されているとして、

Sub Test2()
　　MsgBox DateDiff("m", [A1], [B1]), vbInformation, "月数"
End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9554 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free