Tüm Satırda İşlem Yapan Döngü
Tüm Satırda İşlem Yapan Döngü isimli kodu kullanarak, bir satırın tamamında dönecek bir döngü oluşturabilirsiniz.
XD Destek İstePublic Sub LoopRow()
Dim c As Range
For Each c In Range("1:1")
If c.Value = "ExcelDepo" Then
MsgBox "ExcelDepo kelimesi " & c.Address & " hücresinde bulundu."
End If
Next c
End Sub
Gerekli 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.
Etiketler
Daha önce yorum yapılmamış!
YARARLI KISAYOLLAR | |
---|---|
Bitişik Olmayan Hücreler Seçme | Ctrl Tıklama |
Formül Ekle | Shift F3 |
Hızlı Grafik Oluşturma | Alt F1 |
Bugünün Tarihini Yazma | Ctrl Shift ; |
Üstteki Veriyi Kopyalama | Ctrl D |
Hücrelere eklediğimiz açıklama kutularına resimler eklemek mümkündür. Açıklamaların içine resimler eklemek bir ürün listesi hazılarken çok işe yarayabilir.
- Açıklama eklemek istediğiniz hücreye, sağ buton ile tıklatın ve Açıklama Ekle komutunu seçin.
- Açıklama penceresinin sınırlarının üzerinde önce farenizin sol butonu sonra sağ butonu ile bir kez tıklayın.
- Açıklama Biçimlendir komutunu seçin.
Burada sadece Yazıtipi sekmesini görüyorsanız, seçimi yanlış yapmışsınız demektir. Açılan Yazıtipi penceresini iptal ederek, açıklamanın sınırından sağ butona basın.Karşınıza 8 sekmeden oluşan bir pencere açılırsa doğru yapmışsınız demektir. - Renkler ve Çizgiler sekmesine geçiş yapın ve Renk kısmından Dolgu Efektlerini seçin.
- Dolgu Efektlerinden Resim sekmesine geçiş yapın. Resim Seç düğmesine tıklayın.
- Açılan pencereden istediğiniz resmi seçin.
- Tamam düğmelerine basarak pencereleri kapatın.