تایتل نمودار بصورت پویا

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • rjfri

    • 2016/08/16
    • 236
    • 44.00

    [حل شده] تایتل نمودار بصورت پویا

    با سلام خدمت دوستان و اساتید
    درصورت داشتن اطلاعات پویا اگر بخواهیم نموداری رسم نمائیم به چه صورت میتوان تایتل نمودار را به محتویات یک سل ارتباط داد
    بعنوان مثال منویی با data validation تهیه شده حاوی ماههای سال. در صورت انتخاب هریک از ماهها ، تایتل نمودار نیز تغییر و بنام آن ماه شود
    سپاس از شما
  • rasools13

    • 2017/01/20
    • 360
    • 80.00

    #2
    با سلام

    بروی شیت ی که نمودار در آن قرار دارد کلیک راست کرده و ViewCode را انتخاب نمایید در پنجره باز شده کد ذیل را کپی کنید.
    .
    کد PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)
        
    Dim AA As String
        AA 
    Target.Address
        
    If AA "$O$8" Then
            ActiveSheet
    .ChartObjects("Chart 3").Activate
            ActiveChart
    .SetElement (msoElementChartTitleAboveChart)
            
    ActiveChart.ChartTitle.Text Target.Value
            Range
    ("O8").Select
        End 
    If
    End Sub 
    .
    حتما مقدار AA را در کدا برابر آدرس سلولی که میخواهید عنوان نمودار از آن فراخوانی شود قرار دهید به صورت آدرس مطلق یعنی 8$O$
    و بجای نام Chrt 3 نا نمودار خود را بنویسید
    یک نمونه در فایل پیوست قرار دارد
    فایل های پیوست شده
    [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
    [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
    [/CENTER]

    کامنت

    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67

      #3
      سلام
      سوالتونو احتمالا بد مطرح کردید!...
      به صورت پیش فرض خود اکسل این تغییر رو انجام میده!
      اگه منظورتون اتصال اون به یه سلوله که بحثش فرق داره و در فایل زیر که حاوی نمونه و یه ویدئوست نشون داده شده!
      لینک دانلود
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

      کامنت

      چند لحظه..