Kod:
Sub FormulGir()
Dim Hedef As Range
Dim J As Integer
Dim EDForm As String
Dim EDMod As String
Set Hedef = ActiveSheet.Range(ActiveWindow.Selection.Address)
EDMod = InputBox("Formul Ekleyin")
If EDMod > "" Then
For J = 1 To Hedef.Cells.Count
If Hedef.Cells(J).HasFormula Then
EDForm = Hedef.Cells(J).Formula
EDForm = "=(" & Mid(EDForm, 2, 500) & ")"
EDForm = EDForm & EDMod
Hedef.Cells(J).Formula = EDForm
Else
EDForm = "=" & Hedef.Cells(J).Value & EDMod
Hedef.Cells(J).Formula = EDForm
End If
Next J
End If
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.