آدرس دهی مطلق یک ناحیه

[khorasan66]

با سلام
چگونه می شود فرمول های شبیه به هم در یک ناحیه مثلا از A2 تا سلول F20 را با یک فرمان به فرمول هایی با آدرس های مطلق تبدیل نمود
روش های انتخاب تک تک فرمول ها و استفاده از F4 و یا با استفاده از Replace حروف به $ مد نظر نمی باشد.

[majid_mx4]

با سلام

دوست عزیز قسمتی که میخواهید فرمول تغییر کند را انتخاب کنید سپس از دستورات زیر استفاده نمایید.

Public Sub MakeAbsolute()
 Dim C As Range
 For Each C In Selection
 If C.HasFormula Then
 C.Formula = Application.ConvertFormula _
 (Formula:=C.Formula, _
 fromReferenceStyle:=xlA1, _
 toReferenceStyle:=xlA1, _
 toabsolute:=xlAbsolute)
 End If
 Next
 End Sub

با تشکر میر

[khorasan66]

تشکر بسیار عالی بود