-PR-
解決済み

excelのindex関数

  • すぐに回答を!
  • 質問No.46843
  • 閲覧数79
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 80% (20/25)

中学校の卒業生に、小中学校を通してどれだけ身長などが成長したかを一覧にしたプリントを渡すための準備をしています。
sheet1に3年生全員の名前、身長体重の遍歴を打ち込み、
index関数を用いて欄外の小さな表に通し番号を
入力すればその通し番号の生徒のデータが一覧で出るようにしました。
sheet2にその小さな表のデータが反映するように
して、飾りなどを付け、生徒に渡す分にしたいのですが、sheet2のデータを全生徒分、
一括で印刷することはできないでしょうか?
また、もっとわかりやすい方法があれば、ご教授
いただければと思います。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

指定した生徒通番が印刷できるようマクロを作ってみました。
話を簡単にするため、「sheet1の欄外の通し番号を入力するセル」に"SeitoNo"(半角です)の名前を付けてください。
1.VBA画面で標準モジュールを挿入し、
2.下記のコードを貼り付けます。
3.シート2からマクロinsatuを実行します。
印刷したい通番を自動セットして印刷(プレビュー)しています。
今は1から3番が画面表示されます。
startNo、endNoを印刷したい通番に変えてください。
PrintPreviewをPrintOutに変えればプリンタ出力されます。
家の子も卒業式でした・・・・

Option Explicit

Public Sub insatu()
Dim p As Integer 'カウンタ
Dim startNo As Integer '印刷する生徒通番の最初
Dim endNo As Integer '印刷する生徒通番の最後
startNo = 1
endNo = 3
For p = startNo To endNo
Range("SeitoNo") = p
Worksheets("Sheet2").PrintPreview
Next
End Sub
お礼コメント
rt-fonce

お礼率 80% (20/25)

丁寧なご回答を頂き、ありがとうございました。
VBAはじつは初めてで、成功するのに
少し時間がかかりましたが、おかげさまで
卒業式に間に合いました。
お子さまのご卒業、おめでとうございます。
投稿日時 - 2001-03-05 23:56:04
-PR-
-PR-
このQ&Aで解決しましたか?
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


専門家があなたの悩みに回答!

-PR-

ピックアップ

-PR-
ページ先頭へ