存儲在PowerPoint

Question

一個Array對VBA可變每個數字值我有一個數組：

For iCtrl = LBound(chkboxes) To UBound(chkboxes) 
    PriorityList = Array(chkboxes(iCtrl).Tag) 
Next 

這看起來通過存儲在用戶形式的複選框的變量屬性。基本上，從這個我可以存儲爲被檢查的所有複選框標籤屬性中的文本。 （這些只是數字，從1到16）

我需要用這些數字來要做的就是每個號碼存儲到一個變量。只有3三個複選框可以一次檢查，所以我想有這些變量：VAR1，VAR2，VAR3。最小的數字將被存儲爲VAR1，最多將被存儲在VAR3，在VAR2中間的數字。

我認爲必須有這個一個簡單的解決方案，但我一直在令人頭大我的大腦和有沒有運氣。我在編程方面是初學者，所以可能與它有很大關係:)謝謝！

Answer 1

試試這個：

Sub GetLowestChecked3() 
    Dim var1 As Long, var2 As Long, var3 As Long, t As Long 
    var1 = 999: var2 = 999: var3 = 999 
    For iCtrl = LBound(chkboxes) To UBound(chkboxes) 
     If chkboxes(iCtrl).value = True Then 
      t = CLng(chkboxes(iCtrl).Tag) 
      If var1 > t Then 
       var3 = var2 
       var2 = var1 
       var1 = t 
      ElseIf var2 > t Then 
       var3 = var2 
       var2 = t 
      ElseIf var3 > t Then 
       var3 = t 
      End If 
     End If 
    Next 
End Sub