Heim > Artikel > Software-Tutorial > Excel-Makrocode ist nicht schwierig. Experten heben bitte die Hand
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!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
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!