|
みなさま、お忙しいところ申し訳ありませんが、お知恵をお貸しください。
現在、学校の成績表を作っています。生徒が300人ほどいますが、校内模試の個人個人の結果をグラフとともに一人ずつ成績表にして印刷し、返却したいと思っています。
グラフを入れずに成績表マクロを作成するとすんなりといくのですが、グラフを入れたとたんに「Cellsメソッドは失敗しました。Globalオブジェクト」と警告が出ます。
Sheet1には、とりあえず3名の得点があります。
A1から横に「名前」「国語」「英語」「社会」
A2から横に「ちあき」+3教科の個々の得点
A3から横に「しのぶ」+3教科の個々の得点
A4から横に「ゆり」+3教科の個々の得点
Sheet2に「レーダー」グラフを出そうと思い、以下のマクロを作成してみました。皆様からすれば、非常に無駄の多いマクロだと思われますが、初心者ですので、このまま微修正を頂ければ幸いです。
どうぞよろしくご指導ください。失礼します。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2006/11/28 ユーザー名 : TARA SHIZUYA
'
'
For k = 2 To 4
Charts.Add
ActiveChart.ChartType = xlRadarMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Cells(k, 2), Cells(k, 4)), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R1C2:R1C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
ActiveChart.HasTitle = False
ActiveWindow.Visible = False
Windows("Book1").Activate
Next k
Range("A1").Select
End Sub
|
|