Füllen Sie Daten automatisch mit EXCEL VBA aus

EXCEL VBA-Füllinhalt

Sub S()

a = [o2].Text

b = [o7].Text

na = Len(a)

nb = Len(b)

ReDim arr(1 To na)

ReDim brr(1 To nb)

Für i = 1 Zu na

arr(i) = Val(Mid(a, i, 1))

Weiter

Für i = 1 To nb

brr(i) = Val(Mid(b, i, 1))

Weiter

Für i = 1 bis 9

a = ＂＂

b = ＂＂

Für j = 1 Zu na

a = a & (arr(j) + i) Mod 10

Weiter

Für j = 1 Zu nb

b = b & (brr(j) + i) Mod 10

Weiter

[o2].Offset(0, i) = a

[o7].Offset(0, i) = b

Weiter

End Sub

Fragen zum VBA-Autofill

Der Code zum Suchen der letzten Zeile mit Daten in Spalte c lautet:

i=Cells(Rows.Count, 3).End(xlUp).Row

Selection.AutoFill Destination:=Range(＂D5:D＂ & i &＂＂)

Der vollständige Code lautet:

Sub jj()

Bereich(＂D5＂).Auswählen

ActiveCell.FormulaR1C1 = ＂=IF(RC[-2]=RC[-1],＂＂y＂＂,＂＂0＂＂)＂

i = Cells(Rows.Count, 3).End(xlUp).Row

Selection.AutoFill Destination:=Range(＂D5:D＂ & i & ＂＂)

End Sub

So verwenden Sie VBA-Code, um Zellen in einem Excel-Bereich von klein nach groß zu sortieren

Da die Screenshots unvollständig sind, gehe ich davon aus, dass der Datenbereich A1:F9 und der Füllbereich H1:M9 ist

Der Code lautet wie folgt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim arr1(1 bis 54), arr2(1 bis 54)

Dimmen Sie x, y, z als Ganzzahl

Dim b, c

Eine As-Variante dimmen

z = 1

x = 1

y = 1

c = 1

Für x = 1 bis 9

Für y = 1 bis 6

arr1(z) = Zellen(x, y)

z = z + 1

Nächstes Jahr

Nächstes x

z = z - 1

Für z = 1 bis 54

a = arr1(z)

b = z

Für x = 1 bis 54

Wenn ein

a = arr1(x)

b = x

Ende wenn

Nächstes x

arr2(c) = a

c = c + 1

arr1(b) = 0

Nächstes z

c = c - 1

Für x = 1 bis 9

Für y = 8 bis 13

Zellen(x, y) = arr2(c)

c = c - 1

Nächstes Jahr

Nächstes x

End Sub

Laufergebnisse

Wenn Ihnen das hilft, klicken Sie bitte, um es zu akzeptieren. Vielen Dank^_^

Excel-VBA-Zellen füllen

Inhaber: Hallo, es gibt eine Voraussetzung für Ihre Frage:

Wenn Ihre Excel-Version Version 2003 ist, dann können Sie nur die vom System voreingestellten 56 Farben verwenden. Andere mit VBA-Code implementierte Füllfarben werden in diejenige konvertiert, die diesen 56 Farben am nächsten kommt.

Wenn Ihre Excel-Version 2007 und höher ist, gibt es fast keine Einschränkungen bei den Zellenfüllfarben. Sie können benutzerdefinierte Farbfüllungen vollständig über den Zellenfüllbefehl implementieren. Er unterstützt RGB- und HSL-Modi, ohne auf VBA zurückgreifen zu müssen.

Bei Verwendung von VBA lautet der Code wie folgt:

Sub test() 'Fülle Zelle A1 mit Rot, RGB (Rot, Grün, Blau). Die Werte für Rot, Grün und Blau reichen von 0 bis 255. Es können verschiedene Werte eingestellt werden, um unterschiedliche Farben zu erhalten. Range(＂A1＂).Interior.Color = RGB(255, 0, 0) 'Mit Rot füllen 'Wenn Sie die Füllfarbe entfernen möchten, verwenden Sie diesen Satz Range(＂A1＂).Interior.Pattern = xlnoeEnd Sub

Das obige ist der detaillierte Inhalt vonFüllen Sie Daten automatisch mit EXCEL VBA aus. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!