انشاء مخطط بياني تلقائي

[mohad2004]

السلام عليكم و رحمة الله

لدي استفسار بخصوص انشاء رسم بياني بكبسة زر هل يوجد طريقة لتنفيذها بمعنى انه عند الضغط على الخلية المكتوب فيها اسم المؤشر يتم تلقائي تنفيذ الرسم البياني بناء على المعطيات.

مرفقا ادناه الملف

مشكور مقدماً

 

Book1.zip

[Ali Mohamed Ali]

وعليكم السلام -منور المنتدى

يمكنك استخدام هذا الكود

Sub salesvalues()
 Dim chtChart As Chart
   'Create a new chart.
   Set chtChart = Charts.Add
   Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí")
   With chtChart
      '.Name = ""
      
      .ChartType = xlColumnClustered
      'Link to the source data range.
      .SetSourceData Source:=Sheets("ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí").Range("C4:N8"), _
         PlotBy:=xlRows
      .HasTitle = True
      .ChartTitle.Text = "Sales by Customer"
      .Axes(xlCategory, xlPrimary).HasTitle = True
      .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Customer"
      .Axes(xlValue, xlPrimary).HasTitle = True
      .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total Sales"
   End With
End Sub

وفى هذا الرابط سوف ترى شرح أخر

https://www.computerna.com/excel-chart/

تم تعديل أبريل 1, 2019 بواسطه ali mohamed ali

[mohad2004]

مشكور على سرعة ردك

لكن الذي احتاجه هو اضافة زر (انشاء شارت) بحيث ان اضغط على اسم المؤشر و تلقائيا يتم انشاء الرسم البياني من غير تنفيذ خطوات اضافة الرسم البياني.

[mohad2004]

للرفع