Início / coding / Perguntas / 78367265
Accepted
Danny Coleiro
Asked: 2024-04-22 23:16:55 +0800 CST

Como encontrar um valor máximo em um dicionário no aplicativo Power Point?

  • 772

O código a seguir funciona corretamente no Excel .

Mas estou procurando uma solução em Power Point .

Como encontrar um valor máximo em um dicionário no aplicativo Power Point ?

    Sub Macro1()
    
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")
        
        For i = 1 To 10
            dict.Add Key:=i, Item:=i
        Next i
        
        For i = 0 To dict.Count - 1
           Debug.Print dict.Keys()(i), dict.Items()(i)
        Next i
        
        'The following two lines works properly in Excel. 
        'But I am looking for Power Point solution.
        Debug.Print Application.Max(dict.Items)
        Debug.Print WorksheetFunction.Max(dict.Items)
    
    End Sub
vba

4 respostas

  1. No Excel-VBA, WorksheetFunctioné uma forma de acessar funções que o Excel fornece (não o VBA). Não existe tal função no PowerPoint.

    Portanto, sua melhor aposta é percorrer todas as entradas do seu dicionário:

    Dim key As Variant, maxValueKey As Variant, maxValue As Variant
For Each key In dict.keys
    If IsEmpty(maxValue) Or dict(key) > maxValue Then
        maxValue = dict(key)
        maxValueKey = key
    End If
Next key
Debug.Print "The max value found = " & maxValue & " at key " & maxValueKey
    • 2
  2. Best Answer

    Isso funcionará no PowerPoint:

    Sub Macro1()
    
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")
        
        Dim i As Long
        For i = 1 To 10
            dict.Add Key:=i, Item:=i
        Next i
        
        Dim iMax As Long
        For i = 0 To dict.Count - 1
           Debug.Print dict.Keys()(i), dict.Items()(i)
           If dict.Items()(i) > iMax Then iMax = dict.Items()(i)
        Next i
        
        Debug.Print iMax
    End Sub

    Você deve verificar o valor máximo dentro de um loop.

    • 1
    • Obtenha o valor máximo com UDF
    Sub Macro1()
    
    Dim dict As Object, i As Long
    Set dict = CreateObject("Scripting.Dictionary")
    
    For i = 1 To 10
        dict.Add Key:=i, Item:=i
    Next i
    
    For i = 0 To dict.Count - 1
        Debug.Print dict.Keys()(i), dict.Items()(i)
    Next i
    
    Debug.Print GetMax(dict.Items())
    
End Sub

Function GetMax(arr) As Long
    Dim maxVal As Long, i As Long
    If IsArray(arr) Then
        maxVal = -1000000000#
        For i = LBound(arr) To UBound(arr)
            If maxVal < arr(i) Then maxVal = arr(i)
        Next
        GetMax = maxVal
    Else
        GetMax = arr
    End If
End Function
    • 1

  4. Defina uma referência para a biblioteca de objetos do Microsoft Excel 14.0/16.0 e depois disso todas as funções WorksheetFunction estarão disponíveis.

    • 1

relate perguntas