Sayfada Alan Seçme ve Listeleme
16 Haziran 2021
1047
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 | |
|---|---|
| Koyu Yazdırma | Ctrl K |
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| Veri Doğrulama Penceresini Açma | Alt X VE V |
| Bitişik Olmayan Hücrelerde Sağa Gitme | Ctrl Alt → |
| Veri Aralığının En Soluna Gitme | Ctrl ← |