Durum Çubuğu Özelleştirme

Katılım
22 Haziran 2009
Mesajlar
154
Excel Vers. ve Dili
excel 2010-Türkçe
Arkadaşlar Merhaba
sitede arattım ama kayda değer bir sonuç bulamadım. Benim istedim alt durum çubuğunda standart olan toplam,ortalama ,say gibi işlevlerin yanına mesala standart sapma yada büyük gibi işlevler ekleye bilirmiyiz.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Ben de durum çubuğunu kullanmadığım zaman kapatma özelliğini aramıştım ama bulamamıştım. 2003 öncesinde “görünüm” menüsünde vardı.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,326
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki kodlar ile ilgili menü açılıp kapanabilir.

Eklenti haline getirip kullanabilirsiniz.

C++:
Option Explicit

Sub Durum_Cubugunu_Kapat()
    Application.DisplayStatusBar = False
End Sub

Sub Durum_Cubugunu_Ac()
    Application.DisplayStatusBar = True
End Sub
 
Katılım
22 Haziran 2009
Mesajlar
154
Excel Vers. ve Dili
excel 2010-Türkçe
Aşağıdaki kodlar ile ilgili menü açılıp kapanabilir.

Eklenti haline getirip kullanabilirsiniz.

C++:
Option Explicit

Sub Durum_Cubugunu_Kapat()
    Application.DisplayStatusBar = False
End Sub

Sub Durum_Cubugunu_Ac()
    Application.DisplayStatusBar = True
End Sub
Korhan Bey Merhaba
Peki standart işlevlerin yanında istediğimiz herhangi bir işlevi alt durum çubuğuna ekleye bilirmiyiz. ?
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Aşağıdaki kodlar ile ilgili menü açılıp kapanabilir.

Eklenti haline getirip kullanabilirsiniz.

C++:
Option Explicit

Sub Durum_Cubugunu_Kapat()
    Application.DisplayStatusBar = False
End Sub

Sub Durum_Cubugunu_Ac()
    Application.DisplayStatusBar = True
End Sub
Sayın Korhan Ayhan uzmanım öğrenmek için bir şey soracağım,

“eklenti haline getirmek” derken kastettiğiniz personel.xlsb dosyası mıdır? Yoksa bildiğimiz eklenti olan xla dosyası mıdır?

Personel’i biliyorum ama
Bir makro kodunu Xla haline getirmeyi öğrenmeyi çok isterim.

Zahmet olmazsa Xla yapmayı öğretebilir misiniz?
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Sayın uzmanım merhaba

örnek olarak,

durum çubuğunu açıp kapatma kodları içeren dosyayı, farklı kaydet “eklenti” olarak addins klasörüne kaydettik.

Seçeneklerden eklentiyi excelin içine entegre ettik ve eklentilerden bu eklentiyi tanıtmış olduk. Buraya kadar tamam,

Her açtığımız dosyada makroların çalışmasını sağlamak için,
şeridi özelleştir ayarlarından, makrolardan şeride ilave ettim ve durum çubuğu makroları görevini yapıyor, bu da tamam.

Uzmanım bu bahsettiğim yol doğru olan yol mudur? Yoksa makro içeren eklentiyi çalıştırmanın, şeride eklemenin dışında başka bir yolu var mıdır?

Teşekkürler
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,326
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
@izcik,

Eklenti haline getirip derken uygun şekilde düzenleyip kullanabilirsiniz anlamında yazmıştım.

Dilerseniz PERSONAL.xls/PERSONAL.xlsb dosyasına kayıt edip kullanabilirsiniz.

Mesela F11-F12 tuşlarına kısayol tanımlayıp kullanabilirsiniz.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
@izcik,

Eklenti haline getirip derken uygun şekilde düzenleyip kullanabilirsiniz anlamında yazmıştım.

Dilerseniz PERSONAL.xls/PERSONAL.xlsb dosyasına kayıt edip kullanabilirsiniz.

Mesela F11-F12 tuşlarına kısayol tanımlayıp kullanabilirsiniz.
Sayın Korhan Ayhan uzmanım merhaba

çok kısaca herhangi bir makroyu, F11 veya F12 gibi bir tuşa nasıl atayabileceğimi anlatır mısınız?

Harf atamak kolay ama F düğmesi nasıl atanır bilmyorum.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,326
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Boş bir dosyada boş bir modüle aşağıdaki kodları uygulayın.

Sonra dosyayı makro içeren dosya biçiminde kayıt edip kapatın. Dosyayı tekrar açtığınızda F12 tuşuna makro atanmış olacaktır. Dosya kapanışında F12 tuşu tekrar eski halini alacaktır.

C++:
Option Explicit

Sub Auto_Open()
    Application.OnKey "{F12}", "Test"
End Sub

Sub Auto_Close()
    Application.OnKey "{F12}"
End Sub

Sub Test()
    MsgBox "F12 tuşuna atanan makroyu çalıştırdınız.", vbCritical
End Sub
 
Üst