Schreiben Sie eine einfache for-Schleife mit Excel VBA

Excel VBA ein einfaches für

Sub aktualisiert Hyperlinks aller Tabellen()

Um Spielern zu helfen, die das Level noch nicht bestanden haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. In diesem Rätsel müssen wir einige Variablen definieren, die uns bei der Arbeit helfen. Die erste ist eine Bereichsvariable namens c, die zum Speichern des Zellbereichs verwendet wird, den wir für den Betrieb benötigen. Dann gibt es eine String-Variable namens h, die zum Speichern der Schlüsselwörter verwendet wird, die wir finden müssen. Schließlich gibt es eine lange Ganzzahlvariable namens i, die zum Speichern von

verwendet wird

Für i=2 bis 1000

Um Spielern zu helfen, die das Level noch nicht bestanden haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. Hier ist ein Beispielcode für einen wichtigen Schritt: „ set c = Cells(i, 1) 'A2:A1000 „ Diese Codezeile wird verwendet, um einen Zellbereich von A2 bis A1000 anzugeben. Beim Lösen von Rätseln können wir diesen Bereich nutzen, um bestimmte Zelldaten zu erhalten und zu manipulieren. Hoffe das

Wenn c.Wert ＂＂ Dann

h = ＂'2'!A＂ & (i-1)

Um den Spielern zu helfen, die das Level noch nicht geschafft haben, werfen wir einen genaueren Blick auf die spezifischen Methoden zur Lösung des Rätsels. Wenn Sie im Spiel auf Verwirrung stoßen, können Sie die folgenden Schritte ausprobieren: Überprüfen Sie zunächst, ob ein Hyperlink vorhanden ist. Sie können dies bestätigen, indem Sie beurteilen, ob c.Hyperlinks.Count größer als 0 ist.

c.Hyperlinks(1).SubAddress = h

Sonst

c.Hyperlinks.Add Anchor:=c, Address:=＂＂, SubAddress:=h, TextToDisplay:=c.Value

Ende wenn

Ende wenn

Nächstes c

End Sub

EXCEL VBA-Schreibcode

Funktion inputf() als String

a = Eingabefeld（＂Bitte eingeben:＂）

wenn ein＂＂ dann

inputf = a

Bereich(＂B3＂) = a

sonst

Exit-Funktion

Ende, wenn

Funktion beenden

'Rufen Sie die obige Funktion während des Tastendrucks auf

Funktion mysum(a als Ganzzahl,b als Ganzzahl) als Ganzzahl

dim c als Ganzzahl

i=a

do while i

c=c+i

i=i+1

Schleife

mysum = c

Funktion beenden

'Execute msgbox(mysum(1,5))

in anderen Funktionen

EXCEL VBA-Code

Fügen Sie den folgenden Code zum Worksheet_Change-Ereignis hinzu.

Application.EnableEvents = False

Wenn Target.Address = „$A$1“ oder Target.Address = „$C$3“ oder Target.Address = „$D$3“ oder Target.Address = „$F$7“ oder Target.Address = „$G$2 „Dann

If IsNumeric(Target.Value2) Then

Target.Value = Target.Value2 / 3

Ende wenn

Ende wenn

Application.EnableEvents = True

Das obige ist der detaillierte Inhalt vonSchreiben Sie eine einfache for-Schleife mit Excel VBA. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!