Formül Dönüştür - Microsoft Excel

Bir excel formülünü normal başvuru stili şeklinde veya R1C1 başvuru stili şeklinde dönüştüren VBA kodudur.

Option Explicit

'Yeniden Duzenle
Sub FormulDonustur()
    On Error GoTo hata
    
    MsgBox Application.ConvertFormula( _
            Formula:=ActiveCell.Formula, _
            fromReferenceStyle:=xlR1C1, _
            toReferenceStyle:=xlA1), vbInformation, "Normal Başvuru"
    
    z = Application.ConvertFormula( _
            Formula:=ActiveCell.Formula, _
            fromReferenceStyle:=xlA1, _
            toReferenceStyle:=xlR1C1)
    
    MsgBox z, vbInformation, "R1C1 Stili"
    
    Data.SetText z
    Data.PutInClipboard

    Exit Sub
hata:

End Sub