Ana içeriğe atla

Kayıtlar

Excel MsgBox kutuları

 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

Excel Worksheet and SelectionChange

      #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 ...

Excel Row and Column Worhsheet Change Kullanımı

 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 :

Excel VBA If Else Yapısı

 @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"               ...

excel Değişkenler ve VeriTipleri

  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ı ...

Excel Başlangıç :)

 Public Sub savas() 'Public Sub bağımsız değişken tanımlama ' değişken tanımlama As String bu kısım metinsel ifade olduğundan STRİNG kullanıldı ' Değişkenler DİM ifadesi ile tanımlanır :) Dim degisken As String degisken = "SAVASS ALDEMİR" ' tanımlanan değişkeni mesaj kutusunda görmek için kullanıldı MsgBox degisken End Sub Birtakım Notlar