グループ数割り出し

投稿者 : まるがめ     投稿日時 : 2025/05/16(Fri) 00:24:43     OS : 未指定     EXCEL : 未指定

---

リスト表：https://ibb.co/s9KvrMHL

予約者リストとスタッフリストがあります。
それぞれのリストの出勤状況からグループ数を割り出したいです。

予約者リストは3人で1グループ。
ただし、Oさん、Pさん、Qさんの3人は0.5グループとしてカウント。
0.5グループ対象の人はC23～E23で設定。
D列の休みや、E列の出勤時刻が空欄の場合はカウントなし。

スタッフリストはL列に時刻入力あった場合、出勤とみなし、2人で1グループ。

割り出した結果を、A25の日付と一致した場合、C25に表示する。

以上のようなことをしたいのですが可能でしょうか？
わかりづらくすいませんが、マクロ案を教えていただきたいです。
やりたいことは両方のリストの出勤状況で、何グループあるか割り出したいです。
別の考え方や、指摘あればぜひいただきたいです。
よろしくお願いします。

投稿者 : さんこう     投稿日時 : 2025/05/16(Fri) 08:24:29

---

＞わかりづらく

Pさんとかが休みで「0.5グループ」ができないときにどうなるのかわからないので、てきとうです。

参考になれば。

Sub わからないのでてきとう()
    n = Int(WorksheetFunction.CountIfs(Range("D4:D21"), "=", Range("E4:E21"), "<>") / 3)
    
    m = 0
    For Each r In Range("C23:E23")
        If WorksheetFunction.CountIf(Range("C4:C21"), r.Value) Then m = m + 1
    Next
    If m = 3 Then n = n - 0.5
    
    s = Int(WorksheetFunction.CountIf(Range("L4:L21"), "<>") / 2)
    
    Range("C25") = "予約グループ" & n & "-スタッフグループ" & s
    
End Sub

投稿者 : さんこう     投稿日時 : 2025/06/11(Wed) 16:36:35

---

さんこうでした。