In diesem Beispiel wird die Schriftgröße der Zelle C5 in Sheet1 auf 14 Punkt festgelegt.
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
In diesem Beispiel wird die Formel in der ersten Zelle in Sheet1 gelöscht.
Worksheets("Sheet1").Cells(1).ClearContents
In diesem Beispiel wird die Schriftart für alle Zellen in Sheet1 auf Arial, 8 Punkt, festgelegt.
With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With
Das folgende Beispiel bearbeitet in einer Schleife die Zellen A1:J4 in Sheet1. Hat eine dieser Zellen einen Wert, der kleiner ist als 0,001, wird dieser Wert durch Null (0) ersetzt.
For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If .Value < .001 Then .Value = 0
End With
Next colIndex
Next rwIndex
In diesem Beispiel wird die Schrift der Zellen A1:C5 in Sheet1 auf kursiv gesetzt.
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
Dieses Beispiel durchsucht die Spalte "myRange", die Daten enthält. Wenn eine Zelle denselben Wert besitzt wie die darüber liegende Zelle, wird die Adresse der Zelle mit den doppelten Daten angezeigt.
Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n