Amaç 1: Variable (değişken) deklare etmek Sub variableName() Dim MüşteriAdı As String Dim Ciro As Currency Dim Risk As Integer Dim Tarih As Date Dim Tarih As Boolean (TRUE or FALSE) Dim X As Range End Sub Not: Bütün kodlar Sub xxx() ve End Sub arasında yazılır. Sonraki örneklerde bu ihmal edilecek… Not: As Range için Amaç 11’e bak Amaç 2: Ekrana o günün tarihini getiren bir pop-up penceresi aç Dim i As Date i = Date MsgBox (i) Amaç: A1 hücresinde 1000'den büyük bir değer varsa ekrana yazdır ve 0,1 koordinatındaki hücreyi kırmızı yap Range("A11").Select If ActiveCell > 1000 Then MsgBox (ActiveCell) Else ActiveCell. Offset( 0, 1).Interior.Color = vbRed End If Not: (0,1) (X,Y) (satır, sütun) Not: offset ile aktif hücreye göre başka bir hücre tarif edilir Amaç 3: Açılan inputbox’a girdiğin tarih bugünün tarihinden 30 gün sonrasından sonrası ise veya 20 gün öncesinden öncesi ise; girdiğin tarihin ayını ...