Public Sub bb()
a = Sheets("¤u§@ªí2").Range("P3") + 1
b = Sheets("¤u§@ªí2").Range("P3") + Sheets("¤u§@ªí2").Range("P4") + 1
For I = a To b
'¿ï¨ú¤é´Á¤§«áªºÂI
ActiveSheet.ChartObjects("¹Ïªí 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(I).Select
'±N¿ï¨úªºÂI¡ASize§ï¬°10
Selection.MarkerSize = 10
Next
End Sub