Heim  >  Artikel  >  Software-Tutorial  >  Excel-Makrocode ist nicht schwierig. Experten heben bitte die Hand

Excel-Makrocode ist nicht schwierig. Experten heben bitte die Hand

WBOY
WBOYnach vorne
2024-01-17 10:06:21726Durchsuche

Excel-Makrocode ist nicht schwierig. Experten heben bitte die Hand

Für Experten ist es nicht schwer, einen Excel-Makrocode zu programmieren

Privater Untertest()

Dim result As String 'Eine Zufallszahl mit zehn Zahlen von 0 bis 9

Dim randomValue As Integer

RandomData(10) als Ganzzahl dimmen

Flag als booleschen Wert dimmen

Für i = 0 bis 9

Flag = True

While Flag = True

Randomisieren

randomValue = Int((9 - 0 + 1) * Rnd + 0)

Wenn i = 0 oder search(randomValue, randomData, i) = False Then

result = result & CStr(randomValue)

randomData(i) = randomValue

Flag = Falsch

Ende wenn

Wend

Weiter

End Sub

Private Funktionssuche (ByVal-Schlüssel als Ganzzahl, ByRef-Daten() als Ganzzahl, ByVal-Länge als Ganzzahl) als Boolescher Wert

Wenn Länge = 0, dann

Suche = Wahr

Exit-Funktion

Ende wenn

Suche = Falsch

Für i = 0 bis Länge - 1

Wenn Daten(i) = Schlüssel, dann

Suche = Wahr

Exit-Funktion

Ende wenn

Weiter

Endfunktion

Dies ist erledigt, um Zufallszahlen zu generieren, wenn Sie auf die Schaltfläche klicken

Bitte helfen Sie mit einem Excel-Makrocode, danke!

Die Verwendung eines Wörterbuchobjekts ist viel schneller. Der Code lautet wie folgt: (Wenn Sie der Meinung sind, dass es nicht schnell genug ist, lesen Sie die gesamte Spalte A von Blatt3 in ein Array ein, um die Anzahl der häufigen Lesevorgänge des Arbeitsblatts zu reduzieren und die Geschwindigkeit erheblich zu erhöhen )

Sub-Pick-Duplikat()

Dim Sht2Dic, CongFuArr()

Dim N As Long

Rng2 als Bereich dimmen, Rng3 als Bereich

Set Sht2Dic = CreateObject("Scripting.Dictionary")

Für jeden Rng2 in Sheet2.Range("A1:A" & Sheet2.UsedRange.Rows.Count)

Sht2Dic(Rng2.Value) = Sht2Dic(Rng2.Value) + 1

Weiter

Für jeden Rng3 in Sheet3.Range("A1:A" & Sheet3.UsedRange.Rows.Count)

Wenn Sht2Dic.exists(Rng3.Value) dann

N = N + 1

ReDim Preserve CongFuArr(1 To N)

CongFuArr(N) = Rng3.Value

Ende wenn

Weiter

Sheet1.Columns("A") = ""

Sheet1.Range("A1").Resize(N, 1) = WorksheetFunction.Transpose(CongFuArr)

End Sub

So verwenden Sie Makros in einer Tabelle in Excel

Klicken Sie auf „Entwicklungstools – Makro aufzeichnen“, legen Sie einen aussagekräftigen Makronamen fest und legen Sie die Tastenkombination für die Verwendung des Makros fest. Bei Bedarf können Sie eine detaillierte Beschreibung des Makros eingeben und auf „OK“ klicken

Von nun an muss garantiert sein, dass jeder Schritt Ihres Vorgangs Ihren Anforderungen entspricht, da Excel mit der Aufzeichnung Ihrer Vorgangsschritte begonnen hat und Sie nun feststellen, dass sich die Position der Aufzeichnungsmakros in der Symbolleiste geändert hat, um die Aufzeichnung zu stoppen.

Folgen Sie dann dem Beispiel, wir wählen alle Tabellen aus, stellen die Schriftart auf Kursiv, stellen die Schriftgröße auf Größe 16 und die Hintergrundfarbe auf Türkis ein, wie im Bild gezeigt, ist jeder Schritt richtig eingestellt.

Nachdem die Schritte abgeschlossen sind, klicken Sie, um die Aufzeichnung zu stoppen, damit das Makro zum Festlegen des Tabellenformats in Stapeln aufgezeichnet wird. Wenn wir auf das Makro klicken, können wir feststellen, dass das gerade aufgezeichnete Makro gespeichert wurde.

Wenn wir das gleiche Format für andere Tabellen festlegen müssen, müssen wir dieses Makro nur aufrufen, wie in der Abbildung gezeigt, das Format vor dem Aufruf des Makros.

Wählen Sie die Tabelle aus, die Sie formatieren möchten, und klicken Sie dann auf „Makro“. Das Makro-Listenfeld wird angezeigt. Wählen Sie das von Ihnen aufgezeichnete Makro aus, klicken Sie auf „Ausführen“ und Sie werden feststellen, dass das Format der Tabelle dem von uns gewünschten Format entspricht.

Das obige ist der detaillierte Inhalt vonExcel-Makrocode ist nicht schwierig. Experten heben bitte die Hand. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen