Ausführliche Erklärung, wie man Formeln in Excel in VBA umschreibt

So schreiben Sie Formeln in Excel in VBA um

Setzen Sie den Tabellennamen auf Blatt1, wobei Spalte A der Ländername und Spalte B die entsprechende Nummer ist (ändern Sie sie entsprechend der tatsächlichen Situation).

Um Spielern zu helfen, die das Level noch nicht bestanden haben, können wir die folgenden Makros verwenden, um das Rätsel zu lösen. Erstellen Sie einfach dieses Makro und führen Sie es aus, um Ihr Ziel zu erreichen.

Sub aaaa()

Ziel als Reichweite dimmen

Tu

i = i + 1

Um den Spielern zu helfen, die das Level noch nicht bestanden haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. Im Code verwenden wir „Sheet1.Range(„A“ & i).Text“, um den Textinhalt in Zelle A abzurufen. Diese Methode kann uns helfen, die benötigten Informationen zu erhalten und dann entsprechende Vorgänge auszuführen. Ich hoffe, dieser Tipp hilft euch allen!

Wählen Sie Fall aaa

Fall ＂China＂

Sheet1.Range(＂B＂ & i) = 2

Fall ＂USA＂

Sheet1.Range(＂B＂& i) = 1

Fall ＂Japan＂

Sheet1.Range(＂B＂ & i) = 0

Auswahl beenden

Loop While aaa ＂＂

End Sub

Excel-Formel in VBA-Code

Mit der logischen Beziehung Ihrer Formel stimmt etwas nicht

Bitte prüfen Sie, ob es das bedeutet

Untertest()

Dim i&, n, n1

Für i = 1 bis 5

Wenn Zellen(i, „D“) * Pi / 180 >= 0 Dann

Wenn Cos(Zellen(i, „B“) * Pi / 180 – Zellen(i, „I“) * Pi / 180) <

n = Wahr

Sonst

n = Falsch

Ende wenn

Wenn Cos(Zellen(i, „B“) * Pi / 180 – Zellen(i, „I“) * Pi / 180) >

n1 = Wahr

Sonst

n1 = Falsch

Ende wenn

Wenn n1 = wahr und n = wahr, dann ist k = ＂-1＂, sonst ist k = ＂1＂

Sonst

k = ＂1＂

Ende wenn

Zellen(i, „A“) = k

Als nächstes

End Sub

Das obige ist der detaillierte Inhalt vonAusführliche Erklärung, wie man Formeln in Excel in VBA umschreibt. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!