コードが全然短くなりません。アドバイスお願いします。

Question

VBAのツールで下記メソッドを実装しました。

パターンごとにIf分岐しているのですが、
さすがに長いと思わざるを得ません。

withを使用しようかとも考えましたが、
見ずらくなりましたので、戻しました。
cellDateFromは報告期間FROM
cellDateToには報告期間TO
cellDateBには作業着手予定日
cellDateCには作業完了予定日
でそれぞれDate型です。

cellDateDにはInteger型で進捗度が入っています。

Ifの分岐を短くすることは可能でしょうか。。

ozwkさんの回答を参考に修正した後のコードです。

Sub CellSetter()
        For i = 6 To rowsCount
            '作業着手予定日が空ならFor文から抜ける
            If Cells(i, 2).Value = "" Then
                Exit For
            End If
            'B6セルから末端までのデータを一時的に格納する。
            cellDateB = Cells(i, 2).Value
            'C6セルから末端までのデータを一時的に格納する。
            cellDateC = Cells(i, 3).Value
            'D6セルから末端までのデータを一時的に格納する。
            cellDateD = Cells(i, 4).Value
            '①
            If cellDateC < cellDateFrom Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '②
            ElseIf cellDateB < cellDateFrom And cellDateC = cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '③
            ElseIf cellDateB < cellDateFrom And cellDateFrom < cellDateC And cellDateC < cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '④
            ElseIf cellDateFrom = cellDateB And cellDateFrom < cellDateC And cellDateC < cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑤
            ElseIf cellDateFrom < cellDateB And cellDateB < cellDateTo And cellDateFrom < cellDateC And cellDateC < cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑥
            ElseIf cellDateFrom < cellDateB And cellDateB < cellDateTo And cellDateC = cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑦
            ElseIf cellDateFrom < cellDateB And cellDateB < cellDateTo And cellDateTo < cellDateC Then
                Call Selecter(i, cellDateD, C_START, C_END_FIRST, C_START, C_END_EMP, C_START_LATE, C_END_EMP)
            '⑧
            ElseIf cellDateB = cellDateTo And cellDateTo < cellDateC Then
                Call Selecter(i, cellDateD, C_START, C_END_FIRST, C_START, C_END_EMP, C_START_LATE, C_END_EMP)
            '⑨
            ElseIf cellDateTo < cellDateB Then
                Call Selecter(i, cellDateD, C_START_FIRST, C_END_FIRST, C_START_FIRST, C_END_EMP, C_START_EMP, C_END_EMP)
            '⑩
            ElseIf cellDateB < cellDateFrom And cellDateFrom = cellDateC Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑪
            ElseIf cellDateB = cellDateFrom And cellDateC = cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑫
            ElseIf cellDateB = cellDateFrom And cellDateTo < cellDateC Then
                Call Selecter(i, cellDateD, C_START, C_END_FIRST, C_START, C_END_EMP, C_START_LATE, C_END_EMP)
            '⑬
            ElseIf cellDateB < cellDateFrom And cellDateTo < cellDateC Then
                Call Selecter(i, cellDateD, C_START, C_END_FIRST, C_START, C_END_EMP, C_START_LATE, C_END_EMP)
            '⑭
            ElseIf cellDateB = cellDateFrom And cellDateC = cellDateFrom Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            '⑮
            ElseIf cellDateB = cellDateTo And cellDateC = cellDateTo Then
                Call Selecter(i, cellDateD, C_START, C_END, C_START, C_END_LATE, C_START_LATE, C_END_LATE)
            End If
        Next i
    End Sub
'メソッド名は後で考えます。
Sub Selecter(count As Variant, cellDateD As Integer, str1 As String, str2 As String, str3 As String, str4 As String, str5 As String, str6 As String)
        Select Case cellDateD
            Case 100
                Cells(count, 5).Value = str1
                Cells(count, 6).Value = str2
            Case 1 To 99
                Cells(count, 5).Value = str3
                Cells(count, 6).Value = str4
            Case 0
                Cells(count, 5).Value = str5
                Cells(count, 6).Value = str6
        End Select
    End Sub

追記
どうしてこのような分岐パターンができたのかという画像があったのですが、
イメージの追加ができませんでした。

Comments

[momon-ga]

ifの分岐を短くしたいののイメージを補足して下さい。16パターンあれば分岐は16になるのでは？短くしたいのはifの中のcaseの書き方？

[King_of_Flies]

分岐パターンは15個あります。短くしたいのはIf分の中で、ozwkさんの回答からプログラムを修正し、Select Caseの記述を切り出して、If分の中身は短くすることが出ました。なのでそのプログラムを質問で編集しています。

[King_of_Flies]

ただ、その修正後のプログラムを見てわかると思いますが、分岐パターン15のうち、同じ結果をセットする処理がいくつかあり、これを短くするにはどうすればよいかというとことで、悩んでいます。

[momon-ga]

パターンの整理をするとよいかもですね。参考 https://www.slideshare.net/kawasima/ss-26968240

[King_of_Flies]

カルーノ図とやらがもしかしたらコードを短くするヒントになるかもしれないですね。少し調べてみます。

Answer 1

要件わかってないですが、結果表を作成して、インデックスの取得を関数化すればよいかと。
変数名が全然いけてないので修正ですね。

Sub CellSetter()

    Dim RESULT(1, 2)   'パターン数 × cellDateDの分岐数
    'めんどいのでコピペですが・・・
    RESULT(0, 0) = Array(C_START_EMP, C_END)
    RESULT(0, 1) = Array(C_START, C_LATE)
    RESULT(0, 2) = Array(C_START_TMP, C_END) 
    RESULT(1, 0) = Array(C_START_EMP, C_END)
    RESULT(1, 1) = Array(C_START_EMP, C_END)
    RESULT(1, 2) = Array(C_START_EMP, C_END)
'ここまで、初期設定

    For i = 6 To rowsCount
        hyo_PT = getPT(cellDateB, cellDateC, cellDateFrom, cellDateTo)
        hyo_POS = getPos(cellDateD)
        
        Cells(i, 5).Value = RESULT(hyo_PT, hyo_POS)(0)
        Cells(i, 6).Value = RESULT(hyo_PT, hyo_POS)(1)
    Next
    
End Sub

Function getPos(cellDateD)
    Select Case cellDateD
        Case 100
            getPos = 2
        Case 1 To 99
            getPos = 1
        Case 0
            getPos = 0
    End Select
End Function

Function getPT(cellDateB, cellDateC, cellDateFrom, cellDateTo)
'面倒なので実装は書かないですが、意味は伝わるかと・・・
    getPT = 0   '例の日付の大小のif文
End Function

Comments

[King_of_Flies]

一番最初の初期設定のコメントでパターン数*CellDateDの分岐数の宣言をするとのことですが、
こうなると45パターン書くことになりますね。
これはちょっと厳しいかもしれないです。

ただ、GetPosとGetPTの考え方は参考になるものがありました。

このあたりを自分で考えて組み込んでみるのもありですね！

しばらくお待ちを。

Answer 2

長いので全然内容読んでませんが、

(Else)If 条件式 Then
  Select Case cellDateD
    Case 100
      Cells(i, 5).Value = 値A
      Cells(i, 6).Value = 値B
    Case 1 To 99
      Cells(i, 5).Value = 値C
      Cells(i, 6).Value = 値D
    Case 0
      Cells(i, 5).Value = 値E
      Cells(i, 6).Value = 値F
  End Select
...

というパターンの繰り返しなので
Select部分をf(i,値A,値B,...,値F)と置けば
単純に

(Else)If 条件式 Then
  f(i,値A,値B, ... ,値F)
(Else)If 条件式 Then
  f(i,値A,値B, ... ,値F)
(Else)If 条件式 Then
  f(i,値A,値B, ... ,値F)
(Else)If 条件式 Then
  f(i,値A,値B, ... ,値F)
...

---

で、これで少し見やすくなると、
条件式が違うだけでやっていることが同じなところが何箇所も見つかると思います。
それら条件式を論理的にまとめると更に減ります。

例えば3,4は
3:(B < F And F < C And C < T )
4:(F = B And F < C And C < T )
なので
(B <= F And F < C And C < T )にまとまります