مقایسه ی اعداد در نمودار

[samin_panahi]

سلام
یه سری شماره دانشجویی دارم و برای هر شماره دانشجویی هم یه نمره
می خوام یه نمودار بکشم که محور افقی شماره دانشجویی باشه محور عمودی نمره
بعد تو نمودار نمرات اونایی که کمتر از 10 شده قرمز باشه، 10 تا 15 آبی بالای 15 هم مشکی
ممنون می شم راهنماییم کنید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

خدمت شما دوست گرامی

[samin_panahi]

خیلی ممنون، فقط اینو چه جوری درست کردید؟
شرط رو کجا باید وارد کرد؟

[mokaram]

خیلی ممنون، فقط اینو چه جوری درست کردید؟
شرط رو کجا باید وارد کرد؟

تو خونه های D1 و E1 در شیت سورس شرط نوشته شده (البته اگه شما با VBA آشنایی نداشته باشی کارت سخت میشه )

[masoudian]

یه نوع دیگه هم من درست کردم که پیوست شد

[samin_panahi]

تو خونه های D1 و E1 در شیت سورس شرط نوشته شده (البته اگه شما با VBA آشنایی نداشته باشی کارت سخت میشه )

متاسفانه آشنایی ندارم
البته خودم برنامه نویسی می کنم ولی این زبان رو تاحالا کار نکردم
چطور می شه اینو یاد گرفت؟ فعلا همین مساله برام مهمه، نمی خوام همش رو یاد بگیرم!

[masoudian]

این فایلی که من تهیه کردم نیاز به vba نداره با همون شرطهای ساده اکسل رسم میشه اکه تو خونه های مربوط به داده های نمودار کلیک کنید خیلی راحت متوجه میشید بازم اگر سوالی بود در خدمتم

[samin_panahi]

یه نوع دیگه هم من درست کردم که پیوست شد

ممنون

[samin_panahi]

این فایلی که من تهیه کردم نیاز به vba نداره با همون شرطهای ساده اکسل رسم میشه اکه تو خونه های مربوط به داده های نمودار کلیک کنید خیلی راحت متوجه میشید بازم اگر سوالی بود در خدمتم

متوجه نشدمش
فقط اون تیکه که شرط گذاشتید و اعداد رو طبقه بندی کردید برام مفهوم بود
بقیه ش رو نمی دونم چکار کردید!

[samin_panahi]

تو خونه های D1 و E1 در شیت سورس شرط نوشته شده (البته اگه شما با VBA آشنایی نداشته باشی کارت سخت میشه )

چون خودم برنامه نویسم کد ها رو کم و بیش متوجه می شم
فقط اینکه راهنمایی کنید برای این کار قدم به قدم چکار کنم ممنون می شم
اول جدول رو با اطلاعاتش وارد می کنم
بعد چارت می کشم؟
....

کدش همینه؟
کجا باید کد بنویسم؟

Private Sub Worksheet_Activate()
Dim c As Range
Dim i As Integer
  i = 1
For Each c In Sheet1.Range("b3:b15")
    If c.Value < Sheet1.Range("d1").Value Then
        Sheet2.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Select
        ActiveChart.SeriesCollection(1).Points(i).Select
        With Selection.Format.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(255, 0, 0)
        End With
    ElseIf c.Value >= Sheet1.Range("d1").Value And c.Value < Sheet1.Range("e1").Value Then
            ActiveSheet.ChartObjects("Chart 1").Activate
            ActiveChart.SeriesCollection(1).Select
            ActiveChart.SeriesCollection(1).Points(i).Select
            With Selection.Format.Fill
                .Visible = msoTrue
                .ForeColor.RGB = RGB(0, 255, 255)
            End With
    End If
    If c.Value > Sheet1.Range("e1").Value Then
        Sheet2.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Select
        ActiveChart.SeriesCollection(1).Points(i).Select
        With Selection.Format.Fill
            .Visible = msoTrue
            .ForeColor.RGB = RGB(0, 0, 0)
        End With
    End If
    i = i + 1
Next
End Sub

همینا رو اینجوری قدم به قدم بگید ممنون می شم