Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


37219 / 76732 ←次へ | 前へ→

【44686】成績表にグラフを入れるマクロ
質問  オイスター  - 06/11/28(火) 21:23 -

引用なし
パスワード
   みなさま、お忙しいところ申し訳ありませんが、お知恵をお貸しください。

現在、学校の成績表を作っています。生徒が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

0 hits

【44686】成績表にグラフを入れるマクロ オイスター 06/11/28(火) 21:23 質問
【44688】Re:成績表にグラフを入れるマクロ maverick 06/11/28(火) 23:07 回答
【44718】Re:成績表にグラフを入れるマクロ オイスター 06/11/29(水) 20:21 質問
【44720】Re:成績表にグラフを入れるマクロ maverick 06/11/29(水) 22:52 回答
【44721】Re:成績表にグラフを入れるマクロ ichinose 06/11/29(水) 23:46 発言
【44763】Re:成績表にグラフを入れるマクロ オイスター 06/11/30(木) 21:07 お礼

37219 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free