![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
同じID且つ同じ場所の作業期間内で重複しているものを算出したいです。
添付画像を例として、F3セルに
=SUMPRODUCT((D3>=$C$3:$C$17)*(C3<=$D$3:$D$17)*1,($B$3:$B$17=B3)*1,($E$3:$E$17=E3)*1)
を入力しており、それをオートフィルしています。
これだと、きちんと算出され、F8・F9セルに2と表示されています。
しかし、ID数は作業期間により変化するため、今回はVBAで作成したいです。
どのようなマクロを組めばよろしいでしょうか。
マクロ初心者のためなるべく簡単だと助かります。
![「vbaで重複期間の算出」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/542490713_5f8f12e154057/M.jpg)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> ID数は作業期間により変化するため
17行目までではなく、18行目まで、19行目まで、、、、32行目までなどのようになる、という意味でしょうか。
=IF(E3<>"",SUMPRODUCT((D3>=$C$3:$C$300)*(C3<=$D$3:$D$300)*1,($B$3:$B$300=B3)*1,($E$3:$E$300=E3)*1),"")
のように、使いそうな最大行が120行程度なら、それより適当に大きな300にしておいて、F3からF200まで、あらかじめ、オートフィルしておいてはどうですか。
No.1
- 回答日時:
こんにちは
現状でできているものをわざわざマクロにする理由がわかりませんが、同じことを行えば良いだけではないでしょうか?
関数であれば、値が変わっても即時反映されますが、マクロだと、都度実行しないと結果に反映されません。
With Range("F3:F17")
.FormulaLocal = "=SUMPRODUCT((D3>=$C$3:$C$17)*(C3<=$D$3:$D$17)*($B$3:$B$17=B3)*($E$3:$E$17=E3)*(B3<>""""))"
.Value = .Value
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) 勤務表のエクセル作成で数式を教えてください。 1 2023/01/17 03:27
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IFとIFS関数
-
Excelを無料で使うには? パソ...
-
セルの数を求めたい
-
Excelの表示についての質問
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
エクセルの数式バーのフォント...
-
エクセルの関数について教えて...
-
エクセルでセルに標準で入力さ...
-
Microsoft1Officeの互換ソフト...
-
シフト表をエクセルで作るとき...
-
ユーザー定義関数をアドイン登...
-
Excel VBAで全ての矢印を赤色に...
-
VBA Private Sub Worksheet_Cha...
-
2列に入っているデータを1列...
-
Excelに詳しい方! B列が「日...
-
excel2013 MonthDays 関数が使...
-
エクセルのクイックアクセスツ...
-
Excelの数式について教えてくだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報