Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9535 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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:年をまたぐ月数カウント
回答  りん E-MAIL  - 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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9535 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free