Ana Sayfa
Dosyalar
Forum
Haberler
Giriş yap
Üye ol
Şifremi unuttum
Egitimhane.Com
»
Genel Konular
»
Bilgisayar
»
Excel'le Adım Adım Program Yazma
Sayfa:
1
...
24
25
26
27
28
[
29
]
30
31
32
33
34
...
65
Aşağı git
Excel'le Adım Adım Program Yazma
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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.
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
4. Sınıf Öğretmeni
#
13 Ara 2014 18:38:33
Sub mesaj kutusu()
Msgbox("merhaba")
demo=msgbox("Hoş geldiniz", vbInformation ,"Merhaba")
End sub
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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.
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
4. Sınıf Öğretmeni
#
13 Ara 2014 23:02:50
Seçili hücrelerdeki biçimleri siler.
Sub bicimsil()
Selection.ClearFormats
End Sub
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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)
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
peternorton2
Bilge Üye
1.584
26.592
4. Sınıf Öğretmeni
1.584
26.592
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
Sayfa:
1
...
24
25
26
27
28
[
29
]
30
31
32
33
34
...
65
Yukarı git
Egitimhane.Com
»
Genel Konular
»
Bilgisayar
»
Excel'le Adım Adım Program Yazma
Giriş yap
Üye ol
Her Şeyi Ara
Dosya Ara
Forum Son 100 Konu
Sağlığımız İçin
Uzman Ve Başögretmenlik Süreci
1. Sınıf Dokümanlar Günlüğü 2024 -2025
Genel Sohbet Günlüğü
4. Sınıf Dökümanlar Günlüğü 2024-2025
Norm Fazlası Öğretmenler
Son Eklenen Dosyalar
7. Sınıf Din Kültürü Ve Ahlak Bilgisi 1. Dönem 1. Yazılı
24 Kasım Öğretmenler Günü Tiyatrosu
3. Sınıf 02-03. 11. 2024 Günlük Ödev
6. Sınıf Matematik 1. Dönem 1. Sınav
6. Sınıflar İhl. Kur’An-I Kerim Dersi 1. Dönem 1. Yazılı
Şu an
3.742
kişi ve
269
üye var.
Aktif üyeler için tıklayınız.
Egitimhane.Com
©2006-2023
KVKK