将数组中的每个数值存储到 PowerPoint 中的 VBA 中的变量答案

【问题标题】：Store Each Numeric Value in an Array to a Variable in VBA in PowerPoint将数组中的每个数值存储到 PowerPoint 中的 VBA 中的变量
【发布时间】：2017-07-31 04:04:11
【问题描述】：

我有一个数组：

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

这会查看存储在用户表单中的复选框的标记属性。基本上，我可以从中获取存储在标签属性中的所有选中复选框的文本。（这些只是从 1 到 16 的数字。）

我需要对这些数字做的是将每个数字存储到一个变量中。一次只能选中 3 个三个复选框，所以我会有这些变量：var1、var2、var3。最小的数字存储为 var1，最大的数字存储在 var3，中间的数字存储在 var2。

我认为必须有一个简单的解决方案，但我一直在绞尽脑汁，没有运气。我是编程的初学者，所以这可能与它有很大关系:) 谢谢！

【问题讨论】：

标签： arrays vba powerpoint

【解决方案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

【讨论】：

正是我需要的。谢谢！！