سلام دوستان ، فایلی رو پیوست می کنم. میخواستم ببینم نحوه ایجاد این نمودار چگونه است و چطور ارتباط به لیست کشوئی و نمودار ایجاد شده است . پیشاپیش بسیار ممنونم
-
-
سلام دوست عزیزاگر وارد بخش برنامه نویسی اکسل به زبان ویژوال بیسیک بشین (Alt+F11) یه ماژول هست که داخلش کد بالا رو نوشتن. در این ماژول یک ساب به نام SelectTable تعریف شده که توش گفته هرکدوم از گزینه های منوی کشویی انتخاب شد چارت رو از روی شیت مرتبط به خودش بسازه کنه. و بعد اگر روی منوی کشویی راست کلیک کنید Assign Macro رو بزنید میبینید که ساب SelectTable رو به اون نسبت داده و با این کار اتصال بین کد نوشته شده رو و اون DropDownList یا منوی کشویی برقرار کرده.کد PHP:Sub SelectTable()
With ActiveSheet.Shapes(Application.Caller).ControlFormat
If ActiveSheet.Shapes(Application.Caller).Name = "Drop Down 1" Then
Worksheets("Chart").ChartObjects("Chart 1").Chart.SetSourceData Source:= _ Range(.List(.Value) & "[#All]")
Worksheets("Chart").ChartObjects("Chart 1").Chart.PlotBy = xlRows
End If
End With
End Sub
اگر جایی مبهم هست بفرمایید در خدمتم.[CENTER][COLOR=#696969][FONT=lucida console]... [B]Programming [/B]C# - VB.Net - VC++ - ASP.Net - HTML - CSS - JS - AS2 - AutoIt - Pascal - Delphi - PHP - Python - VBA - Etc
[/FONT][/COLOR][SIZE=2][FONT=lucida console][COLOR=#808080]... 2D & 3D [B]Graphic Designer[/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] 2D & 3D [B]Animator [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Game [/B]Designer & [B]Hacker [/B][/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] Data [B]Forensic [/B]Expert [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Ethical [/B]Hacker [/COLOR][COLOR=#ff0000][B]|[/B][/COLOR][COLOR=#808080] [B]Pen[/B] Tester
[/COLOR][/FONT][/SIZE][COLOR=#ff0000][FONT=courier new][SIZE=4][B].: Expert in doing what nobody else can :.[/B][/SIZE][/FONT][/COLOR][/CENTER] -
باسلام
دوست عزیز
اگر سربرگ Developer خود را در اکسل فعال کنید و در محیط VBA قرار بگیرید مشاهده می کنید که ماکرو زیر برای ارتباط چارت و منوی کشویی نوشته شده است:
Sub SelectTable()
With ActiveSheet.Shapes(Application.Caller).ControlForm at
If ActiveSheet.Shapes(Application.Caller).Name = "Drop Down 1" Then
Worksheets("Chart").ChartObjects("Chart 1").Chart.SetSourceData Source:= _
Range(.List(.Value) & "[#All]")
Worksheets("Chart").ChartObjects("Chart 1").Chart.PlotBy = xlRows
End If
End With
End Subکامنت
کامنت