به نظر گری آسان تر است که فرمول هایی را که از منابع سلولی R1C1 استفاده می کنند کنار هم قرار دهد. او می داند که چگونه این کار را هنگام اضافه کردن دستی فرمول ها به یک کاربرگ انجام دهد، اما تعجب می کند که چگونه می تواند از ارجاعات R1C1 در فرمول هایی استفاده کند که با هم جمع می کند و با استفاده از یک ماکرو در سلول ها قرار می دهد. او فکر می کند که آیا چیزی وجود دارد که او باید هنگام انجام این کار مراقب آن باشد.
هنگامی که به طور معمول یک فرمول را در یک سلول قرار می دهید، از این نوع نحو در ماکرو خود استفاده می کنید:
Cells(3,1).Formula = "=A1 + A2"
Range("A3").Formula = "=A1 + A2"
هر کدام از اینها به خوبی کار خواهند کرد. هر دو یک فرمول ساده را در سلول A3 قرار می دهند. با این حال، اگر می خواهید از ارجاعات R1C1 در فرمولی که در سلول A3 قرار می دهید استفاده کنید، فقط باید ویژگی Formula را به ویژگی FormulaR1C1 تغییر دهید:
Cells(3,1).FormulaR1C1 = "=R1C1 + R2C1"
Range("A3").FormulaR1C1 = "=R1C1 + R2C1"
جالب است بدانید که اگر فرمول های R1C1 بالا را در یک سلول قرار دهید و صفحه کاری صفحه نمایش R1C1 را روشن نکرده باشد، اکسل فرمول را به گونه ای تبدیل می کند که نمایشگر فعال را منعکس کند. به عبارت دیگر، به طور خودکار "=R1C1 + R2C1" را به "=$A$1 + $A$2" تغییر می دهد. عکس آن نیز صادق است - فرمول "=A1 + A2" را در یک سلول قرار دهید و اگر صفحه نمایش R1C1 را روشن کرده باشید، به صورت "=R[-2]C + R[-1]C" نمایش داده می شود.
همچنین باید توجه داشته باشید که از آنجایی که Formula و FormulaR1C1 هر دو ویژگی هستند، می توانید آنها را بخوانید و فرمول موجود در سلول را با فرمت دلخواه ببینید. به عنوان مثال، فرض کنید سلول A3 حاوی فرمول "=A1 + A2" است. اگر ماکرو زیر را اجرا کنید، فرمول را در فرمت های مورد نظر خواهید دید:
Sub TestFormula()
Dim sMsg As String
sMsg = "Regular format: " & Cells(3,1).Formula & vbCrLf
sMsg = sMsg & "R1C1 format: " & Range("A3").FormulaR1C1
MsgBox sMsg
End Sub
