セルの値に基づいてサブを呼び出す

Question

私はVBAで利用できる3つの異なるサブを持っており、それらをサブクラスを使用して呼び出すことを望んでいます。 いずれかのサブを条件に基づいて呼び出す必要がありますが、サブが呼び出されることはありません！

Sub rush_hour() 
    If Range("B2").Value = "Greater Than" Then 
     Call call_rus_greater 
    ElseIf Range("B2").Value = "Less Than" Then 
     Call call_rus_less 
    ElseIf Range("B2").Value = "Equals" Then 
     Call call_rus_equals 
    End If 
End Sub 

Answer 1

ドロップダウンの大文字と小文字は、コードの内容と異なる場合があります。また、ドロップダウンのどこかに空白があるか、Range（ "B2"）が指定されているシートが、サブの呼び出し時にアクティブなシートではない場合もあります。これらの可能性はすべて以下のコードでは解消されています。

Sub rush_hour() 

    Select Case Trim(LCase(ActiveSheet.Range("B2").value)) 
     Case "greater than" 
      call_rus_greater 
     Case "less than" 
      call_rus_less 
     Case "equals" 
      call_rus_equals 
     Case Else 
      MsgBox "Unexpected value in cell B2" 
    End Select 
End Sub