Excel'le Adım Adım Program Yazma

BU KOD MODÜL İÇİNE YAZILAN KODU SAYFA İÇİNDE AKTİF HALE GETİRİR.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Makro1
End Sub

Çoklu çalışma sayfalarında yazdırma (print) komutu uygulaması...
 'Tüm seçili sayfalardan vede seçili alanlardan tek bir sayfanın print yapılması ?

Sub MultiSheetPrint()
  Dim oActive As Object
  Dim oSheet As Object
  Dim oSheets As Object
  Dim wsPrint As Worksheet
  Dim oLastPic As Object
  Dim iPics As Integer
  ' remember where we are
  Set oSheets = ActiveWindow.SelectedSheets
  If oSheets.Count = 1 Then
    Selection.PrintOut preview:=True
    Exit Sub
  End If
  Set oActive = ActiveSheet
  Application.ScreenUpdating = False
  oActive.Select ' otherwise we get lots of new sheets
  Set wsPrint = Worksheets.Add
  For Each oSheet In oSheets
    If TypeName(oSheet) = "Worksheet" Then
      iPics = iPics + 1
      oSheet.Activate
      Selection.CopyPicture
      wsPrint.Cells(iPics * 3 - 2, 1).Value = oSheet.Name
      wsPrint.Paste wsPrint.Cells(iPics * 3 - 1, 1)
      wsPrint.Rows(iPics * 3 - 1).RowHeight = _
            wsPrint.Pictures(iPics).Height
    End If
  Next
  wsPrint.PrintOut preview:=True
  Application.DisplayAlerts = False
  wsPrint.Delete
  Application.DisplayAlerts = True
  oSheets.Select
  oActive.Activate
  Application.ScreenUpdating = True
End Sub

 Kullanıcıların çalışma kitabını açtıklarında kesme/kopyalama ve yapıştırma komutlarını kullanamaz.

Sub DisableCutAndPaste()
  EnableControl 21, False   ' cut
  EnableControl 19, False   ' copy
  EnableControl 22, False   ' paste
  EnableControl 755, False  ' pastespecial
  Application.OnKey "^c", ""
  Application.OnKey "^v", ""
  Application.OnKey "+{DEL}", ""
  Application.OnKey "+{INSERT}", ""
  Application.CellDragAndDrop = False
End Sub

BİRAZ ÖNCEKİ KISITLAMALARI BU KOD AKTİF YAPAR
Sub EnableCutAndPaste()
  EnableControl 21, True   ' cut
  EnableControl 19, True   ' copy
  EnableControl 22, True   ' paste
  EnableControl 755, True  ' pastespecial
  Application.OnKey "^c"
  Application.OnKey "^v"
  Application.OnKey "+{DEL}"
  Application.OnKey "+{INSERT}"
  Application.CellDragAndDrop = True
End Sub

Belli menu ve komutları (hem araç çubuğunda hem de sağ klik tuşundaki pop-up menüleri) seçilemez

sub menükomutlarıiptal()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindC ontrols(ID:=847)
    Ctrl.Enabled = False'True menüleri aktif yapar
Next Ctrl
For Each Ctrl In Application.CommandBars.FindC ontrols(ID:=889)
    Ctrl.Enabled = False'True menüleri aktif yapar
Next Ctrl
end sub
 

'MENÜ KOMUTLARINI AÇAR.

sub menükomutlarıaç()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindC ontrols(ID:=847)
    Ctrl.Enabled = True'True menüleri aktif yapar
Next Ctrl
For Each Ctrl In Application.CommandBars.FindC ontrols(ID:=889)
    Ctrl.Enabled = True'True menüleri aktif yapar
Next Ctrl
end sub

Aşağıdaki kod kullanıcının kullanmakta olduğu dosyasını  (farklı kaydet) yapmasını engeller.

 'KOD Thisworkbook'a yazılacak
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True'False farklı kaydede izin verir.
    End If
End Sub

KİTAPTAKİ TÜM VERİLERİ FORMÜLLERİ BOZMADAN SİLER
Sub ResetModel()
   Range("A1").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub

BASKI ÖN İZLEME AYARLARINDA DEĞİŞİKLİK YAPILMASINA İZİN VERMEZ.

Sub PrtPvw()
    ActiveSheet.PrintPreview False      '"False"==> ‘Değişikliğe izin vermez True verir.’
    ActiveWindow.View = xlNormalView
End Sub

CD KAPAĞI AÇ KAPAT
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("set cdaudio door open")
End Sub
 
Private Sub Command2_Click()
mciExecute ("set cdaudio door closed")

End sub

COMBOBOX KULLANIMI

Private Sub UserForm_Initialize()
    ComboBox1.ListRows = 10
    ComboBox1.AddItem "1-A"    ComboBox1.AddItem "1-B"    ComboBox1.AddItem "1-C"    ComboBox1.AddItem "1-D"    ComboBox1.AddItem "2-A"    ComboBox1.AddItem "2-B"    ComboBox1.AddItem "2-C"    ComboBox1.AddItem "2-D"    ComboBox1.AddItem "3-A"

İnsert Özelliği (Değiştirme)

Sub Insert()
Range("C3").Charactes(4,1).Insert ("M")
End Sub

c3 hücresindeki kelimenin 4. harfini  m olarak değiştirebilirsin.

Count Özelliği (karekter Sayısı)

Sub Insert()
Msgbox Range("C3").Charactes.Count
End Sub

C3 hücresindeki kelimenin karakter sayısını bulabilirsin.

Delete Özelliği (Silme)

Sub MetinSil()
Range("C3").Charactes.delete
End Sub
Kod buton veya başka bir özellikle çalıştırıldığında,

C3 hücresindeki  karakterlerin silindiğini göreceksin.

Sum Özelliği (Toplama)

Sub toplama()
Msgbox WorksheetFunction.Sum.(Range("a1:a10"))
End Sub

a1 ve a10 hücrelerini toplar. Mesaj olarak bildirir.