Ben de benzer bir sorun yaşadım. Çalışma kitabında düğmem var. Düğmeye tıklanırsa, ne olursa olsun, varsayılan "iç sayfa" yerine "tüm çalışma kitaplarında ara" seçeneği olan seçili iletişim kutusunu açmayı çok istiyorum.
Ayrıca düğmenin çalışmasını istedim, gizlenen ya da gösterilen seçeneklerden bahsetti ve birinin manuel olarak değişiklik yapıp yapmadığına baktım. Bu, aldatıcı bir durum çünkü varsayılan başına Excel başlangıçta seçenekleri göstermiyor, ancak daha önce birileri daha önce gösterilmişse bir dahaki sefere onları hatırlıyor ve tekrar gösteriyor.
Tuş vuruşlarının çalıştığından emin olmak için, başlangıç durumuna bakılmaksızın ayarı yapan bir dizi tuş vuruşuna ihtiyacımız var. Tinking biraz sürdü, ama işe yarayan bir tane buldum.
İşte benim Excel'in İngilizce sürümü için kodum, diğer diller için anahtarları uygun şekilde değiştirmek zorundasınız.
Sub Commanbutton_Click()
Cells(1, 1).Select
SendKeys "^f", True
SendKeys "{TAB 15}"
SendKeys " ", True
SendKeys "%t%t", True
SendKeys "{TAB 2}", True
SendKeys "{DOWN}{DOWN}{ENTER}", True
SendKeys "%t%t", True
End Sub
Manuel olarak deneyebilirsiniz:
Bulma diyalogu için CTRL + F tuşlarına basın. TAB tuşuna 15 kez basın, böylece "Seçenekler" e veya "İçinde ara" açılır menüsüne inebilirsiniz.
Basın ve ya
1) Seçenekler görüntülenir veya 2) açılır menü etkinleştirilir ve hiçbir şey olmaz
İmleci bul giriş kutusuna sıfırlamak için Alt + T tuşlarına iki kez basın.
SEKME tuşuna iki kez basın, ne olursa olsun (sizi önceki adımların seçeneklerin görüntülenmesini sağladığından emin olun!), Açılan menüde aramaya götürür.
"Çalışma Kitabı" nı seçmek için AŞAĞI ok düğmesine iki kez basın ve seçmek için GIRIŞ düğmesine basın.
İmleci bul giriş kutusuna tekrar sıfırlamak için ALT + T tuşlarına iki kez basın.
Umarım bu benzer bir problemi olan birine yardımcı olur. Birçok Googling, VBA ile "tüm çalışma kitaplarında arama yapmayı" önceden seçmenin mümkün olmadığını söyledi, ancak bu şekilde çalışıyor!
Farklı dillerle çalışmasını sağlamak için dili kontrol etmeniz ve uygun kısayollarla uygun rutine geçmek için CASE'i kullanmanız gerekir.