Sayfada Alan Seçme ve Listeleme
16 Haziran 2021
1065
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 | |
|---|---|
| Aynı hücre içinde bir alt satıra geçme | Alt Enter |
| Bitiş Modunu Açma | End |
| Yazdırma Alanı Belirlemek | Alt P M B |
| Excel'i Kapatma | Alt F4 |
| Şerit Menüyü Genişletme, Daraltma | Ctrl F1 |