![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
同じ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ランキング
-
DATE関数で現在の年齢を出した...
-
エクセルでCtrl+Tでテーブルの...
-
REGEXREPLACE関数について、
-
エクセルのクイックアクセスツ...
-
在庫管理表に使うエクセルの関...
-
職場の人から聞かれており、こ...
-
下記マクロでMsgBox "空白です...
-
Excel関数-文字列で自動作成さ...
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
エクセルの関数について教えて...
-
エクセルで表
-
PDFの請求明細をエクセルにしたい
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
エクセルで特定の範囲内から小...
-
Excelで50個のセルに同じ文字を...
-
エクセルで会社の従業員のデー...
-
【マクロ】関数をセルに入力す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報