Bu yazıda, Microsoft Excel'de VBA kullanarak bir aralıktaki hücrelerdeki formülü değerlere nasıl değiştireceğimizi öğreneceğiz.
Bu örnek için ham veriler satış verilerinden oluşur. Satış verileri, farklı şehirlerdeki çalışanlar tarafından satılan ürün sayısına ilişkin bilgileri içerir. Son satır ve sütun, belirli bir şehirde belirli bir çalışan tarafından satılan toplam ürün sayısını bulmak için toplam formülü içerir.
Aktif sayfadaki tüm formülleri değerlere dönüştürmek istiyoruz. Tüm formülleri değerlere dönüştürmek için “ChangingFormulasToValue” makrosu oluşturduk. Bu makro, “Formülleri değerlere dönüştür” düğmesine tıklanarak çalıştırılabilir.
Anlık görüntüde, H18 hücresindeki formülün değere dönüştürüldüğü görülebilir.
Kod açıklaması
SourceRng = Aralık("A1", Aralık("A1").SpecialCells(xlCellTypeLastCell)) olarak ayarlayın
Yukarıdaki kod, A1 hücresinden başlayarak çalışma kitabındaki son hücreye kadar olan tüm hücreleri aralık olarak atamak için kullanılır.
SourceRng.Value = SourceRng.Value
Yukarıdaki kod, formülü atlayarak hücre değerini atamak için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub ChangingFormulasToValue() 'Değişkenleri Dim SourceRng Aralık Olarak Bildirme 'Etkin sayfadaki tüm hücreleri aralık olarak belirtin Set SourceRng = Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)) 'Yalnızca SourceRng.Value hücresinin hücre atlama formülü = SourceRng.Value End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın