Vahşi Yaşam

Hiç yabancı bir (ve karmaşık) Excel çalışma kitabı almaya çalıştınız mı? Hangi hücrelerin sabitleri içerdiğini ve hangi hücrelerin değerleri içerdiğini gösteren bir harita görmek faydalı olacaktır.

Etkin çalışma sayfasının bir haritasını oluşturan bir VBA yardımcı programı oluşturabilirsiniz. Harita, yeni bir çalışma sayfasında oluşturulur ve değerleri, metni ve formülleri hızla tanımlamanıza izin veren renk kodlu hücrelerden oluşur.

Aşağıda böyle bir haritanın bir örneğini görürsünüz. Metin içeren hücreler yeşildir, sayısal bir değer içerenler sarıdır ve formül içeren hücreler kırmızıdır. Böyle bir harita potansiyel hataları bulmanıza yardımcı olabilir. Örneğin, bir formül bloğundaki bir formül üzerine bir değer yazılırsa, bu hücre haritada gösterilir (örnekte Q11 hücresinde olduğu gibi).

QuickMap VBA kodu

Çalışma sayfası haritasını oluşturan VBA yordamı aşağıda listelenmiştir. Bu yardımcı programı kullanmak isterseniz, kodu kopyalayıp bir VBA modülüne yapıştırmanız yeterlidir. Ardından, bir çalışma sayfasını etkinleştirin ve QuickMap altyordamını yürütün.

Alt QuickMap () Dim FormülCells Varyant olarak Dim TextCells Varyant olarak Dim NumberCells Varsayıyormaz Dim Alanı Varsa Aralık Varsa TypeName (ActiveSheet) "Çalışma Sayfası" Then Exit Sub 'Hücre altkümeleri için nesne değişkenleri oluştur On Error Resume Next Set FormulaCells = Aralık “A1”). SpecialCells _ (xlFormulas, xlNumbers + xlTextValues ​​+ xlLogical) TextCells = Aralık ("A1") ayarlayın. ÖzelCells (xlConstants, xlTextValues) Set NumberCells = Aralık ("A1"). SpecialCells (xlConstants, xlNumbers) On Error GoTo 0 'Yeni bir sayfa ekleyin ve sayfaları biçimlendirin. Hücrelerle Ekle. ColumnWidth = 2. Yazı tipi. Boyut = 8. HorizontalAlignment = xlCenter Uygulamalı Bitir. ScreenUpdating = False 'Formül hücreleri, IsEmpty (FormulaCells) değilse, ardından FormulaCells'de Her Alan İçin Yapın. ActiveSheet'li Alanlar. Aralık (Alan Adı). Değer = "F". İç. ColorIndex = 3 Bitiş İle Sonraki Alan Bitir 'Metin hücrelerini IsEmpty değilse (TextCells) Sonra TextCells'te Her Alan İçin Yapar. ActiveSheet'li Alanlar. Aralık (Alan Adı). Değer = "T". İç. ColorIndex = 4 Sonraki Alan Sonu ile Bitir 'Sayı hücrelerinde her alan için IsEmpty (NumberCells) değilse sayısal hücreleri yapın. ActiveSheet'li Alanlar. Aralık (Alan Adı). Değer = "N". İç. ColorIndex = 6 Bitiş İle Sonraki Alan Bitir End Sub

Nasıl Çalışır

Prosedür ilk olarak aktif sayfanın bir çalışma sayfası olduğundan emin olmak için kontrol eder. Değilse, başka bir işlem yapılmadan hızlı bir çıkış var. Etkin sayfa, bir çalışma sayfası olduğunda, yordam, çeşitli hücre türlerini tanımlamak için SpecialCells yöntemini kullanarak üç nesne değişkeni oluşturur.SpecialCells yöntemi çok yararlıdır. Bununla tanışık değilseniz, Excel'in çevrimiçi yardım dosyasında kontrol edin. On Error Resume Next'in kullanımına dikkat edin. Hiçbir hücrenin niteliği yoksa - örneğin çalışma sayfasında formül yoksa, oluşan hatadan kaçınmak için budur.

Sonra, işlem yeni bir çalışma sayfası ekler, hücre genişliğini azaltır ve yatay hizalamayı merkeze ayarlar. Bu adım kozmetik. Sub, biraz daha hızlı olması için ekran güncellemelerini kapatır.

Sonraki üç kod bloğu hücreleri işlemektedir. Hücre nitelendirilmemişse, nesne değişkeni Boş olur, bunun için alt testler. Ardından, rutin Range nesnesindeki her Alan boyunca döngü yapar ve hücreleri biçimlendirir. Farklı biçimlendirme uygulamak için altyordamın bu bölümünü kolayca özelleştirebilirsiniz.

Bu yardımcı programın çok daha sofistike bir versiyonu için Power Utility Pak eklentisini kontrol edin.