Gerry یک ورک بوک حاوی 22 کاربرگ دارد. هر کاربرگ حدود 20 نظر دارد. برخی از نظرات به یک بخش شرکت اشاره می کنند. او می خواهد یک جستجوی انبوه انجام دهد و نظرات را جایگزین کند تا هر مرجع را پیدا کند (مثلاً "بخش ABC") و آن را با چیز دیگری جایگزین کند (مثلاً "شرکت تابعه XYZ").
هیچ راهی برای انجام این کار بدون استفاده از ماکرو وجود ندارد. قابلیت یافتن و جایگزینی معمولی در اکسل به شما اجازه نمی دهد متنی را در نظرات پیدا کنید، اما می توانید از دستورات ماکرو استفاده کنید. زیر یک ماکرو ساده برای جایگزینی است:
Sub ReplaceComments()
Dim cmt As Comment
Dim wks As Worksheet
Dim sFind As String
Dim sReplace As String
Dim sCmt As String
sFind = "ABC Division"
sReplace = "XYZ subidiary"
For Each wks In ActiveWorkbook.Worksheets
For Each cmt In wks.Comments
sCmt = cmt.Text
If InStr(sCmt, sFind) <> 0 Then
sCmt = Application.WorksheetFunction. _
Substitute(sCmt, sFind, sReplace)
cmt.Text Text:=sCmt
End If
Next
Next
Set wks = Nothing
Set cmt = Nothing
End Sub
خطوط کلیدی در اینجا خطوطی هستند که متغیرهای sFind و sReplace را تنظیم می کنند. شما باید آن ها را طوری تنظیم کنید که به ترتیب آنچه را که جستجو می کنید و می خواهید با چه چیزی جایگزین شود، منعکس کنند. ماکرو از هر نظر در هر کاربرگ ورک بوک فعلی عبور می کند و تغییرات را در هر جایی که قرار دارد انجام می دهد.
