Excel vba: kod

kod

Tek tek sayfaların isimlerini mesaj kutusunda gösterir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'==========================================
' Sayfa isimlerini mesaj kutusunda gösterir
'==========================================

    Dim isayfasayisi As Integer
    Dim isayfa As Integer
        isayfasayisi = ActiveWorkbook.Worksheets.Count
        For isayfa = 1 To isayfasayisi
        Worksheets(isayfa).Activate
    MsgBox Worksheets(isayfa).Name
    Next isayfa
End Sub

'==========================================
'Microsoft Visual  Basic Makro Kodu:
'Excel Çalışma Kitabındaki Sayfa İsimlerini A Sütununda Listeleme ve Köprü Oluşturma:
'==========================================

Sub ExcelceSayfaKoprule()
Rem Excelce - Öykü Karaman
For Each sayfa In ThisWorkbook.Worksheets
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

Soru

Arkadaşlar iyi çalışmalar sitenizi yeni buldum ve incelediğim kadarıyla epey faydalı bilgi edinebileceğim bir site benim sorunum ise Sayfaya Eklediğimiz CheckBox ı hücre ile ilişkilendirme yaparak CheckBox a işaret koyduğumuzda ilişkilendirdiğimiz hücrenin içini renklendirmesi bunun gibi yada buna benzer bir makro kodu varmı varsa yardımcı olursanız memnun olurum şimdiden yardımlarınız için teşekkür ederim.

Örnek A:1 hücresinie ilişkilendireceğimiz bir CheckBox’ı işaretlediğim zaman A:1 hücresi kırmızı olacak.

Cevap

Private Sub CheckBox1_Click()

'==========================================
'Excel CheckBox’u hücre ile ilişkilendirilmesi
'==========================================

If CheckBox1.Value = True Then
    Range("A1").Interior.Color = vbRed
    Range("A1").Font.Color = vbYellow
Else
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    End If
End Sub

Örnek dosyayı indirmek için tıklayınız.

Matematik Fonksiyonları

Avarage(Ortalama)

Tablonuzda seçmiş olduğunuz toplu değerlerin ortalamasını hesaplattırabilirsiniz. Şimdi Mousu sonucun hesaplanacağı hücreye tıklayın. Yukarıdaki adımları izleyeren aşağıdaki pencelerin açılmasını izleyin.

Not: Daha sonraki adımlarda fonsiyonlara sürekli bu adımlarla erişebilirsiniz.
Tamam butonuna tıkladıktan sonra karşınıza aşağıdaki ekran açılacaktır. Buradan gerekli olan değerleri seçin

Bu örnekteki tablomuzda ?Ortalama Not? değerini ?A5? hücresine yazmış olduğumuz

"=AVARAGE(A2:A4)" Türkçesi = "=ORTALAMA(A2:A4)"

?formulle hesaplattık.

Count(Say) fonksiyonu

Bu fonksiyon seçilen aralıkta kaç hücrenin seçildiğinin sonucunu verir. İsterseniz birden fazla satır veya sütun seçerek hepsinin hücre toplamını bulabilirsiniz.

Oluşturacağınız makrolar içerisinde excel hücre değerelerini kullanacak, veya bulmuş olduğunuz bilgileri Excel hücrelerine göndereceksiniz. Şimdi bu işlemleri nasıl gerçekleştireceğinizi örneklerle açıklayalım.

A1 hücresine www.kod.gen.tr yazalım ve Tıkla isimli buton ekleyip aşağıdaki ?okuyucu? isimli makromuzu, oluşturduğumuz butona atayıp, hücre değerini mesaj kutusunda kullanıcıya iletelim.

Aşağıdaki kodu Alt + F11 ile vba yı açalım Insert > Module ile müdül ekleyelim ve aşağıdaki kodu yazalım.

Sub okuyucu()
Dim oku As String
Oku = Range(?A1?).value
MsgBox oku
End Sub

Makromuza bir satır ekleyerek, mesaj kutusundaki değeri istediğimiz hücreye yazdırabiliriz.
Bu örneğimizde mesaj kutusundaki değeri A2 hücresine yazdıralım.

Sub okuyucu()
Dim oku As String
oku = Range("A1").Value
MsgBox oku
Range("A2").Value = oku
End Sub

Aşağıdaki ifade, aktif hücreden, aktif hücrenin 2 satır aşağısını ve 5 sütun sağındaki hücreleri seçecektir.

Range(ActiveCell, ActiveCell.Offset(2, 5)).Select

Sub aralik()

Dim Aralığım AsRange

Set Aralığım =Range(“A1”)

    Aralığım = “www.kod.gen.tr”

    Aralığım.Font.Bold = True

    Aralığım.Font.Color = vbGreen

Set Aralığım =Nothing

End Sub

Sub withkullan()


  ‘with yapısını kullanmayı öğreniyoruz


    WithRange(“a1”)

        .Font.Bold = True

        .Font.Color = vbRed

    End With

End Sub

Sub aralıklarım()

    ‘Range özelliğinin çeşitli kullanımlarınıöğreniyoruz


    ‘A1:C3 aralğını seçer. Range özelliğini bubiçimi ile _

    2 bağımsız değişken kullandık

    Range(“A1″,”C3”).Select


    ‘Aktif hücre ile b6  aralğını seçer

    Range(ActiveCell, “B6”).Select


    ‘B3:C8 aralığını seçer

    Range(“B3:C8”).Select


    ‘Belirtilen aralığa bir ad verir

    Range(“B2”, “E4”).Name= “İşlemAralığım”


    ‘ad verdiğimiz aralığı  seçtik

    Range(“İşlemAralığım”).Select

    Range(“B2”).Select


    ‘Excel c3 hücresini seçer. Excel ActiveCellözelliğiyle döndürülen _

    range nesnesini, yani B2 hücresinibaşlangıç noktası olarak kullanı.

    ActiveCell.Range(“b2”).Select


   Range(“İşlemAralığım”).Range(“A1”).Select

End Sub

Sub koleksiyonOlarakRangeKullan()

‘*****************************************************************

‘Excelin aralğıkoleksiyon olarak gören üç özelliği vardır: _

Cells özelliğihücreler koleksiyonu, Rows Özelliği satırlar _

koleksiyonunu veColumns özelliği sütunlar koleksiyonunu döndürür.

‘*****************************************************************

Dim Aralığım AsRange

‘B2:E4 aralğınıAralğım değişkenine atadır.

Set Aralığım =Range(“B2:E4”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘aralğın ilksatırındaki dördüncü hücreyi, E2 hücreni seçtik

Aralığım.Cells(1,4).Select

‘Koleksiyonunaltıncı öğesi olan c3 hücresini seçer

Aralığım.Cells(6).Select

‘*****************************************************************

‘Bu bildiri cellsözelliğini iki kez kullanır; _

önce aralıktakihücre sayısını bulmak için, sonra _

da son hücreyiseçmek için. Aralıkta 12 hücre vardır. _

koleksiyonun 12.öğesi üçüncü satırdaki dördüncü hücredir

Aralığım.Cells(Aralığım.Cells.Count).Select

‘*****************************************************************

‘Excel Çalışmasayfasındaki en son hücreyi seçer. Cells özelliği _

önünde bir Rangenesnesi olmadan kullandığınızda (yani genel cells _

özelliğinikullandığınızda), etkin çalışma sayfasındaki tüm hücre _

koleksiyonunudöndürür. Bildiri, Çalışma sayfası üzerindeki 65536. _

hücreyi seçer.

Cells(Cells.Count).Select

‘*****************************************************************

‘Aralğımın 2. satırıolan B3:E3 aralğını seçer

Aralığım.Rows(2).Select

‘Aralğın son sütunuolan E2:E4 aralğını seçer

Aralığım.Columns(Aralığım.Columns.Count).Select

‘Genel columnsözelliği tüm çalışma sayfasını bir aralık olarak kullanır.

Columns(2).Select

‘Columns(3)

‘Columns(“D”)

‘kullanarak columnskoleksiyonundan bir öğ belirleyebilirsiniz

End Sub

Sub izle()

Dim Aralığım AsRange ‘C4:E5 aralğınıAralğım değişkenine atadı.

Set Aralığım =Range(“C4:E5”)

‘Aralğımı daha kolaygörünmesi için renklendirdik.

Aralığım.Interior.Color= vbYellow

‘(“C5:E6”)aralığını,sarı aralıktan bir hücre aşağısını seçer. Öffset _

Özelliği ikibağımsız değişken alır. İlki bavuruyu aşağı kaydırmak için _

satır sayısıdır. 2.sağa kaydırmak için sütun sayısıdır.

Aralığım.Offset(1,0).Select

‘Aralğımla aynıboyutta ve ona bitişik olan F4:H5 Aralğını seçer. _

Kendinizi aralığınsol üst hücresinde otururken düşünün. Aralığımda üç _

sütun olduğu içinileri doğru üç adım atın. Bu yeni başvuru için başlangıç _

hücresidir.

Aralığım.Offset(0,Aralığım.Columns.Count).Select

‘Excel Aralğımdan bir sütün daha geniş olan C4:F5 aralığını seçer. Resize özelliği _

yenidenboyutlandırılmış bir aralık döndürür. İlk bağmsız değişken, yöne başvurudaki _

satır sayısı,ikincisi ise sütun sayısıdır. Satır yada sütunları özgün aralıktakiyle _

aynı bırakmak için,karşılğı olan bağımsız deişkeni boş bırakın (Ama ilk bağmsız _

deişkeni boşbırakıyorsanız virgül koyun).

Aralığım.Resize(,4).Select

‘Excel özgün aralıktan her yönde bir hücredaha büyük bir dikdörtgen _

seçer. Offsetözelliği başlangıç noktasını bir hücreyukarı ve bir _

hücre sola doğrukaydırır. Resize özelliği yeni aralığı özgün olandan _

iki hücre daha uzunve iki hücre daha geniş yapar.

Aralığım.Offset(-1,-1).Resize(Aralığım.Rows.Count + 2, _

Aralığım.Columns.Count + 2).Select

‘Excel 4. satırıntümünü seçer. Aralığım değişkeni C4:E5 aralığına bir _

başvuru döndürür.Cells Özelliği, o aralığın ilk hücresini (sol üstteki), _

C4’ü döndürür.EntireRow özelliği, o başvuruyu satır 4’ün tümünü içeren _

biçimde genişletir.Zincirdeki tüm özellikler; başka bir nesneye başvuru _

döndürür. asıl işiyapan sonundaki select yönteminde ulaşana kadar _

bu böyle sürer

Aralığım.Cells(1).EntireRow.Select

‘C:E sütunlarınıntümünü seçer

Aralığım.EntireColumn.Select

‘Excel A1:D4aralığını seçer. CurrentRegion özelliği, seçimi boş hücreler _

le yada çalışmasayfasının kenarlarıyla sınırlı bir dikdörtgen oluşturmak _

üzere genişletir.

Aralığım.CurrentRegion.Select

‘EntireRow, EntireColumn ve CurrentRegion özellikleriyle beraber Offset _

ve Resize özellikleri, özgün bir başlangıç aralğına dayalı yeni Range _

nesneleri hesaplamanız için size esnek araçlar sağlar.

End Sub

‘VALUE Özelliği herzaman bir hücredeki sayının biçimlendirilmemiş _
değerini verir. Bir hücrenin, biçimlendirilmemiş değeri veren bir _
de Text özelliği vardır. Text Özelliği salt okunur çünkü value ve _
NumberFormat özelliklerinin bir birleşkesidir.

Sub sayfalarıkoru()
'Sadece Sayfa1 i koruyan kodlar
Dim Sayfam As Worksheet
Set Sayfam = Worksheets(1)
Sayfam.Select
Sayfam.Protect "kabatashaber", True, True, True 'Parolayı kabatashaber olarak yazdık
End Sub

Sub sayfalarıkoru1()
'tüm Sayfaları şifreleme FOR EACH döngüsünü kullanmak
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets ' Set yerine FOR Each yazdık _ 'eşitti imi yerine de in yazdık parantezi ve içindeki sayıyı kaldırdık
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Protect "kabatashaber", True, True, True
Next Sayfam
End Sub

Sub Sayfakorumalarını_kaldır()
Dim Sayfam As Worksheet
For Each Sayfam In Worksheets
Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık
Sayfam.Unprotect "kabatashaber"
Next Sayfam
End Sub

‘NOT FOR EACH DÖNGÜSÜ YANLIZCA BİR KOLEKSÖYONDA DÖNER İKİ PARALEL KLEKSİYONU (ÖRNEĞİN İKİ ARALIĞI ) KARŞILTIRAMAZ ‘BUNUN İÇİN (İKİ ARALIĞI KARŞILAŞTIRMA İÇİN İSE FOR NEXT DÖNGÜSÜNÜ KULLANMALIYIZ

Formül ile hücreye bugünün tarihini yazdırmak

=BUGÜN()

Hücereye yarının tarihini yazdırır

=BUGÜN()+1

Hücereye dünün tarihini yazdırır

=BUGÜN()-1

Hücereye yarının tarihini yazdırır

Sub Düğme1_Tıklat()
ActiveSheet.PageSetup.LeftHeader = Date & "-" & Date + 1
End Sub

‘belirtilen hücrelerdeki rastgele yazılan sayıları tarihe çevirir

Sub tarihecevir()

Dim aralık As Range
For Each aralık In Range("C1:C50")
formul = "=IF(OR(LEN(RC[-1])>8,LEN(RC[-1])

Soru:Arkadaşlar Merhaba,
Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.
Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?
NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.
Hepinize saygılarımı sunuyorum…
Cevap:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Cancel = True 
ActiveCell.Replace What:=".", Replacement:="" 
ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) 
End Sub

Kodlar: Bülent Öztürk

Görsel Olarak (hücrede tarih gibi görünür fakat biçim olarak sayıdır) bu işlemi ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra Görsel olarak bu işlemi yapmak istiyorsanız ilgili hücrede iken (yada tüm sütunu seçerek);
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;

##\.##\.####

şeklinde yapıştırın.

Tarihler arasında işlem yaptığınızda, örneğin iki tarih arasındaki gün farkını hesaplamaya çalıştığınızda işlemin tarih formatında doğru sonuç döndürmesini için ilgili hücrede iken ya da birden cük hücreyi seçtikten sonra yine
Biçim>hücreler>sayı>isteğe uyarlanmış sekmelerinde tür kısmına;

0#\.0#\.####

şeklinde yapıştırın. Ayrıca Bakınız...

VBA With ifadeleri, aynı nesne veya koleksiyonla ilgili karmaşık kodları basitleştirmenizi sağlar. Sürekli olarak aynı nesneye gönderme yapmak yerine, bu nesneyi belirleyerek üzerinde bir dizi eylem gerçekleştirmek için bir With… End With ifadesi kullanabilirsiniz. Ortaya çıkan kodun okunması daha kolay olduğu gibi, aynı zamamanda daha da hızlı çalışır. Bir with ifadesinin söz dizimi aşağıdaki gibidir:

With object
 Olaylar (kodlar)
Ent with

Buradaki object, bir koleksiyonda dahil olmak üzere herhangi bir nesne olabilir. Örnek olarak bir pargrafın etkin biçemini, farklı bir biçem uygulamadan biraz süslemek için bir paragrafa uygulamak isteyebileceğiniz bir biçimlendirmeyi ele alalım. Diyelim ki farklı bir font daha büyük bir punto ve alt çizgisiz yazı karakterli uygulamaya, ancak paragrafın hala heading 1 biçemi ile belirlenmesine karar verdiğiniz. Bu biçimlendirmeyi ona aşağıdaki üç ifadeyle uygulayabirizsiniz:

Selection.Font.Name =”Arial Black”
Selection.Font.Size = 24
Selection.Font.Underline = wdUnderlineNone

Altenatif olarak bu kodu basitleştirmek için bir with ifadesi de kullanabilirsiniz.

With selection.Font
 .Name=”Arial Black”
.Size =24
.Underline = wdUnderlineNone
End with

Buradaki with ifadesi ile End with ifadesi arasındaki bütün ifadeler with ifadesi ile tanımlanan selection.font nesnesi için geçerlidir. Benzer bir biçimde, etkin seçime pragraf biçimlendirmesi uygulamak içinde bir with ifadesi kullanabilirsizin. Aşağıdaki ifadeler paragraf öncesi boşluğu, punto. Sonrası boşluğu da 12 punto yapar

With selection.ParagraphFormat
 .spaceBefore = 0
 .SpaceAfter=12
End with

Burada with ifadesi ile End with ifadesi arasındaki bütün ifadeler selection.ParagraphFormat nesnesi için geçerlidir. Aynı zamanda bu iki with ifadesini, her ikisinde de ortak olan Selection. Nesnesini kullanarak aşağıdaki şekilde birleştirebilirsizin:

With selection
 .Font.Name = “Arial Balack”
 .Font.Size = 25
 .Font.Underline= wdUnderlineNone
.ParagraphFormat
 .spaceBefore= 0
 .spaceAfetr= 12
End with

Ayrıca aşağıdaki örnekte olduğu gibi with ifadelerini iç içe de geçirebilirsiniz. Bu örnekte iç içe geçirmenin kullanılması (düzgün çalışsa da) şart değildir ama başka durumlarda onu gerekli bulabilirsiniz.

With selection
 .Font.Name = “Arial Balack”
 .Font.Size = 25
 .Font.Underline= wdUnderlineNone
End with

With.ParagraphFormat
 .spaceBefore= 0
 .spaceAfetr= 12
End with
End with

İPUCU: VBA kullanmayı öğrenirken bir with ifadesi oluşturmanın en kolay yolu, makro kaydediciyi üzerinde çalışmak istediğiniz nesnelere erişim yöntemini ve üzerlerinde gerçekleştiriğiniz eylemleri kaydetmek için kullanmaktır. Bunu yaptıktan sonra kodu visual Basic Editörde düzenleyin ve bu eylemleri gerçekleştirmek için kaydedilmiş olan kodun daha basit bir sürümünü kullanan with ifadesi oluşturun.

KaynakExcel vba Örnek Dosyalar Cd'si

‘cdrom sürücüleri msgboxta gösterir

Function FileOrFolderName(InputString As String, _
    ReturnFileName As Boolean) As String

Dim i As Integer, FolderName As String, FileName As String
    i = 0
    While InStr(i + 1, InputString, Application.PathSeparator) > 0
        i = InStr(i + 1, InputString, Application.PathSeparator)
    Wend
    If i = 0 Then
        FolderName = CurDir
    Else
        FolderName = Left(InputString, i - 1)
    End If
    FileName = Right(InputString, Len(InputString) - i)
    If ReturnFileName Then
        FileOrFolderName = FileName
    Else
        FileOrFolderName = FolderName
    End If
End Function

Sub TestFileOrFolderName()

    MsgBox FileOrFolderName(ThisWorkbook.FullName, False), , _
        "This Workbook Foldername:"
    MsgBox FileOrFolderName(ThisWorkbook.FullName, True), , _
        "This Workbook Filename:"
End Sub

‘Hücre Değerinin Msgbox ta gösterilmesi

Sub goster()
Dim veri As String
veri = Cells(8, 5).Value '8. satır 5. sütun
MsgBox ("Şu Anda E8 Hücresinde" + vbNewLine + veri _
+ vbNewLine + "Değeri var")
'vbNewline bir alt satıra indirir.
'chr(13)+chr(10) da yazılabilir
End Sub

‘İkili mesaj kutusu (evet hayır)

Sub Düğme1_Tıklat()

Dim Mesaj As String
Mesaj = MsgBox("www.kod.gen.tr", vbYesNo)
If Mesaj = vbYes Then
    MsgBox ("Evet Düğmesine Tıkladınız"), , "www.kod.gen.tr"
Else
    MsgBox ("Hayır Düğmesini Tıkladınız"), , "www.kod.gen.tr"
End If
End Sub

Mesaj kutularına ikon eklemek

Sub Düğme1_Tıklat()
'İkonlar için kullanılabilecek Seçinekler
'Vbquestion (Soru İkonu)
'vbInformation
'VbExclamation (Dikkat Ünlem İkonu)
'VbCritical (çarpı ikonu Tehlike)
Dim Mesaj As String
Mesaj = MsgBox("www.kod.gen.tr", vbYesNo + vbQuestion)’resimler burada
If Mesaj = vbYes Then
    MsgBox ("Evet Düğmesine Tıkladınız"), , "www.kod.gen.tr"
Else
    MsgBox ("Hayır Düğmesini Tıkladınız"), , "www.kod.gen.tr"
End If
End Sub

Mesaj kutularındaki satırları alt alta yazdırmak

Sub MessageBox3()
' Birdan fazla satırlı msgbox. vbCrLf alt satıra indirir
    Dim strMessage As String
    strMessage = "Kategorilerle Vba Cd'si" & vbCrLf & "www.kod.gen.tr" & vbCrLf & "A.Aşkın KÜÇÜKKAYA"
    MsgBox strMessage
End Sub

Hücre aralıklarını mesaj kutusunda göstermek

Sub Test()
'Sayfa1.hücreB2:J2 aralığını mesaj kutusunda gösterimi
Dim Email As String, Subj As String
Dim Msg As String, url As String
Dim Vin As String
Dim r As Integer, x As Double
For r = 2 To 2

Email = Cells(r, 1)
' Mesajın Konusu
Subj = "Sayfanızdaki yazılar"

Dim cell As Range
Dim strbody As String
For Each cell In ThisWorkbook.Sheets("Sayfa1").Range("B1:J1")
strbody = strbody & cell.Value & " , "

Dim cell2 As Range
Dim grades As String
For Each cell2 In ThisWorkbook.Sheets("Sayfa1").Range("B2:J2")
grades = grades & cell.Value & " , "

Next
Next
' Mesajı oluştur
Range("A1").Select
Msg = ""
Msg = "Sevgili " & Cells(r, 1) & "," & vbCrLf & vbCrLf _
& "Aşağıda sizin belirttiğiniz aralığa ait yazılar bulunmaktadır." & vbCrLf & vbCrLf _
& strbody & ", " & grades & ", " & Cells(r, 2).Text & ", " _
& Cells(r, 3).Text & ", " & Cells(r, 4).Text & ", " _
& Cells(r, 5).Text & ", " & Cells(r, 6).Text & ", " _
& Cells(r, 7).Text & ", " & Cells(r, 8).Text & ", " _
& Cells(r, 9).Text & ", " & vbCrLf & Cells(r, 10).Text & ", " _
& Cells(r, 11).Text & vbCrLf & "Eric Duchin" & " www.kod.gen.tr"

MsgBox Subj & Chr(13) & Msg
Next
End Sub

Belirtilen süre doğrultusunda mesaj kutusu çalışır

Sub test()
'mesaj kutusu 10 saniye sonra çalışır
If Application.Wait(Now + TimeValue("0:00:10")) Then
    MsgBox "Zaman Sona Erdi"
End If
End Sub

Çalışma kitabınız kapatılınca mesaj kutusu açılır

Private Sub Workbook_Deactivate()
‘Kodları ThisWorkbook’a yazınız
'Kapanışta Selam
MsgBox ("Yine Bekleriz" & vbCrLf & "Güle Güle"), , "http://www.kod.gen.tr"
End Sub

Çalışma kitabınız ilk açıldığında mesaj kutusu açılır

Private Sub Workbook_Open()
'açılışta selam
MsgBox ("Merhaba Hoşgeldiniz" & vbCrLf & "Kolay Gelsin"), , "http://www.kod.gen.tr"
End Sub

KaynakExcel vba Örnek Dosyalar Cd'si

www.kod.gen.tr domaini bizdeyken hazırlamış olduğumuz örnek dosyaların üzerinde bu sitenin ismi yazmaktadır. şu anda yayında olan kod.gen.tr sitesiyle bir bağlantımız veya bağımız bulunmamaktadır.

Excel çalışma kitabımızı bazen kişiselliştirmek isteriz. Örneğin çalışma kitabımızın altındaki sayfa isimlerinin olduğu menü çubuğunu 3. kullanıcalırdan gizlemek istediğimizde "ActiveWindow.DisplayWorkbookTabs = False" kodunu kullanmamız işimizi görecektir.

Açılışta menüleri gizleyen kodlar

Sub Auto_open()
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayOutline = False
    ActiveWindow.DisplayZeros = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False 'satır ve sütunu kaldırır
 End Sub
  
 End Sub

Kapanışta menüleri gösteren kodlar


Sub Auto_close()
    Application.DisplayFullScreen = False 'ekranı tam ekran yapar
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = True 'biçimlendirme araç çubuğu
    Application.CommandBars("Standard").Visible = True 'standar araç çubuğu
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayOutline = True
    ActiveWindow.DisplayZeros = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False 'formul çubuğunu görünür yapar
    Application.DisplayStatusBar = False
    
    
    ActiveWindow.DisplayHeadings = False 'satır ve sütunu kaldırır
 End Sub

KaynakExcel vba Örnek Dosyalar Cd'si

excelvbaexcel vba,

Excel 2007′de Özet tablo oluşturmak için, görsel anlatımdan yararlanabilirsiniz.

Buradan izleyin…

SelectionChange; hücrede işlem yapılsın veya yapılması başka bir hücreye geçildiğinde meydana gelen olaydır. Kodlar Thisworkbook event'ine yazılacaktır

Çalışma sayfası ve çalışma kitabı ile ilgili olaylar pdf dosyası.

Pdf formatındaki dosyayı indirmek için tıklayınız...

Pdf formatındaki ebook'u indirmek için tıklayınız...

Excel sayfa isimlerini kodlarla listeleme, Köprü Oluşturma

Excel CheckBox’u hücre ile ilişkilendirilmesi

Soru

Cevap

Excel matematik fonksiyonları

MACROLARLA HÜCRE DEĞERİNİN KULLANILMASI

Aralıklar, Hücre Seçim İşlemleri

Excel sayfa koruma kodları

Excel’de günün tarihini ve yarının tarihini yazdırmak

Tarihler arasına noktayı otomatik yazdırmak

With end with ifadelerinin nesne veya koleksiyonlarla kullanılması

MsgBox özellikleri

Excel menü Çubuklarının gizlenmesi, aktif edilmesi

Excel 2007′de Özet tablo oluşturmak

Hücre olayları. Excelde Şifreleme

Event (Olaylar)

excel Programming

ÖRNEK DOSYALAR CD'Sİ

Sosyal Bağlantılar

Kategoriler

Popüler Yayınlar

Rastgele