Excel VBA質問箱 IV

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

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


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

54773 / 76807

←次へ　｜　前へ→


	【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メソッドを使用します。

0 hits

▼

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