Bud دارای 50 یا 60 نام تعریف شده در یک ورک بوک است. در بسیاری از این موارد، او نیاز دارد هر رخدادی از Q$4 را به $Q$3 تغییر دهد. Bud می تواند اینها را در Name Manager جمع آوری کند و آنها را به صورت جداگانه ویرایش کند، اما نمی داند آیا راهی برای انجام آن به شیوه ای کمتر دستی وجود دارد.
دو راه وجود دارد که می توانید به این موضوع نزدیک شوید. اولین مورد این است که سعی کنید "تقلب" کنید و اکسل تغییر را انجام دهد. سلول فعلی Q3 را انتخاب کنید و سپس آن سلول را حذف کنید و سلول ها را به سمت بالا حرکت دهید. این کار Q4 فعلی را به Q3 منتقل می کند و اکسل باید همه مراجع (از جمله نام های تعریف شده) را به Q3 به روز کند.
البته، اگر حذف کردن، چیدمان کاربرگ شما را به هم بزند، کار نخواهد کرد. در این صورت، بهتر است از رویکرد دوم با تکیه بر یک کلان استفاده کنید. ماکرو به راحتی می تواند از هر یک از نام های تعریف شده عبور کرده و جایگزینی را انجام دهد. این یک مثال بسیار ساده است:
Sub ReplaceFormulasInNames()
Dim n As Integer
For n = 1 To Names.Count
Names(n).RefersTo = Replace(Names(n).RefersTo, "$Q$4", "$Q$3")
Next
End Sub
ماکرو ویژگی RefersTo را برای هر نام بررسی می کند و اگر حاوی متن $Q$4 باشد به $Q$3 تغییر می کند.
