基於表單選項按鈕選擇案例

我有一個設置了幾個參數的表單。我用兩個選項按鈕「滾動」和「一次」設置了我的表單。我想將其設置爲選擇使用哪種情況的條件。例如，如果選擇「一次」，請使用選擇案例而不使用擴展使用選擇案例使用擴展。下面的代碼是我現在不知道我是否正確地執行此條件。基於表單選項按鈕選擇案例

If OnetimeOption.value = True Then 

    Select Case MonthComboBox.value 
     Case "Week One" 
      iCol = "BB" 

     Case "Week Two" 
      iCol = "BC" 

     Case "Week Three" 
      iCol = "BD" 

     Case "Week Four" 
      iCol = "BE" 

     Case "Week Five" 
      iCol = "BF" 

     Case "Week Six" 
      iCol = "BG" 

     Case "One Seven" 
      iCol = "BH" 

     Case "One Eight" 
      iCol = "BI" 

     Case "One Nine" 
      iCol = "BJ" 

     Case "One Ten" 
      iCol = "BK" 

     Case "One Eleven" 
      iCol = "BL" 

     Case "One Twelve" 
      iCol = "BM" 
    End Select 

Else 



    nExtend = 1 'Set this as a default. 
    Select Case MonthComboBox.value 

     Case "Week One" 
      iCol = "BB" 
      nExtend = 12 
     Case "Week Two" 
      iCol = "BC" 
      nExtend = 11 
     Case "Week Three" 
      iCol = "BD" 
      nExtend = 10 
     Case "Week Four" 
      iCol = "BE" 
      nExtend = 9 
     Case "Week Five" 
      iCol = "BF" 
      nExtend = 8 
     Case "Week Six" 
      iCol = "BG" 
      nExtend = 7 
     Case "One Seven" 
      iCol = "BH" 
      nExtend = 6 
     Case "One Eight" 
      iCol = "BI" 
      nExtend = 5 
     Case "One Nine" 
      iCol = "BJ" 
      nExtend = 4 
     Case "One Ten" 
      iCol = "BK" 
      nExtend = 3 
     Case "One Eleven" 
      iCol = "BL" 
      nExtend = 2 
     Case "One Twelve" 
      iCol = "BM" 
      nExtend = 1 
    End Select 

End If

來源

2016-07-28 Luis

爲什麼你不確定你是否正確地做了條件？ – pnuts

如果OnetimeOption.Value爲真，變量nExtend應該採用什麼值？目前它沒有被你顯示的代碼所定義，這可能意味着它要麼取0的值（作爲默認值），要麼當OnetimeOption.Value的值不爲真時，最後設置的值。另外，當OneTimeOption.Value爲false並且MonthComboBox.value爲「第一週」時，您希望iCol成爲什麼樣的？目前，您將其設置爲「C」，但是在一段永遠不會到達的代碼中，您將其設置爲「N」。 – YowE3K

@pnuts，因爲我有一個在線調試如果OnetimeOption.value = True然後 – Luis

如果兩個Select Cases都使用相同的一組值，我會以不同的方式寫它。但他們沒有。但是，我會結合具有相同結果的案例。

If OnetimeOption.Value = True Then 

    Select Case MonthComboBox.Value 
     Case "Week One" 
      iCol = "C" 
     Case "Week Two" 
      iCol = "N" 
     Case "Week Three" 
      iCol = "O" 
     Case "Week 4" 
      iCol = "P" 
     Case "Week 5", "Week 6", "One Month" 
      iCol = "Q" 
    End Select 

Else 
    nExtend = 1 'Set this as a default. 
    Select Case MonthComboBox.Value 
     Case "Week One" 
      iCol = "C" 
     Case "Week One" 
      iCol = "N" 
      nExtend = 4 
     Case "Current Month +2" 
      iCol = "O" 
      nExtend = 3 
     Case "Current Month +3" 
      iCol = "P" 
      nExtend = 2 
     Case "Current Month +4" 
      iCol = "Q" 
    End Select 

End If

來源

2016-07-28 21:22:23

基於表單選項按鈕選擇案例

回答

相關問題