C# Birlikte Öğrenelim

  Sub düsey_ara_sayfa() Dim aranan As Range Dim alan As Range Set aranan = Range("f4") Set alan = Sheet1.Range("A1:D19") sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) Range("H4") = sonuc End Sub ======================================================================== Sub coketoplaa_sumifs() 'ÇokEtopla Dim aranan As Range Dim alan As Range Dim kriter As Range Set toplanan = Sheet1.Range("C:C") 'Satış Tutarı Set kriter = Sheet1.Range("D:D") 'Yıl Set aranan = Range("F8") 'Aranan Değer sonuc = Excel.WorksheetFunction.sumifs(toplanan, kriter, aranan) Range("H8") = sonuc End Sub

  Sub Oval3_Tıkla() Dim aranan As Range Dim alan As Range Set aranan = Range("F3") Set alan = Range("A1:D19") 'sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) 'Range("H3") = sonuc Range("H4") = sonuc End Sub ========================================================================= Sub coketopla() Dim satis_tutari As Range Dim yil As Range Dim kriter As Range Set satis_tutari = Range("C:C") Set yil = Range("D:D") Set kriter = Range("F7") sonuc = Excel.WorksheetFunction.sumifs(satis_tutari, yil, kriter) Range("H8") = sonuc End Sub

 Excel MsgBox kutu örnekleri: Sub mesaj_kutuları() 'MsgBox "Bu işlemi yapamazsınız.", vbCritical 'MsgBox "Bu işlemi yapamazsınız.", vbInformation 'MsgBox "Bu işlemi yapamazsınız.", vbAbortRetryIgnore 'MsgBox "Bu işlemi yapamazsınız.", vbYesNo 'cevap = MsgBox("Bu işlemi gerçekten yapmak istiyor musunuz?", vbYesNo + vbCritical) 'If cevap = vbYes Then 'MsgBox "İşlem yapıldı" 'Else 'MsgBox "işlem yapılmadı." 'End If 'MsgBox "mesajım", vbCritical, "başlık" 'girdi = InputBox("Bir sayı girin", "Kare Al") 'MsgBox girdi * girdi End Sub

      #Belirtilen target(hedef) de seçili alan olan  Row(satır)'da tablo boyutu kadar seçili alanı boyama ödevi: Örnek : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 2 And Target.Row < 8 And Target.Column = 1 Then Range("A1") = Target.Value @Range yardımı ile Seçilen hücreyi target A1'e gönderme End If End Sub Örnek çıktı  :     Yukarıda bulunan kod yardımı ile seçili hücreyi target (hedef)'e gönderdik fakat bu işlem tablo boyunca, seçili olan satırın boya işlemi yapmayacaktır.     Boyama işleminin gerçekleşmesi için; Koşullu Biçimlendirme yöntemini kullanarak yeni kural atama işlemi yapcağız:     Giriş sekmesinden = Koşullu Biçimlendirme     Yeni Kural  Açılan pencerede Biçimlendirilecek hücrelerin seçim işlemi fare yardımıya yaptıkdan sonra      Kodumuzda bulanan işaretli yerde ki sabitleme işareti olan $ şeklini siliyoruz ki; kodumuz aşağıya doğru seçili A1 ...

 Excelde seçili Row(Satır) ve Column(Sütun) içinde yapılan değişiklikleri geri bildirim(MsgBox) ileti olarak alma :         Örnek Kod yapısı : Private Sub Worksheet_Change(ByVal Target As Range)  @Worksheet Change Kütüphanesi If Target.Row < 6 And Target.Column < 4 Then   #Hedef Row(satır) ve Column(sütun)   MsgBox "değişiklik yaptınız..."  #MsgBox yardımı ile uyarı, ileti alma  End If End Sub          Kodun çalışma şekli :

 @if yapısı döngü oluşturma için  koşul belirtilmesi ve bu koşul sayesinde döngünün çalışmasını sağlar     @string ifadeler  tırnak ( " " )içerisinde yazılır.     @ kod yapısı içerinde  or ifadesi belirtilen koşulların herhangi biri gerçekleşmesi durumunda çalışır.     @   kod yapısı içerinde  and ifadesi belirtilen koşulların ikisinin de gerçekleşmesi durumunda çalışır. @else: belirlenen koşulların hiçbiri öngörülemediği takdirde devreye girer.     Örnek kod yapısı:     Tek satırlık kod yapısı Sub if1() If Range("A1") = "Gıda" Then Range("B1") = "%8"  End Sub @Gıda  " @string ifade "koşulunun karşılaması sonucu %8 B1 e yazılır.               Örnek kod yapısı: Sub if2() If Range("A1") = "Gıda" Then  @ Koşulun Gerçekleşmesi Then: Burada den dan anlamında Range("B1") = "%8"               ...

  VeriTipleri ve Değişkenler Kaynak Excel kütüphanelerine uşabilmek için VBA kod kısmında F2 ye tıklayıp kütüphanleri görmen mümkün! Arama yaptığın kütüp hane ile ilgili içeriğin üzerine tkladığında F1 'e bastığında seçmiş olduğun kütüphane hakkında yrdım edinebilirsin. deger1=Cells(1,1)            Cells komutu ile veriyi birinci satır birinci sütundan almasını söyledik deger2=Range("A2")     Range komutu ile veriyi A sütununun ikinci satırından almasını söyledik Yukarıda ki komuta dikkat edicek olursak  Cells kullanırken veri tipini  birinci satır birinci sütundan almasını söyledik Range komutunu kullanırken  A sütununun 2'inci satırında ki veriyi almasını söyledik Range komutunu tarif ederken bile zorlanıyoruz hocanın neden Cells kullanmmayı tercih ettiğini daha iyi anlıyorum :) excel tarafında işlem yaparken veri alıp gönderme işlemi Cells olarak yapılır. Range çok da tercih edilmez :) Rowindex satır numarası ...