VBA:
Sub Hesapla()
ExcelDepo:
z = InputBox("Zam oranını girin (Ondalık sayı ise virgülle ayırın)")
If Not IsNumeric(z) Then
msgbox "Sadece Sayı Giriniz."
GoTo ExcelDepo
End if
Range("A1") = (z + 100) / 100
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.