VBA Kullanarak Excel Durum Çubuğunda Bir Mesaj Nasıl Görüntülenir

Anonim

Excel'deki durum çubuğu, kod izleyicisi olarak kullanılabilir. VBA kodunuz uzun olduğunda ve VBA'yı kullanarak birkaç görev yaptığınızda, ekranın titrediğini görmemek için genellikle ekran güncellemesini devre dışı bırakırsınız. Ancak bu nedenle, kodunuzda neler olup bittiğini bilemezsiniz.

Excel'de durum çubuğunun nerede olduğunu bilmiyorsanız, işte burada:

Kodun yürütülmesini engellemeden Excel'den bilgi almak için bir excel durum çubuğu kullanabilirsiniz. Marco'nuzun aşamalarını durum çubuğunda görüntüleyebilir veya ilerleme çubuğu olarak kullanabilirsiniz.

Excel'in Durum Çubuğunda mesajları görüntülemek için VBA Kodu

Application.StatusBar = "Mesaj"

StatusBar, metni girdi olarak alan Application nesnesinin bir özelliğidir.

Bu örnekte, sadece hangi fonksiyonun çalıştığını gösteriyorum…

Sub DisplayMessageOnStatusBar() Application.ScreenUpdating = False Application.StatusBar = "Birinci işlev çağrılıyor" ' function_1 Application.Wait'i çağırın (Now + TimeValue("00:00:2")) Application.StatusBar = "İkinci işlev çağrılıyor" 'Call function_2 Application.Wait (Now + TimeValue("00:00:2")) Application.StatusBar = "Üç işlevi çağrılıyor" 'Call function_3 Application.Wait (Now + TimeValue("00:00:2")) Application.StatusBar = "" Application.ScreenUpdating = True End Sub 

Bu örnekte, ekran güncellemesi başlangıçta False olarak ayarlanmıştır.

Şimdi, function_1'i çağırmadan önce, birinci işlevi çağıran bir mesaj görüntülüyorum.

Application.Wait (Now + TimeValue("00:00:2")) bu kod satırı, durum çubuğumda bunu görmek için 2 saniyem olsun diye uzun bir işlev çağrısını taklit etmek içindir.

Tüm işlev çağrılarından önce yaptım ve sonunda durum çubuğunu boş (“”) olarak ayarladım.

Durum çubuğu mesajları, uzun kodlarla çalışırken mesajları görüntülemek için oldukça kullanışlıdır. Kodunuz birden fazla aşamadan geçtiğinde veya uzun bir döngü çalıştırdığında, kullanıcının kodun çalıştığını bilmesi için bunu durum çubuğunda gösterebilirsiniz. Aksi takdirde, kullanıcı sistemin askıda kaldığını veya başka bir şey olduğunu düşünebilir.

Artık bu tek astarı kullanarak Excel 2016, 2013, 2010 ve 2007'nin VBA'sını kullanarak durum çubuğu hakkında akıllıca bilgi alabilirsiniz.

ESKİ YAYIN

Belirli vba makrolarının/kodlarının gerekli eylemleri çalıştırması veya yürütmesi uzun zaman alır. Hattı kullanarak ekran güncellemesini kapattıysanız Application.ScreenUpdating = Yanlış kodunuzun başında, herhangi bir kullanıcı kodu çalıştırırsa, neler olduğunu bilmeyecek ve bilgisayar sisteminin yanıt vermediğini düşüneceklerdir. Kullanıcının kodun mevcut durumu hakkında bilgilendirilmesi için koddan durum çubuğunda bir durum mesajı görüntülemesini isteyebilirsiniz.

Burada, 2. satırdan son satıra kadar A sütunundaki değerleri gösteren bir mesaj kutusu veren basit bir kod verilmiştir. Durum çubuğu, kod çalışırken “Makro çalışıyor” mesajını gösterecek ve kod yapıldıktan sonra, varsayılan Excel mesajlarından biri olan “Hazır” gösterecektir.

Seçenek Explicit Sub macro1() Dim i As Long, Llow As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = True With Worksheets(“Sheet1”) lrow = .Range(“A” & .Rows.Count) .End(xlUp).Row For i = 2'yi azaltmak için Application.StatusBar = “Makro çalışıyor” Msgbox .Range(“A” &i).Value Sonraki i End With Application.StatusBar = “” Application.ScreenUpdating = True Application.DisplayAlerts = Gerçek Son Alt 

Yukarıdaki kodu dosyanıza kopyalamak için,

  • Klavyede Alt + F11 tuşlarına basın.
  • Sol tarafta Microsoft Excel Nesneleri göreceksiniz.
  • Sağ tıklayın ve Ekle'yi seçin.
  • Ardından Modül'e tıklayın.
  • Kodu sağdaki kod penceresine kopyalayın.

Aşağıdaki modülde yayınlanan kodu görebilirsiniz -

Şimdi kodun her satırının ne yaptığını anlayalım -

Bu yüzden önce DISPLAYSTATUSBAR'ı true olarak ayarlıyoruz ve sonra durum çubuğu için mesajı ayarladık. Bir kez kullandığımızda Application.StatusBar = “” kodun sonunda, HAZIR olan varsayılan Excel mesajına dönecektir.

İşte makro çalışırken durum çubuğunun bir resmi.

Makro tamamlandıktan sonra durum çubuğu aşağıdaki gibi görünecektir -

Benzer şekilde, kodun farklı bölümlerindeki durum çubuğunu güncelleyebilirsiniz, böylece kullanıcı makro çalışırken neler olduğunu bilir. Bazen, birden fazla işlemi kapsayan bir veya birden fazla makro olabilir ve bu durum çubuğu, makronun hangi süreçte, hangi işleme ulaştığını bilmek faydalı olacaktır.

Bloglarımızı 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 iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın

Popüler Makaleler:

Verimliliğinizi Artıracak 50 Excel Kısayolu

Excel'de DÜŞEYARA İşlevi nasıl kullanılır?

Excel'de COUNTIF işlevi nasıl kullanılır?

Excel'de SUMIF İşlevi nasıl kullanılır?