mohad2004 قام بنشر أبريل 1, 2019 مشاركة قام بنشر أبريل 1, 2019 السلام عليكم و رحمة الله لدي استفسار بخصوص انشاء رسم بياني بكبسة زر هل يوجد طريقة لتنفيذها بمعنى انه عند الضغط على الخلية المكتوب فيها اسم المؤشر يتم تلقائي تنفيذ الرسم البياني بناء على المعطيات. مرفقا ادناه الملف مشكور مقدماً Book1.zip رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أبريل 1, 2019 مشاركة قام بنشر أبريل 1, 2019 (معدل) وعليكم السلام -منور المنتدى يمكنك استخدام هذا الكود 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 2 رابط هذا التعليق شارك More sharing options...
mohad2004 قام بنشر أبريل 1, 2019 الكاتب مشاركة قام بنشر أبريل 1, 2019 مشكور على سرعة ردك لكن الذي احتاجه هو اضافة زر (انشاء شارت) بحيث ان اضغط على اسم المؤشر و تلقائيا يتم انشاء الرسم البياني من غير تنفيذ خطوات اضافة الرسم البياني. رابط هذا التعليق شارك More sharing options...
mohad2004 قام بنشر أبريل 2, 2019 الكاتب مشاركة قام بنشر أبريل 2, 2019 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.