Vba clearcontents: bir hücrenin içeriği nasıl temizlenir?

Anahtar noktaları

• Bir hücrenin içeriğini temizlemek için ClearContents yöntemini kullanmanız gerekir.
• Bunu tek bir hücre, bir aralık veya çalışma sayfasının tamamı için kullanabilirsiniz.

ClearContents yöntemi

VBA’da, bir hücredeki, bir hücre aralığındaki ve çalışma sayfasının tamamındaki değerleri ve formülleri temizlemek için kullanabileceğiniz ClearContents adı verilen bir yöntem vardır.

 Expression.ClearContents

Bu yöntemi kullanmak için önce ifadeyi içeriği temizlemek istediğiniz yere ayarlamanız, ardından “.ClearContents” yazmanız gerekir.

Tek bir hücrenin içeriğini temizleme

A1 hücresindeki değerleri temizlemek istediğinizi varsayalım. Öncelikle range nesnesini ve ardından ClearContents yöntemini kullanarak A1 hücresini tanımlamanız gerekir.

Yani kod şöyle olurdu:

 Sub ClearContentExamples() Range("A1").ClearContents End Sub

Bir hücreyi tanımlamak için hücreler özelliğini de kullanabilirsiniz; kod şöyle olur:

 Sub ClearContentExamples() Cells(1, 1).ClearContents End Sub

Bir parçanın içeriğini temizleme

Benzer şekilde bir aralık tanımlayabilir ve ardından bu aralıktaki değerleri ve formülleri temizlemek için ClearContent yöntemini kullanabilirsiniz. Diyelim ki A1:A10 aralığındaki değerleri temizlemek istiyorsunuz, bu durumda kod aşağıdaki gibi olacaktır.

 Sub ClearContentExamples() Range("A1:A10").ClearContents End Sub

Tüm e-tablonun içeriğini temizleme

Bir çalışma sayfasının tamamının içeriğini temizlemek için aşağıdaki kodu kullanabilirsiniz:

 Sub ClearContentExamples() Cells.ClearContents End Sub

Ve belirli bir çalışma sayfasından temizlemek için:

 Worksheets("Sheet1").Cells.ClearContents

Seçim içeriğini temizle

Seçilen hücrelerin içeriğini temizleyebilecek dinamik kod yazmak istiyorsanız aşağıdaki kodu kullanabilirsiniz.

 Sub ClearContentExamples() Selection.ClearContents End Sub

Diğer yöntemler

Kullanabileceğiniz diğer yöntemlerden bazıları şunlardır:

 Sub ClearContentExamples() Range(“A1”).Clear 'Clears Everything Range(“A1”).ClearComments 'Clear Comments Range(“A1”).ClearFormats 'Clears Formatting Range(“A1”).ClearHyperlinks 'Clear Hyperlinks Range(“A1”).ClearNotes 'Clear Notes Range(“A1”).ClearOutline 'Clears Outline End Sub