お世話になります。教えてほしいことがあります。
私、小学校の教諭をしております。
成績表をつける時期になってきました。
私の学校では、A4用紙の表面に学習の様子、裏面には、行動の様子・出欠状況・委員会やクラブやクラスの係・総合的な学習や生活の時間の様子の記述を印刷します。2学期になれば、また、新しいA4用紙に同じことを印刷します。(毎学期、A4両面印刷したものを1枚、新しく作成して保護者に渡していくということです。)
個人の成績表とは別に、クラス全体としての成績一覧表を作らなければならないので、担任としては、成績一覧表を作ってしまえば、LOOKUP関数で、それが、個人の成績表に反映されていくというふうに作りました。(個人の用紙のある部分に出席番号を入れれば、氏名や各項目の◎、○、△、出席状況を表す数字などが自動的に入る)
ところが、これですと、1枚印刷するごとに、出席番号を入力し直して、また印刷ボタンを押さないといけませんよね。
これを、マクロを使って、たとえば自分のクラスが28人なら、自動で1番から28番までを印刷するという設定をしたいのですが・・・。
言っている意味が分かっていただけるとありがたいのですが、どなたか、ご存知の方、よろしくお願いします。かなり切羽詰ってます。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
細かい状況がわからないのですが、こんなでしょうか?
Sub sample()
Dim i As Integer
For i = 1 To 28 '1から28まで繰り返し
Range("A1").Value = i '出席番号のセル(たとえばA1)に番号を代入
ActiveSheet.PrintOut 'シートを印刷(印刷ボタンを押す)
Next
End Sub
必ず全部を印刷するとは限らない場合は一覧に[印刷]という列を用意しておいて、それをチェックする方法もあると思います。
一番現実的な方法は、ワードもあると思うので、成績一覧表はエクセルで作って、個人の成績表はワードで作って、エクセルで作った成績一覧表を差し込み印刷で印刷する方法だと思います。
No.4
- 回答日時:
Googleで「imogasi 請求書」で照会すると、過去の同様質問が多数出てきます。
その中でhttp://okwave.jp/qa2798008.html
の私の回答を見てください。
下記は頭のクリアなときに、じっくり読んでくださいよ。
(1)まず全生徒の成績データなどの表を作る
普通は形式は
ーー 国語 数学 ・・体育・・全体評価・・
山田
井上
木村
・・
のような2次元表でしょう(エクセルになじみやすいから)
ーー
(2)
個人別は
氏名 山田
国語 45
・・
総評 今期良くがっばった(文章)
のような、配置・フォント・サイズ、見出し、罫線など作者の自由な体裁になります。手作業で設定します。プログラムでも出来るが極力避けてやると言うこと。
ーー
(1)から(2)へデータを参照すること(2重入力しないと言うこと)で、全員分を自動で印刷する。そのためには(2)の各項目の中身を順次摩り替えて、摩り替えた瞬間に印刷という段取りになる。
それを私の提案では、(2)の印刷範囲外に、番号を入れるセルを要れ、その番号は(1)の表の何行目かを指定する番号である。
ほっといても番号はかわらない。そこでVBAで
(For Nextは下記iを順次変えて繰り返し実行させるVBAです)
For i=1 最終生徒行
iの指定で(2)の中身を整える
印刷
Next i
iの指定で(1)のデータ行を見て、その行の各列(項目)のデータを(2)に持ってくるテクニックはINDEX関数で出来る。VBAでも出来るが避けているのですよ。
ーー
簡単化したテストをやってみよう
例データ Sheet1A1:C3
---国語数学
山田4556
井上5966
Sheet2 A1セルは番号を入れる場所(実際はプログラムが)
レイアウトを
B3セル氏名X
C5セル数学Y
C7セル国語X
Xの式は=INDEX(Sheet1!$A$1:$C$100,$A$1,1)
Yの式は=INDEX(Sheet1!$A$1:$C$100,$A$1,2)
Zの式は=INDEX(Sheet1!$A$1:$C$100,$A$1,3)
最後の引数がデータを(1)から持ってくる列を示す。
Shhet2の結果
3
氏名X井上
数学Y59
国語X66
ーー
A1を2と3に変えてSheet2の内容が変わることを納得のこと。
ーー
後は
Sub test01()
d = Worksheets("Sheet1").Range("A65536").End(xlUp).Row 'Sheet1A列最終行数取得
For i = 2 To d 'Sheet2の第2行から第d行まで繰り返し
Range("A1") = i 'Sheet2のG1セルに行数をセット
Range("A2:E10").PrintOut '印刷範囲は実情に合わせ
Next i
End Sub
を実行すると、全生徒分が印刷されるはず。
行指定のA1セルの位置はどこでも良い。
少し変えると、印刷しそこなったや、データが間違っていた
生徒の1枚だけ印刷も出来る。
14行目ならFor i = 14 To 14 に変えて実行すると良い。
No.3
- 回答日時:
わからないマクロをいじるよりも、No1様の回答の方法の方が確実ですね。
それで、丁度、良いテーマができたのでご自分でマクロをじっくりと作成してみるとか…
例えば、
1)出席番号のセルに順番に、各出席番号を代入する。
2)表示されているシートを印刷する。
練習として、1)、2)のマクロを作成してみれば、後は組み合わせればいいだけなので簡単です。
(かなりの部分が自動記録でもで作成できると思います。)
途中で判らないことがあれば、その部分について具体的に質問なされば、良い回答が得られることでしょう。
No.2
- 回答日時:
>これを、マクロを使って、たとえば自分のクラスが28人なら、自動で1番から28番までを印刷するという設定をしたいのですが・・・。
で、何ができないのですか?丸投げですか?
教師ならもっと質問の仕方があるでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- プリンタ・スキャナー コンビニのマルチコピーの性能について教えて下さい。 5 2023/05/10 03:05
- PDF 2つのPDFを重ねる方法はありますか? 4 2023/01/30 14:04
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
コンビニでpdfを四つで一つにし...
-
エクセルで「白字」を印刷した...
-
Excel フィルタをかけた後の各...
-
Edge、[画面で選択されたとおり...
-
画面通りに印刷されず(Word2013)
-
違うページが印刷される
-
ワードで背景の画像を印刷しな...
-
何もしていないのに印刷したら...
-
ワードの差込印刷部分の背景部...
-
WORD 印刷すると文字が重なる
-
PDFの仕上がり順番
-
Word中のExcelの文字の色が印刷...
-
PDF-XChange Editorのテキスト...
-
かんたんPDF EDITで文字を書き...
-
ネットのページをPDFで保存して...
-
ho-cadでの文字(A)の印刷の文...
-
ワードで印刷時にページ指定が...
-
PDFファイルの選択した部分...
-
indeedのweb求人内容を印刷した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
ワードでオートシェイプの印刷...
-
wordで、図が印刷されない???
-
エクセルで「白字」を印刷した...
-
Excel フィルタをかけた後の各...
-
何もしていないのに印刷したら...
-
ワードの差込印刷部分の背景部...
-
コンビニでpdfを四つで一つにし...
-
画面通りに印刷されず(Word2013)
-
WORD 印刷すると文字が重なる
-
PDF-XChange Editorのテキスト...
-
wordで印刷の頁順を変えたい
-
Word文書内のオートシェイプが...
-
Edge、[画面で選択されたとおり...
-
ファミマでPDFを両面印刷したの...
-
作成中のメールを印刷する方法...
-
indeedのweb求人内容を印刷した...
-
ワードで背景の画像を印刷しな...
-
Thunderbirdで選択個所だけの印刷
-
ワードで1ページだけ印刷出来ない
おすすめ情報