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

Question

我有一个数组：

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

这会查看存储在用户表单中的复选框的 Tag 属性。基本上，从这里我可以获取存储在所有选中复选框的 Tag 属性中的文本。（这些只是从 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

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

Store Each Numeric Value in an Array to a Variable in VBA in PowerPoint

arrays

powerpoint

vba