即使线条不相互跟随,也要在板上应用比较

时间:2017-06-13 08:01:28

标签: vba excel-vba excel

#早上好! #

这是我的董事会:

enter image description here

我的工作是比较每一行。当C colomn不同时没有问题。 但是当它们相同时(如第15行和第16行),我需要在E ......之后比较colomn D。

这是我的代码:

Sub Macro2()

If Range("C15") = Range("C16") Then


        'call spread

        If Range("D15") = Range("D16") Then    'Date
            If Range("E15") = Range("E16") Then    'Call / put
                     Range("K2") = "call/put spread"    'nom de la strat
            End If
        End If



        'risk reversal

        If Range("D15") = Range("D16") Then    'Date
            If Range("E15") <> Range("E16") Then    'Call / put
                If Range("F15") <> Range("F16") Then    'prix
                    If Range("G15") = Range("G16") Then    'heure
                             Range("K2") = "risk reversal"    'nom de la strat
                    End If
                End If
            End If
        End If



        'Synthetics

        If Range("D15") = Range("D16") Then    'Date
            If Range("E15") <> Range("E16") Then    'Call / put
                If Range("F15") = Range("F16") Then    'prix
                    If Range("G15") = Range("G16") Then    'heure
                             Range("K2") = "Synthetics"    'nom de la strat
                    End If
                End If
            End If
        End If


        'calls/puts calandar

        If Range("D15") <> Range("D16") Then    'Date
            If Range("E15") = Range("E16") Then    'Call / put
                If Range("F15") <> Range("F16") Then    'prix
                    If Range("G15") = Range("G16") Then    'heure
                             Range("K2") = "calls/puts calandar"    'nom de la strat
                    End If
                End If
            End If
        End If


    End If
End sub

效果很好,但是当行不相互跟随时怎么做?

0 个答案:

没有答案