پرسش استفاده از قابلیت f&r در چارتها

[Masih60]

سلام

آیا روشی وجود داره که بشه از قابلیت Find and Replace در قسمت Source Data مربوط به چارتها استفاده کرد؟ فرض کنید 100 عدد چارت وجود داره که توی قسمت Source Data همه به سلول R25 اشاره شده و میخوام همه رو به R80 تغییر بدم.

با تشکر

[Masih60]

واقعاً هیچ راهی نداره؟!

[M_ExceL]

سلام

آیا روشی وجود داره که بشه از قابلیت Find and Replace در قسمت Source Data مربوط به چارتها استفاده کرد؟ فرض کنید 100 عدد چارت وجود داره که توی قسمت Source Data همه به سلول R25 اشاره شده و میخوام همه رو به R80 تغییر بدم.

با تشکر

سلام،
کد زیر سری تمام چارت هارو در کل شیت ها بررسی میکنه سپس R80 رو جایگزین R25 میکنه :

Sub ChangeAllCharts()
    Dim sht As Worksheet
    Dim cht As ChartObject
    Dim ser As Series
   
    For Each sht In ActiveWorkbook.Worksheets
        For Each cht In sht.ChartObjects
            For Each ser In cht.Chart.SeriesCollection
                ser.Formula = Replace(ser.Formula, "$R$25", "$R$80")
            Next ser
        Next cht
    Next sht
End Sub

یا حق.