Excel VBA質問箱 IV

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

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


54704 / 76738 ←次へ | 前へ→

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

0 hits

【26819】年をまたぐ月数カウント ヒロヒロ123 05/7/19(火) 18:35 質問
【26820】Re:年をまたぐ月数カウント りん 05/7/19(火) 19:31 回答
【26822】Re:年をまたぐ月数カウント [名前なし] 05/7/19(火) 22:58 発言

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