Excel'le Adım Adım Program Yazma

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 17:45:26
Kullanıcı isterse unprotect satırındaki “123” bilgisini silerse asağıdki gibi bir görüntü ile  karsılasabilir.

Kullanıcı sifre bilgisini bu Alana girerse sayfa üzerine bilgi girisinde bulunabilir.

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 18:38:33
Sub mesaj kutusu()
Msgbox("merhaba")
demo=msgbox("Hoş geldiniz", vbInformation ,"Merhaba")
End sub

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 22:53:57
Hücreyi Seçmek

1- Range("B2").Select
2- Cells(2,1).Select
3- [B2].Select

Hücreye değer atamak.

Range("B2").Value=100 'sayısal değer
Range("B2").Value="egitimhane" 'Text; tırnak içinde

Hücredeki Fontun Büyüklüğünü değiştirmek.

Range("B2").Font.Size=20

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 22:55:22
Hücredeki fontun adını değiştirmek.

Range("B2").Font.Name="Verdana" Hücredeki fontu Kalın,İtalic ve Altı Çizgili yapmak.

Range("B2").Font.Bold = True
Range("B2").Font.Italic = True
Range("B2").Font.Underline = xlUnderlineStyleSingle
ve yahut
Range("B2").Select
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Underline = xlUnderlineStyleSingle

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 22:56:22
Hücrenin dolgu rengini değiştirmek.

Range("B2").Interior.ColorIndex = 6 'Sarı renk

Hücrenin Fontunun rengini değiştirmek.

Range("B2").Font.ColorIndex = 3 'Kırmızı renk

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 22:58:48
Hücreye Formül yazdırmak.

Range("B2").Formula="=A1+A2"'A1 ve A2 hücresini toplar,B2 ye yazdırır.

Aktif olan hücrenin etrafındaki hücreyi seçmek

ActiveCell.Offset(1, 0).Select 'Aktif hücrenin altıdakini seçer.
ActiveCell.Offset(-1, 0).Select 'Aktif hücrenin üstündekini seçer.
ActiveCell.Offset(0, 1).Select 'Aktif hücrenin sağındakini seçer.
ActiveCell.Offset(0, -1).Select 'Aktif hücrenin solundakini seçer.

Aktif olan hücrenin belirtilen kadar uzağındaki hücreyi seçmek.

ActiveCell.Offset(0, 5).Select 'Aktif hücrenin sağındaki 5. hücreyi seçer.

Aktif hücreden belirtilen uzaklıktaki hücreye değer atamak.

ActiveCell.Offset(1,1).Value = "Egitimhane" 'Aktif hücrenin altında ve sağındaki hücreye Egitimhane yazdırır.

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:01:21
Aktif hücrenin üzerindeki iki hücrenin değerleri toplanır ve sonuç aktif olan hücreye yazılır.

Sub toplama()
  t1 = ActiveCell.Offset(-1, 0).Value
  t2 = ActiveCell.Offset(-2, 0).Value
  ActiveCell.Value = t1 + t2
End Sub

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:02:50
Seçili hücrelerdeki biçimleri siler.

Sub bicimsil()
Selection.ClearFormats
End Sub

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:04:55
ÖTELEME

Seçili hücreleri aşağı öteler.
Range("A1:A5").Select 'A1 ile A5 arasındaki hücreler seçilir.

Selection.Insert Shift:=xlDown 'Seçimi aşağı kaydırır. Burada sadece seçili olan 5 adet hücre aşağı kaydırılır.

Seçili hücrelere ait hüm satırı ötelemek.

Range("A1:A5").Select
Selection.EntireRow.Insert '14. koddan farklı olarak seçili olan hücrelere ait 1 ila 5 arasındaki tüm satırlar 5 satır aşağı ötelenir.

Seçili hücrelere ait tüm sütunu ötelemek.

Range("D6:E7).Select
selection.EntireColumn.Insert

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:07:46
HÜCREYE DEĞER ATAMA

Açık olan Excel Çalışma Kitabının belirtilen sayfasındaki istenen hücreye değer atar.

Workbooks("Kitap1.xls").Worksheets("Sayfa1").Range("A1").Value = 3

BOŞ OLMAYAN HÜCRE SAYISI

Yapılan seçimlerde boş olmayan hücre sayısını verir.
Sub hucresayisi()
Dim kontur As Integer
kontur = Application.CountA(Selection)
MsgBox "Seçimdeki dolu hücrelerin sayısı:" & kontur
End Sub

Kodlamada 'CountA' da bulunan 'A' kaldırılırsa seçimde sadece kaç hücrede sayı (rakam) varsa onların adedini verir.

Application.Count(Selection)

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:16:30
SEÇİLİ HÜCRELERİN SAYISI

Seçili hücrelerin sayısını verir.

Selection.Count

Seçimin satır sayısını verir.
Selection.Rows.Count

Seçimin sütun sayısını verir.

Selection.Columns.Count

Seçili hücrenin altında veriler varsa onları seçer. İlk boş hücreden sonra ilk değer olan hücreyi seçer.

Range(ActiveCell,ActiveCell.End(xlDown)).Select

Üstteki hücreler için aynı işlemi yapar.

Range(ActiveCell,ActiveCell.End(xlUp)).Select

Sağdaki hücreler için aynı işlemi yapar.

Range(ActiveCell,ActiveCell.End(xlToRight)).Select

Soldaki hücreler için aynı işlemi yapar.

Range(ActiveCell,ActiveCell.End(xlToLeft)).Select

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:18:49
Aktif hücrenin etrafındaki dolu hücreleri seçer.

ActiveCell.CurrentRegion.Sele ct

Seçimin etrafındaki dolu hücreleri seçer.

Selection.CurrentRegion.Selec t
ActiveCell.EntireColumn.Selec t

Seçili hücrelerin bulundukları sütunları tamamen seçer.

Selection.EntireColumn.Select

Aktif hücrenin bulunduğu satırı tamamını seçer.

ActiveCell.EntireRow.Select

Seçili hücrelerin bulundukları satırları tamamen seçer.

Selection.EntireRow.Select

Çalışma sayfasında bulunan bütün hücreleri seçer.

Cells.Select

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:22:27
Dolu hücrelerden sonraki ilk boş hücreyi seçer. (Sütunlar için.)

Do While Not IsEmpty(ActiveCell)
   ActiveCell.Offset(1, 0).Select '(0,1) olduğu zaman satırlar için olur.
Loop
Eğer A1 Hücresi 1 ise Mesaj kutusu çalışsın ve EGİTİMHANE yazsın

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If Target.Value = "1" Then MsgBox "EGİTİMHANE"
End If
End Sub

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:23:23
Örneğin 4. sütunda İşlem yapılırsa macro otomatik çalışsın

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 4 Then MsgBox "EGİTİMHANE"
End Sub

Örneğin 4. Satırda İşlem yapılırsa macro otomatik çalışsın

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row = 4 Then MsgBox "EGİTİMHANE"
 End Sub

Çevrimdışı peternorton2

  • Bilge Üye
  • *****
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
  • 1.584
  • 26.593
  • 4. Sınıf Öğretmeni
# 13 Ara 2014 23:25:18
Eğer A1 Hücresi sıfırdan büyükse macro çalışsın.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Range("A1") >= 1 Then MsgBox "Aşkından Selamlar"
End Sub

Eğer A1 Hücresinin Değeri A3 Hücresindeki değerden düşükse macro çalışsın

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Or Target.Address = "$A$3" Then
If Range("A1").Value < Range("A3").Value Then
Macro1
End If
End If
End Sub

 


Egitimhane.Com ©2006-2023 KVKK