Sayfada Alan Seçme ve Listeleme
16 Haziran 2021
1054
Sayfada Alan Seçme ve Listeleme isimli kod, sayfa üzerinden alan seçmeyi ve seçilen alanı MsgBox nesnesinde listelemeyi öğretmektedir.
Sub Alan_Sec_Listele()
Dim Alan As Range
On Error Resume Next
Set Alan = Application.InputBox(Prompt:="Bir alan seçiniz:", Type:=8)
If Alan Is Nothing Then Exit Sub
MsgBox Alan.Address & " Alanını seçtiniz..."
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel makrolarınızda bazen sayfalardan alan seçmek ya da seçilmiş bir alanın adresinin listelenmesine ihtiyacınız olabilir. Bu gibi durumlar için üstteki kodlarımızı kendinize uyarlayacak şekilde kullanabilirsiniz.
Faydalanılması temennisiyle.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Özel Yapıştır Penceresini Açma | Ctrl Alt V |
| Formül Ekle | Shift F3 |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| Veri Aralığının En Sağına Gitme | Ctrl → |
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |