入居日 1997/01/20
退去日 2000/08/15
期間 3年6ヶ月26日
↑
関数 =DATEDIF(A1,B1,"Y")&"年"&DATEDIF(A1,B1,"YM")&"ヶ月"&(DATEDIF(A1,B1,"MD")&"日")
別のセルに上記と同じ関数で 期間 2年2ヶ月24日 と結果が入力されています。
期間同士を足すと 5年8ヶ月50日 となります。
しかし、表示は、12ヶ月、31日をMAXとしたいので 5年9ヶ月16日 という結果がほしいです。
説明が下手ですいません。関数で出来ますか??
おわかりの方教えてくださーい!
No.2ベストアンサー
- 回答日時:
上記の関数だと最大値は
11ヶ月(0ヶ月があるため)
30日(0日があるため)
だと思いますがいいのでしょうか?
ユーザー定義関数を作りました。Alt+F11でBisualVasicEditorを起動して
標準モジュール(なければ「挿入」「標準モジュール」)に下記のVBAをコピーしてください。
Function DATESUM(RG)
Dim RC, WY, WM, WD
For Each RC In RG
If InStr(1, RC, "年") = 0 Then GoTo RCNEXT 'セルに年がない場合集計しない
If InStr(1, RC, "ヶ月") = 0 Then GoTo RCNEXT 'セルにヶ月がない場合集計しない
If InStr(1, RC, "日") = 0 Then GoTo RCNEXT 'セルに日がない場合集計しない
WY = WY + CInt(Left(RC, InStr(1, RC, "年") - 1)) '年集計
WM = WM + CInt(Replace(Mid(RC, InStr(1, RC, "年") + 1, 2), "ヶ", "")) '月集計
WD = WD + CInt(Replace(Mid(RC, InStr(1, RC, "月") + 1, 2), "日", "")) '日集計
RCNEXT:
Next RC
WM = WM + Int(WD / 31): WD = WD - Int(WD / 31) * 31 '日桁あふれ修正
WY = WY + Int(WM / 12): WM = WM - Int(WM / 12) * 12 '月桁あふれ修正
DATESUM = WY & "年" & WM & "ヶ月" & WD & "日"
End Function
No.1
- 回答日時:
二つの期間が(B1,B2)、(C1,C2)にあるとして
=DATEDIF(0,DATEDIF(B1,B2,"D")+DATEDIF(C1,C2,"D"),"Y") → 合算の満年数
=DATEDIF(0,DATEDIF(B1,B2,"D")+DATEDIF(C1,C2,"D"),"YM") → 合算の満月数
=DATEDIF(0,DATEDIF(B1,B2,"D")+DATEDIF(C1,C2,"D"),"MD") → 合算の満日数
で求められませんか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで年月の合計の関数を教えてください。
Excel(エクセル)
-
Excel 複数期間の合計
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで重複する項目を1つにまと...
-
【エクセル】オートフィルタで...
-
Excel : 二通りの合計が合わな...
-
エクセルで特定の色の数字だけ...
-
ピポットテーブルの合体って?
-
Excel ピボットテーブルの作成...
-
Excel VBA で集計合計を高速化...
-
エクセルの主軸と第2軸の0を合...
-
エクセルで円グラフに引き出し...
-
エクセルで文字が白くなる
-
エクセルで文字を含む式に、カ...
-
エクセルで、時間 0:00を表示...
-
エクセルでプルダウン選択され...
-
エクセル(2003) 「1900/1/0...
-
エクセルで長い行を5行ごとに1...
-
【エクセル】区切り文字が含ま...
-
EXCELの散布図で日付が1900年に...
-
Excelで、空白を表示したい
-
エクセルの関数で範囲のある数...
-
excelグラフでデータテーブルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
ピボットテーブルでは時間の表...
-
フィルタをしても最下行を常に...
-
エクセルで特定の色の数字だけ...
-
VBAで重複する項目を1つにまと...
-
ピボットの集計方法「合計」初...
-
ピボットを更新すると数式が入...
-
アンケートの集計
-
いい機能だけど、毎回めんどく...
-
エクセル、リソース不足エラー...
-
ピボットテーブルで同じデータ...
-
他部署からもらう データで、 ...
-
エクセル 関数を使った横方向の...
-
複数のピボットテーブルを一括...
-
VLOOKUP関数とCOUNT関数等の組...
-
excelで集計の合計を降順に並べ...
-
ピボットテーブルのページエリ...
-
Excelの集計結果だけをコピー貼...
-
エクセルの小計を自動的に色づ...
-
ピボットテーブルの逆
おすすめ情報