İçindekiler:
Video: Excel Dosyasını Kaydetme Seçenekleri - Makro VBA Eklenti AddIns Oluşturma ve Taşıma 2024
Excel'de, belirli bir hücreyi veya hücre aralığını her zaman kaydetmek istediğiniz kadar hassas olan veriler üzerinde çalışıyor olabilirsiniz değişti. Bu makro, değiştirildiğinde çalışma kitabını kaydetmek için zorlayan bir dizi hücreyi tanımlamanıza izin verir.
Gösterilen örnekte, C5: C16 aralığındaki hücrelerden herhangi birinde değişiklik yapıldığında çalışma kitabının kaydedilmesini istiyorsunuz.
Makro nasıl çalışır
Bu kodun sırrı Kesişme yöntemidir. Herhangi bir eski hücre değiştiğinde çalışma sayfasını kaydetmek istemediğiniz için, hedef hücreyi (değişen hücre) tetikleme aralığı olarak belirtilen aralıkla kesişip engellemediğini belirlemek için Kesişim yöntemini kullanırsınız (bu durumda C5: C16).
Intersect yöntemi iki şeyden birini döndürür: iki verilen aralıklar arasındaki kesişimi tanımlayan bir Range nesnesi veya hiçbir şey. Yani özünde, Nothing değerini kontrol etmek için Hedef hücreyi Intersect yöntemine atmanız gerekir. Bu noktada, çalışma kitabını kaydetmek isteyip istemediğinize karar verebilirsiniz.
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range) '1. Adım: Değiştirilen aralık kesişir mi? Kesişme Yoksa (Hedef, Aralık ("C5: C16")) Başka Bir Şey Yok 'Adım 2: Kesişim yoksa Çıkma Prosedürü' Adım 3: Kesişim noktası varsa çalışma kitabı Elite ActiveWorkbook'ı kaydedin. Kaydet 'Adım 4: If deyimini kapatın. End If End Sub
1. Adımda, hedef hücrenin (değiştirilen hücre) Intersect yöntemi tarafından belirtilen aralıkta olup olmadığını kontrol edin. Nothing değeri, hedef hücre belirtilen aralık dışında olduğu anlamına gelir.
Adım 2, hedef hücre ile belirtilen aralık arasında kesişim yoksa, makroyu durdurmaya ve prosedürden çıkmaya zorlar.
Bir kavşak varsa, 3. adım, önceki kitabın üzerine yazarak, etkin çalışma kitabının Save yöntemini harekete geçirir.
Adım 4'te, If ifadesini kapatmanız yeterlidir. Her-If-Then-Else kontrolünü her başlattığınızda, buna karşılık gelen bir İşlem Sonu ile kapatmanız gerekir.
Makro nasıl kullanılır
Bu makroyu uygulamak için, kopyalayıp Worksheet_Change olay kodu penceresine yapıştırmanız gerekir. Makronun buraya yerleştirilmesi, sayfaya herhangi bir değişiklik yaptığınızda çalıştırılmasını sağlar:
-
Alt + F11 tuşlarına basarak Visual Basic Düzenleyicisi'ni etkinleştirin.
-
Proje penceresinde, proje / çalışma kitabı adınızı bulun ve tüm sayfaları görmek için yanındaki artı işaretini tıklayın.
-
Kodu tetiklemek istediğiniz sayfayı tıklayın.
-
Olay açılır listesinden Değişim olayını seçin.
-
Aralığı adresini gereksinimlerinize uyacak şekilde değiştirerek yeni oluşturulan modüle kodu yazın veya yapıştırın.
Kodunuzu Çalışma Sayfası Değiştirme olayına girin.