ブール変数をループする

私は8つのブール変数を持っています。真である各ブール値の電子メール文字列に電子メールを追加できる必要があります。私は百万のif文を書くことなくそれをする方法を知らない。ここで私が持っているものの一部です：ブール変数をループする

if bIsBlue then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp 
    End if 
    if bIsRed then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varRedGrp 
    End if 
    if bIsGreen then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varGreenGrp 
    End if 
    if bIsBrown then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBrownGrp        
    End if 
    if bIsBlue and bIsRed then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp & ", " & varRedGrp 
    End if 
    if bIsBlue and bIsGreen then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp & ", " & varGreenGrp 
    End if

出典

2012-01-16 user1152145

必要なものは、ルックアップテーブルです。各キー（カラー）について、電子メールグループ値を保存する必要があります。少なくとも、switch文を使うべきです。 http://msdn.microsoft.com/en-us/library/dft2z9yf(v=vs.80).aspx –

http://msdn.microsoft.com/en-us/library/xfhwa508.aspx –

を参照してください束！ – user1152145