|
|
|
If Cells(i + 1, 1) = "TASI" Then 'عرض الرسم البياني في حالة المؤشر العام للسوق السعودي Dim startCandle% startCandle = UBound(candles) - 100 'عرض آخر مئة شمعة For j = startCandle To UBound(candles) 'وضع قيم المئة شمعة على الترتيب بخلايا الإكسل Cells(j - startCandle, 12) = candles(j).DATE 'تاريخ الشمعة Cells(j - startCandle, 13) = candles(j).OPEN 'ثم الافتتاح Cells(j - startCandle, 14) = candles(j).HIGH 'ثم أعلى سعر Cells(j - startCandle, 15) = candles(j).LOW 'ثم أدنى سعر Cells(j - startCandle, 16) = candles(j).CLOSE 'ثم الإغلاق للشمعة Next j Charts.Add 'إضافة رسم بياني جديد With ActiveChart 'تغيير خصائص الرسم البياني الذي تم إضافته بالسطر السابق .ChartType = xlStockOHLC 'تحديد نوع الرسم شموع يابانية .SetSourceData Source:=Sheets("Sheet1").Range("L1:P100") 'تحديد خلايا البيانات المراد رسمها .HasTitle = True 'عرض العنوان .ChartTitle.Text = "رسم بياني للمؤشر العام للسوق السعودي" 'تحديد نص العنوان .Axes(xlValue, xlPrimary).HasTitle = True 'عرض عنوان محور السعر .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "الســـــعـــــــــر" 'تحديد نص عنوان محور السعر .Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale 'تحديد ترتيب محور التاريخ بحيث 'يكون بالترتيب ولا يترك فراغات عند أيام الأجازات .Axes(xlCategory, xlPrimary).TickLabels.Orientation = 45 'تحديد زاوية 45 درجة لعرض محور التاريخ .Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "dd mmmm yyyy - hh:mm" 'تحديد نمط عرض التاريخ .HasLegend = False 'إخفاء مربع وصف الرسم لا نحتاجه With .ChartGroups(1) If .HasUpDownBars = True Then .UpBars.Interior.ColorIndex = 10 'تحديد لون الشموع الصاعدة بالأخضر .DownBars.Interior.ColorIndex = 3 'تحديد لون الشموع الهابطة بالأحمر End If End With .PlotArea.Format.Fill.ForeColor.RGB = RGB(230, 220, 240) 'تحديد لون خلفية الرسم البياني .PlotArea.Format.Line.Visible = msoCTrue 'إظهار خط إطار حول الرسم البياني لتحديده .PlotArea.Format.Line.Style = msoLineSingle 'تحديد نوع خط الإطار المحيط بالرسم البياني .PlotArea.Format.Line.Weight = 2 'تحديد ثقل خط الإطار المحيط بالرسم البياني .ChartArea.Format.Line.Visible = msoFalse 'إخفاء الإطار الداخلي بالرسم البياني End With ActiveWorkbook.Sheets("Sheet1").Activate 'انتهينا من الرسم البياني، الآن نقوم بالعودة لجدول الإكسل لتكملة كتابة البيانات End If
الكلمات الدلالية (Tags) |
لتحليل, لربط, إصنع, والتاريخية, اللحظية, الإكسل, البيانات, احترافية, excel, برنامجك, دورة |
أدوات الموضوع | |
تعليمات المشاركة |
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
الابتسامات متاحة
كود [IMG] متاحة
كود HTML معطلة
|