Excel'le Adım Adım Program Yazma

Aktif hücreye çift tıklamayla tarih ekleme

Private Sub Workbook_SheetBeforeDoubleCli ck(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date
End Sub

Aktif hücreyi 1 artır

Aktif hücre değerini bir artır.
Sub addme()
i = ActiveCell
 ActiveCell.Value = (i + 1)
End Sub

Aktif hücreyi 1 eksilt

Aktif hücre değerini bir artır.
Sub addme()
i = ActiveCell
 ActiveCell.Value = (i -1)
End Sub

Aktif hücreyi 30 artırma

Sub artir_30()
Dim pir
pir = ActiveCell + 30
ActiveCell = pir
End Sub

Aktif hücreyi listbox ve textboxa alma (spinbutton kullanarak)

Private Sub SpinButton1_SpinUp()
On Error Resume Next
ActiveCell.Offset(-1, 0).Select
TextBox1 = ActiveCell
Call UserForm_Initialize
End Sub

Private Sub SpinButton1_SpinDown()
On Error Resume Next
ActiveCell.Offset(1, 0).Select
TextBox1 = ActiveCell
Call UserForm_Initialize
End Sub

Private Sub SpinButton2_SpinDown()
On Error Resume Next
ActiveCell.Offset(0, -1).Select
TextBox1 = ActiveCell
Call UserForm_Initialize
End Sub

Private Sub SpinButton2_SpinUp()
On Error Resume Next
ActiveCell.Offset(0, 1).Select
TextBox1 = ActiveCell
Call UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.AddItem (ActiveCell)
TextBox1.Text = ""
TextBox1 = ActiveCell
End Sub

Aktif hücreyi seçince yakınlaştırıp uzaklaştırma (c2 hücresi)

Sayfanın kod bölümüne
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Row = 2 And Target.Column = 3 Then 'für Zelle C2, ggf. anpassen
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Aktif kitabın email penceresi

Sub EmailWorkbook()
    Application.Dialogs(xlDialogSendMail).Show
End Sub

Aktif kolonu seçer.

Sub aktifkolon()
ActiveCell.EntireColumn.Selec t
End Sub

Aktif olan çalışma kitabı pencerelerini minimize etme


Sub Red_Class()
    Dim i As Integer
    For i = 1 To Workbooks.Count
        Workbooks(i).Activate
        ActiveWindow.WindowState = xlMinimized
    Next i
End Sub

Aktİf olan hÜcre renklensİn...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells.Interior.ColorIndex = xlNone
End Sub

Aktif olan hücrede veri varsa ad tanımlar


Sub AddName3()
Dim rngSelect As String
rngSelect = Selection.Address
ActiveSheet.Names.Add Name:="MyRange3", RefersTo:="=" & rngSelect
End Sub

Aktİf olan vİsual basİc formunun kapatilmasi


Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub


Hüseyin Bey 'de böyle algılamış olacak ki Command1 yerine CommandButton1 yazmış. VB de de aynı kod geçerli olacaktır.

Kod:
Private Sub Command1_Click()
    Unload Form1
End Sub


Hide ile Unload arasındaki fark bu. O halde başka bir düğme ile formu tekrar aktif yapmak isterseniz Initialize olayını kullanmalısınız. Eğer Hüseyin Bey'in dediği gibi gizlemişseniz o zman Activate olayını kullanmalısınız.

O halde özet yapacak olursak.

Hide ----> Activate
Unload ---> VBA için Initialize , VB için Load

Aktif pencerenin başlığına kullanıcı adını atar

Sub UserName()
ActiveWindow.Caption = ActiveWindow _
.Caption & " " & Application.UserName
End Sub

Aktif satırda hafta sonlarını işaretler

Sub haftasonuisaretle()
For Each oCell In Range(Cells(1, 4), Cells(1, 14))
If Weekday(oCell.Value) = 7 Or Weekday(oCell.Value) = 1 Then
With oCell.Interior
.Pattern = xlGray16
.PatternColorIndex = 42
End With
End If
Next oCell
End Sub

Aktif satırdan itibaren tek tek alt satırı seçer


Sub selectionrowscount()
Dim ZeileAnfang As Integer
Dim ZeileEnde As Integer
Dim SpalteAnfang As Integer
Dim SpalteEnde As Integer
SpalteAnfang = Selection.Column
SpalteEnde = Selection.Columns.Count
ZeileAnfang = Selection.Row
ZeileEnde = Selection.Rows.Count
ZeileAnfang = ZeileAnfang
ZeileEnde = ZeileEnde + ZeileAnfang
SpalteEnde = SpalteEnde + SpalteAnfang - 1
Range(Cells(ZeileAnfang, SpalteAnfang), Cells(ZeileEnde, SpalteEnde)).Select
End Sub