Keine max(x,y) - Funktion in Access

Aufruf von Excel VBA-Funktionen von MS-Access-VBA

Wenn Sie fügen Sie einen Verweis zu Excel ( Tools → References → Microsoft Excel x.xx Object Library ), dann können Sie WorksheetFunction zu nennen, die meisten Excel-Arbeitsblattfunktionen, einschließlich MAX (das kann auch auf arrays).

Beispiele:

MsgBox WorksheetFunction.Max(42, 1999, 888)

oder,

Dim arr(1 To 3) As Long
arr(1) = 42
arr(2) = 1999
arr(3) = 888
MsgBox WorksheetFunction.Max(arr)

Dem ersten Aufruf dauert eine Sekunde, um zu reagieren (eigentlich 1.1 sec für mich), aber nachfolgende Aufrufe sind viel mehr angemessen (<0.002 sec, jeweils für mich).

Bezogen auf Excel als Objekt

Wenn Sie eine Menge von Excel-Funktionen in Ihre Verfahren, Sie kann in der Lage sein, zur weiteren Verbesserung der Leistung durch Verwendung einer Application Objekt zu verweisen, die direkt in Excel.

Beispielsweise diese Prozedur durchläuft eine Reihe von Datensätzen, die wiederholt mit Excel MAX auf ein Byte-Array zu bestimmen, die "höchste" ASCII-Zeichen eines jeden Datensatzes.

Option Compare Text
Option Explicit
'requires reference to "Microsoft Excel x.xx Object Library"
Public excel As New excel.Application 

Sub demo_ListMaxChars()
    'list the character with the highest ASCII code for each of the first 100 records
    Dim rs As Recordset, mx
    Set rs = CurrentDb.OpenRecordset("select myField from tblMyTable")
    With rs
        .MoveFirst
            Do
                mx = maxChar(!myField)
                Debug.Print !myField, mx & "(" & ChrW(mx) & ")"  '(Hit CTRL+G to view)
                .MoveNext
            Loop Until .EOF
        .Close
    End With
    Set rs = Nothing     'always clean up your objects when finished with them!
    Set excel = Nothing  
End Sub

Function maxChar(st As String)
    Dim b() As Byte                             'declare Byte Array
    ReDim b(1 To Len(st))                       'resize Byte Array
    b = StrConv(st, vbFromUnicode)              'convert String to Bytes
    maxChar = excel.WorksheetFunction.Max(b)    'find maximum Byte (with Excel function)
End Function

Habe ich bekannt, um zu erstellen ein kleines projMax () - Funktion, nur um mit diesen umzugehen. Nicht, dass VBA wird wohl noch verbessert werden, aber nur, falls Sie jemals einen richtigen Max und Min) - Funktion, es wird nicht in Konflikt mit meinen Funktionen. BTW, das original-Plakat suggeriert tun IIF... Das funktioniert, aber in meiner Funktion, die ich in der Regel werfen ein paar Nz()'s zu verhindern, dass eine null vom ruinieren der Funktion.

Ich mochte DGM Verwendung der IIF-Anweisung und David die Verwendung der For/Next-Schleife, also bin ich, kombinieren Sie zusammen.

Da VBA in access nicht über eine strenge Typ-Prüfung, die ich verwenden werde, varients zu bewahren, alle numerische Werte, integer und dezimal, und geben den Wert zurück.

Großes Lob an HansUP für den Fang von mein-parameter-überprüfung 🙂

Kommentare zu code mehr freundlicher.

Option Compare Database
Option Base 0
Option Explicit

Function f_var_Min(ParamArray NumericItems()) As Variant
If UBound(NumericItems) = -1 Then Exit Function ' No parameters
Dim vVal As Variant, vNumeric As Variant
vVal = NumericItems(0)
For Each vNumeric In NumericItems
    vVal = IIf(vNumeric < vVal, vNumeric, vVal) ' Keep smaller of 2 values
Next
f_var_Min = vVal ' Return final value
End Function

Function f_var_Max(ParamArray NumericItems()) As Variant
If UBound(NumericItems) = -1 Then Exit Function ' No parameters
Dim vVal As Variant, vNumeric As Variant
vVal = NumericItems(0)
For Each vNumeric In NumericItems
    vVal = IIf(vNumeric < vVal, vVal, vNumeric) ' Keep larger of 2 values
Next
f_var_Max = vVal ' Return final value
End Function

Der einzige Unterschied zwischen den 2 Funktionen ist die Reihenfolge der vVal und vNumeric in der IIF-Anweisung.
Die for each-Klausel verwendet interne VBA-Logik zu behandeln, die Schleife und überprüfung von array-Grenzen, während "Base-0" beginnt der array-index bei 0.