ردیابی اطلاعات ماهانه، از هر نوع، در یک ورک بوک غیرعادی نیست. شما ممکن است هزینه ها، فروش، حرکات موجودی، قیمت سهام یا هر یک از هزاران چیز دیگر را ردیابی کنید. هنگامی که یک ماه جدید را شروع می کنید، می توانید یک کپی از ورک بوک ماه های قبل تهیه کنید و سپس به دنبال راهی برای ایجاد تغییرات در نام ماه باشید که در مکان های مختلف کپی جدید ایجاد شده ظاهر می شود.
اگر نام ماهی که می خواهید تغییر دهید به عنوان متن در کاربرگ های مختلف ذخیره می شود، می توانید از ویژگی یافتن و جایگزینی Excels برای ایجاد تغییرات استفاده کنید. فقط این مراحل را دنبال کنید:
- روی برگه اولین کاربرگ که می خواهید در آن تغییرات ایجاد کنید کلیک کنید.
- کلید Shift را با کلیک بر روی برگه آخرین کاربرگ که می خواهید در آن تغییرات ایجاد کنید، نگه دارید . همه کاربرگ هایی که می خواهید تغییر دهید اکنون باید انتخاب شوند.
- Ctrl+H را فشار دهید تا تب Replace در کادر محاوره ای Find and Replace نمایش داده شود.
- در کادر Find What نام ماه های قدیمی را وارد کنید.
- در کادر Replace With نام ماه های جدید را وارد کنید.
- روی Replace All کلیک کنید.
- کادر گفتگوی Find and Replace را ببندید.
اگر این مراحل نام ماه خاصی را همانطور که در ورک بوک شما نشان می دهد تغییر نمی دهد، ممکن است به این دلیل باشد که نام ماه در واقع متن نیست، بلکه یک مقدار تاریخ است که فقط ماه را نشان می دهد. در این صورت، نمی توانید از Find and Replace استفاده کنید. در عوض شما باید به سادگی مقدار تاریخ ذخیره شده در سلول را تغییر دهید.
اگر راهی سریع برای تغییر نام ماه ها در برگه های کاربرگ می خواهید، کمی پیچیده تر است. ویژگی یافتن و جایگزینی اکسل ها متن را در نام برگه ها پیدا یا جایگزین نمی کند. به طور معمول آنها باید با دست انجام شوند، اما اگر تعداد زیادی از آنها را دارید، ممکن است بخواهید یک ماکرو ایجاد کنید که تغییرات را برای شما انجام دهد. ماکرو زیر متنی را که جستجو می کنید و متنی را که می خواهید جایگزین آن کنید، از شما می خواهد. سپس، از هر برگه کاربرگ عبور کرده و تغییرات را برای شما ایجاد می کند.
Sub TabReplace()
Dim sFind As String
Dim sReplace As String
Dim s As Object
sFind = InputBox("Text to find?")
sReplace = InputBox("Replace it with?")
If (sFind & sReplace) > "" Then
For Each s In Sheets
s.Name = Replace(s.Name, sFind, sReplace)
Next s
End If
End Sub
این ماکرو خیلی سریع اجرا می شود، اما مطمئناً بی خطا نیست. این امکان وجود دارد که کاربر بتواند نویسه های غیرقانونی را در مواردی که جستجو می شود یا آنچه که با آن جایگزین می شود وارد کند. اگر تصمیم دارید اغلب از یک ماکرو مانند این استفاده کنید، باید آن را تغییر دهید تا آنچه را که کاربر وارد می کند آزمایش کنید.
حتی اگر مراحل (و ماکرو) ارائه شده در اینجا می تواند کار به روز رسانی ورک بوک شما را آسان تر کند، باز هم ممکن است ساده تر باشد که به سادگی درباره نحوه انجام کار خود تجدید نظر کنید. ممکن است ساده تر باشد که یک سلول حاوی نام ماه های جاری باشد و سپس آن نام را در سلول های مناسب در سراسر ورک بوک ارجاع دهید. سپس، تنها کاری که باید انجام دهید این است که نام ماه را در یک سلول واحد تغییر دهید، و در جای دیگر، به طور خودکار تغییر خواهد کرد. در سایر ExcelTips شما حتی یاد گرفتید که چگونه می توانید به صورت پویا نام یک برگه را بر اساس محتویات یک سلول خاص تغییر دهید.
