IFS VBA

Möchtest Du mit der IFS VBA Funktion/Formel umzugehen wissen, bzw. verstehen was Diese überhaupt ist?

Dann heiße ich Dich in meinem heutigen Beitrag zur Visual Basic for Applications Kategorie herzlich willkommen.

Vielleicht steht Dir anschließend auch noch der Sinn nach anderweitigen VBA relevanten Beiträgen: VBA For Schleife, InStr, Range.

Achtung! Die IFS Funktion ist nur im Excel-Kontext als Formel vorhanden! Die dazu benötigte Excel Version findet man auf Windows & Mac, wenn man mind. Office 2019, oder ein Microsoft 365 Abonnement hat.

Awendungsfälle

Wer kennt es nicht? Man möchte durch kurze geschickte Abfragen den Ablauf des Programmes bestimmen und leiten.

Vielleicht sind Dir auch schon derartige Konstroll– , bzw. Verzweigungs-Strukturen wie das „If-Then-Else“- & das „Select-Case“ bekannt.

Das gut bekannte „If-Then-Else„-Konstrukt wird eher für die Abarbeitung, bzw. Steuerung von verschiedenen Ausgangspunkten verwendet.

Ich kann prüfen, ob die Performance einer Aktie gut war, jedoch dennoch die Dividende gekürzt wurde.

Bei dem „Select-Case„-Konstrukt hingegen, prüft man für gewöhnlich einen Ausgangspunkt – z. B. auch Bereiche dessen – und handelt je nach Ergebnis.

Bleiben wir bei unserem kleinen Aktien-Beispiel und verfahren je nach Dividendenrendite anders:

Dim dividendYieldPercentage As Integer = 9
Dim message As String = ""
Select Case
    Case 1 To 2
        message = "Dividend yield is okay!"
    Case 3 To 4
        message = "Woah! Nice yield!"
    Case 5 To 6
        message = "Hmm, nice but maybe too much!?"
    Case Else
        message = "Woah, this is too much to be good!"
End Case

In der Kürze..

Häufig sagt man, dass in der Kürze die bekannte Würze liegt, man möchte es also ab und zu gerne kurz und schmerzlos haben.

Wenn man jedoch die Länge des jeweiligen Konstruktes in Augenschein nimmt, hat man ein anderes Gefühl, eher lang und wiederholend.

Im Falle einer relativ simplen „If-Anweisung“ kann man den Ausdruck natürlich auch optional auf eine Zeile reduzieren.

Je komplexer die eben erwähnte „If-Anweisung“ allerdings wird, desto unlesbarer und unmöglich wird die Anweisung.

Dim performance As Integer = 100
If performance <= 20 Then MsgBox("Yay")

Nehmen wir allerdings das Beispiel von oben, wäre es unlesbar und teilweise auch nicht möglich, daher würde ich nur in seltenen Fällen zur Verkürzung raten.

IFS VBA Erklärung

Mit der IFS-Funktion haben wir eine weitere Kontrollstruktur, um den Ablauf des „Programmes“ zu gestalten.

Die IFS VBA (Excel) Formel wird dabei zunächst analog zum „Einzeiligen If“ formuliert, mit einem kleinen Unterschied.

Statt weniger Ausdrücke wie im If-Beispiel, können wir nun mehrere Ausdrücke wie durch Zauberhand kombinieren.

IFS VBA Syntax – Schreibweise

Schauen wir uns zum obigen Vergleich einmal die Struktur, bzw. die Syntax der IFS-Funktion an:

=IFS(<condition 1>, <value 1>, <condition 2>, ....)

Dabei stellen wir fest, dass wir innerhalb der Klammern – also durch Angabe von Parametern – verschiedene Paare an Konditionen & Werten angeben können.

Laut offizieller Dokumentation der IFS VBA Funktion von Microsoft, können wir bis zu 127 verschiedene Bedingungen prüfen und auswerten.

Natürlich sollte man das nach Möglichkeit vermeiden, wer möchte schon eine gefühlt 40000 Zeichen lange Zeile lesen..

Neben der schier endlos langen Zeile, hat man natürlich noch ein Problem mit den einzelnen Reihenfolgen, wo man sich dann leicht irren kann.

Beispiel – Excel Zelle anhand IFS Formel

Um nun beispielsweise den Wert einer Zelle im Excel-Sheet zu setzen, könnte man analog zu oben folgendes Beispiel verwenden.

Wir ziehen uns die Dividendenrendite dafür nun aus einer Zelle namens „A2“ und setzen den Wert der Zelle „A3“ dann auf das Ergebnis.

=IFS(A2<3, "Yield OK!", A2<5, "Nice yield!", A2<7, "Too much!")

Wenn im Beispiel der Wert in der Zelle „A2“ z. B. unter 3 liegt, dann gibt die Formel den Wert „Yield OK!“ zurück.

Bei einem Wert unter 5 dann „Nice yield!“ und und und..

Funktioniert übrigens auch bei Google Sheets

Die IFS-Formel gibt es übrigens auch für die bekannte Cloud-Tabellen-Plattform Google Sheets.

Der einzige simple Unterschied ist, dass man dort statt Kommas (,) dann Semikolons (;) verwenden muss.

Aber ich wollte IFS für VBA :(!?

Kein Problem! Leider wird man wie oben gesehen bei den Begriffen „IFS VBA“ größtenteils nur im Bereich der Tabellen – also Microsoft Excel & Google Sheets – fündig.

Es gibt allerdings auch Codes wie Dieser hier (vom Stackoverflow-Nutzer „jsheeran“), Welcher eine ähnliche Implementierung im Bereich VBA darstellt:

Public Function UdfIfs(ParamArray args() As Variant) As Variant
  Dim i As Integer
  i = 0 ' or 1 if you're not using zero-based indexing
  Do Until CBool(args(i)) Or (i >= UBound(args))
    i = i + 2
  Loop
  If i < UBound(args) Then
    UdfIfs = args(i + 1)
  End If
End Function

Der Beitrag IFS VBA erschien zuerst auf Robert Skibbe.

VBScript If Else

Du möchtest mit VBScript If Else –Anweisungen Entscheidungen, bzw. Verzweigungen in deinem Code realisieren?

Kein Problem, lerne in diesem Beitrag wie Du das „If Then Else„-Konstrukt richtig anwendest.

Vielleicht interessieren Dich auch andere Beiträge zu einem späteren Zeitpunkt: VBScript Array, MsgBox, InStr.

Hintergrund – VBScript If Else

Entscheidungen – ein grundlegender Baustein allen Lebens, mal Gute, mal Schlechte, manchmal instinktiv und manchmal rational.

Sie bestimmen unseren Alltag als Menschen, als Individuen und ziehen Folgeentscheidungen nach sich.

So ist es auch in der Welt der Programmierung, denn auch dort müssen ständig Entscheidungen getroffen werden.

Verzweigungen

Entscheidungen werden in der Programmierung häufig als Verzweigungen, oder auch als Selektion bezeichnet.

Denn anhand gewisser von uns festgelegter Kriterien, kann der Programm-Code sich in verschiedene Wege unterteilen und Folge-Code ausgeführt werden.

Die If-Else Verzweigung unterscheidet sich z. B. von der bekannten Mehrfachselektion „Select Case“ (in anderen Sprachen auch Switch genannt).

Simple Verzweigung – VBScript If Else

Bei einer eher simpleren Verzweigung haben wir einen, oder mehrere Ausgangspunkte verschiedener Abfragemöglichkeiten.

Ich kann zum Beispiel abfragen, ob gerade die Sonne scheint, ob dabei Wolken vorbeiziehen und ob es regnet.

Eventuell kann ich auf eine Kombination dieser Fälle auch noch anders reagieren, wenn ein weiterer Punkt wie eine Bewässerungsautomatik hinzukommt.

Wie wir sehen, sind das alles eventuell völlig voneinander unabhängige Beispiele, Welche wir kombinieren und abfragen können.

Mehrfachselektion

Bei der Mehrfachselektion sieht es anders aus, dort ist eigentlich immer die Rede von einem einzelnen Ausgangspunkt.

Das heißt, wir überprüfen einen Wert und schauen welcher einzelne Fall dazu passt, mit dem wir dann passend reagieren.

Einige Sprachen bieten hierbei auch die Möglichkeit gewisse „Ranges“ abzuarbeiten, statt nur einzelne Werte zu erlauben.

So könnte man ein Symbol anhand der Lautstärke des PCs so gestalten, dass es sich der Lautstärke in gewissen Bereichen anpasst, oder wenn es die Bereiche überschreitet.

Die Mehrfachselektion werden wir zu einem späteren Zeitpunkt, also vermutlich in einem separaten Beitrag bearbeiten.

Eine Abfrage – VBScript If Else

An dieser Stelle nutze ich die Gelegenheit, dir ein kurzes und simples Beispiel einer VBScript If Else Abfrage zu zeigen:

Dim firstName
firstName = "Robert"

If firstName = "John" Then
    MsgBox("Oh, your name is John?")
End If

If firstName = "Robert" Then
    MsgBox("Oh, maybe you are RobbelRoot?")
End If

Hier legen wir eine Variable namens „firstName“ fest, Welche wir anschließend mit dem Wert „Robert“ versehen.

Dann starten wir eine erste Abfrage, in der wir prüfen, ob der Name „John“ in der Variable steht.

Da John nicht in der Variable steht, wird die erste MsgBox nicht ausgegeben.

Die zweite Abfrage wird eine MsgBox ausgeben, da der gesuchte Name „Robert“ in der Variable steht.

Du kannst den Namen testweise gerne einmal auf z. B. „Bob“ ändern, dann würde nichts ausgegeben werden.

Oder verwende stattdessen doch einmal „John„, um die erste Meldung zu sehen.

Der Else-Part – VBScript If Else

Kommen wir nun zum Teil, wo wir das erste Mal das „Else„-Schlüsselwort verwenden.

Dim age
age = 16
If age >= 18 Then
    MsgBox("Ok, old enough!")
Else
    MsgBox("Sorry, you're too young :(!")
End If

Du siehst hier eine kleine Altersprüfung, wo wir eine Variable namens „age“ deklarieren.

Danach weisen wir dem „age“ die Zahl 16 zu und führen anschließend eine kleine Überprüfung durch.

Wenn das Alter größer gleich 18, die Person also volljährig ist, geben wir eine kleine Erfolgsmeldung aus.

In jedem anderen Fall allerdings, bekommt die Person eine Meldung, dass Sie noch zu jung ist.

Visuelle Darstellung

Hier siehst Du die visuelle Darstellung analog zu einem Programmablaufplan:

Dort sehen wir den einen Ausgangspunkt, wo sich entschieden wird, ob die Person nun volljährig ist (Weg nach unten), oder nicht (Weg nach rechts).

Andernfalls wenn? ElseIf

Nun kommen wir zu dem letzten kleinen Part, wo ich mir ein Szenario überlegt habe, dass die Person einen „Muttizettel“ hat.

Dadurch würde Sie also eine explizite Erlaubnis ihrer Eltern bekommen und mit dem Alter 16 und 17 trotzdem hineinkommen.

Mit ElseIf kann man beliebig viele weitere Abfragen in die Verzweigung einbauen:

Dim age
age = 16
Dim hasMumPaper
hasMumPaper = True
If age >= 18 Then
    MsgBox("Ok, old enough!")
ElseIf age >= 16 And age <= 17 And hasMumPaper Then
    MsgBox("Ok, you're too young, but your mum allowed, nice :)!")
Else
    MsgBox("Sorry, you're too young :(!")
End If

Visuelle Darstellung

Das Beispiel mit dem Muttizettel siehst Du hier als visuelle Darstellung:

Der Beitrag VBScript If Else erschien zuerst auf Robert Skibbe.

VB.NET AndAlso

Du möchtest mehr über den VB.NET AndAlso Operator lernen und verstehen wie Er funktioniert?

In diesem Beitrag zeige ich Dir einige Bespiele des VB.NET AndAlso Operators und erkläre Dir die Vorteile wie z. B. die Performance bezogenen Aspekte.

Vielleicht interessieren Dich z. B. auch noch folgende Beiträge: Application Path, PDF Öffnen, oder Button Click auslösen.

Vorarbeit – Wetter-Sensor

Um das VB.NET AndAlso Beispiel klarer zu gestalten, leisten wir ein wenig Vorarbeit, indem wir eine kleine WetterSensor-Klasse bauen.

Keine Sorge, dabei wir es sich um relativ stupide Daten ohne jegliche Anbindung einer API handeln.

Die Sensor-Klasse dient letztendlich nur der einfacheren Visualisierung und dem Verständnis hinter den Kulissen.

Achtung – Textbox-Referenz

Ich verwende hier beabsichtigt eine Referenz zur Log-Textbox, normalerweise sollte man dies nicht tun.

Mein Ziel ist es aber, das Beispiel so einfach wie möglich zu halten und Dir irgendwelche Handler zu ersparen.

Die Sensor-Klasse soll also beabsichtigt direkt in die Textbox loggen und somit eine direkte Abhängigkeit zu Ihr besitzen.

WeatherSensor-Klasse

An diesem Punkt stelle ich kurz die WeatherSensor–Klasse vor:

Public Class WeatherSensor

    Public Property TbLog As TextBox

    Sub New(tbLog As TextBox)
        Me.TbLog = tbLog
    End Sub

    Public Async Function IsSunny() As Task(Of Boolean)
        Log($"{NameOf(IsSunny)}()")
        Await ConnectToSensor()
        Await DisconnectFromSensor()
        Return False
    End Function

    Public Async Function IsRaining() As Task(Of Boolean)
        Log($"{NameOf(IsRaining)}()")
        Await ConnectToSensor()
        Await DisconnectFromSensor()
        Return True
    End Function

    Private Async Function ConnectToSensor() As Task
        Log($"{NameOf(ConnectToSensor)}()")
        Await Task.Delay(1000)
        Log("Connected to sensor")
        Log("------")
    End Function

    Private Async Function DisconnectFromSensor() As Task
        Log($"{NameOf(DisconnectFromSensor)}()")
        Await Task.Delay(1000)
        Log("Disconnected from sensor")
        Log("------")
    End Function

    Private Sub Log(txt As String)
        TbLog.AppendText($"[{Now:HH:mm:ss}] {txt}{Environment.NewLine}")
    End Sub

End Class

Eigenschaften

TbLog

Hier speichern wir die Referenz, um direkt aus der Klasse loggen zu können (bitte Hinweise beachten).

Konstruktoren

new(TextBox)

Der erste und einzige Konstruktor der Klasse benötigt die Referenz zur Log-Textbox.

Methoden

IsSunny

Eine Funktion um festzustellen, ob es aktuell sonnig ist.

Im Hintergrund müssen wir uns natürlich – simuliert – zum Sensor verbinden, etc.

IsRaining

Mit dieser Funktion stellen wir fest, ob es aktuell regnet (die Intensität spielt hier keine Rolle).

Auch hier muss im Hintergrund natürlich eine „Verbindung hergestellt“ werden.

ConnectToSensor

Simuliert eine Verbindung zum Sensor aufzubauen.

DisconnectFromSensor

Tut so, als ob die Instanz sich vom Sensor trennen würde.

Log(String)

Eine Hilfsfunktion um Daten direkt in die Textbox zu loggen (bitte auch hier Hinweise beachten!).

Grafische Oberfläche

Für unser „VB.NET AndAlso„-Beispiel kannst Du Dir am besten die folgende, oder eine ähnliche Oberfläche zusammenklicken:

VB.NET And – der linke Button

Zuerst einmal schauen wir uns an, wie man das normale „And„, also den normalen And-Operator verwendet.

Wie schon angepriesen verwenden wir dafür die erstellte WetterSensor-Klasse, um eine sinnvoll gestützte Basis zu haben.

Doppelklicke den linken Button und füge den folgenden Code ein (vergiss nicht die Sub als Async zu deklarieren):

    Private Async Sub btnCheckWeatherByAnd_Click(sender As Object, e As EventArgs) Handles btnCheckWeatherByAnd.Click
        tbLog.Clear()
        Dim isNiceWeather = Await WeatherSensor.IsSunny() And Await WeatherSensor.IsRaining()
        ' do something
    End Sub

Im ersten Schritt löschen wir den aktuellen Inhalt des Logs, damit wir bei jedem Durchgang einen sauberen Start haben.

Dann legen wir eine Variable fest, worin wir das boolesche Ergebnis des einfachen „And“-Operators speichern.

Letztendlich ist für uns hier nur das Ergebnis im Log relevant, um zu überprüfen, was, wie und wann passiert ist.

Wir können im Log beobachten, dass beide Funktionen (IsSunny und IsRaining) unabhängig vom ersten Ergebnis aufgerufen werden.

Bei einer „Verundung“ müssen alle Bestandteile True ergeben, damit letztendlich das Ergebnis den Wert True erhält.

Trotz des „False„-Wertes, also trotz des Ausschlusses, dass der erste Wert überhaupt True sein kann, wird die zweite Funktion „IsRaining“ aufgerufen!

Das dies natürlich absolut sinnlos ist, liegt auf der Hand, doch wie verhindern wir das?

Nicht nur die sinnlosen Verbindungsversuche der Klasse zum Sensor stoßen hier übel auf.

Ebenso stören auch die dabei verschwendeten Ressourcen und die sinnlose Warterei.

VB.NET AndAlso – der rechte Button

Schauen wir uns als nächstes die Vorgehensweise im rechten Button an:

    Private Async Sub btnCheckWeatherByAndAlso_Click(sender As Object, e As EventArgs) Handles btnCheckWeatherByAndAlso.Click
        tbLog.Clear()
        Dim isNiceWeather = Await WeatherSensor.IsSunny() AndAlso Await WeatherSensor.IsRaining()
    End Sub

Dir wird vermutlich schnell auffallen, dass der Code im Handler des zweiten Buttons nur ein anderes Wort enthält.

Statt des „And„-Operators verwenden wir hier den „AndAlso„-Operator und verändern somit die Verhaltensweise.

Werfen wir nun das zweite Mal einen Blick auf das Log:

Nun können wir mit glücklicher Miene feststellen, dass nur die „IsSunny„-Funktion aufgerufen wird und die „IsRaining“-Funktion außen vor bleibt.

Somit finden keine unnötigen Verbindungsversuche und auch keine Verschwendung von Ressourcen statt, SUPER!

Kompletter Code – VB.NET AndAlso

Public Class Form1

    Private ReadOnly WeatherSensor As WeatherSensor

    Sub New()
        InitializeComponent()
        WeatherSensor = New WeatherSensor(tbLog)
    End Sub

    Private Sub btnClearLog_Click(sender As Object, e As EventArgs) Handles btnClearLog.Click
        tbLog.Clear()
    End Sub

    Private Async Sub btnCheckWeatherByAnd_Click(sender As Object, e As EventArgs) Handles btnCheckWeatherByAnd.Click
        tbLog.Clear()
        Dim isNiceWeather = Await WeatherSensor.IsSunny() And Await WeatherSensor.IsRaining()
    End Sub

    Private Async Sub btnCheckWeatherByAndAlso_Click(sender As Object, e As EventArgs) Handles btnCheckWeatherByAndAlso.Click
        tbLog.Clear()
        Dim isNiceWeather = Await WeatherSensor.IsSunny() AndAlso Await WeatherSensor.IsRaining()
    End Sub

End Class

Public Class WeatherSensor

    Public Property TbLog As TextBox

    Sub New(tbLog As TextBox)
        Me.TbLog = tbLog
    End Sub

    Public Async Function IsSunny() As Task(Of Boolean)
        Log($"{NameOf(IsSunny)}()")
        Await ConnectToSensor()
        Await DisconnectFromSensor()
        Return False
    End Function

    Public Async Function IsRaining() As Task(Of Boolean)
        Log($"{NameOf(IsRaining)}()")
        Await ConnectToSensor()
        Await DisconnectFromSensor()
        Return True
    End Function

    Private Async Function ConnectToSensor() As Task
        Log($"{NameOf(ConnectToSensor)}()")
        Await Task.Delay(1000)
        Log("Connected to sensor")
        Log("------")
    End Function

    Private Async Function DisconnectFromSensor() As Task
        Log($"{NameOf(DisconnectFromSensor)}()")
        Await Task.Delay(1000)
        Log("Disconnected from sensor")
        Log("------")
    End Function

    Private Sub Log(txt As String)
        TbLog.AppendText($"[{Now:HH:mm:ss}] {txt}{Environment.NewLine}")
    End Sub

End Class

Downloads

Der Beitrag VB.NET AndAlso erschien zuerst auf Robert Skibbe.

Auf YouTube ansehen Code Download

Der Beitrag Bilder vergleich mit If erschien zuerst auf Robert Skibbe.