マクロ セルの数値で自動起動

質問

シートが２枚あります
１枚Ａは１年１２ヶ月分の１２枚の表
１枚Ｂは、同じ表で白紙

Ｂのあるセルに数字（月）を入れると、自動にその月だけ表示したいです

マクロでお願いします

回答No.4

nattocurry · ベストアンサー

0でなく、空白が良いので、ご説明に従い・・
=INDEX(入館料統計表!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())="","",INDEX(入館料統計表!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())
を、入力すると、エラーで起動しません。

従ってませんよね。
IFはどこに行ったんですか？

お礼

ありがとうございました
ほぼできました！！☆☆☆☆☆☆

はじめ罫線が消えたんですが、次は元の表に罫線を入れておくと
実行しても消えませんでした！！

２ヶ月の苦労が取れそうです

補足

本当です・・・
間違った情報に、集中力不足すいません

後、一つ・・また質問ですが、
Ａの表が４月始まりなんですが、何か良い方法まりませんかm(__)m

回答No.3

nattocurry

ひとつき４０セル？
ひとつき４０行ですよね？

であれば、

縦のセル
１月は１～３９
２月は４０～７９
３月は８０～１１９
４月は１２０～・・・

ではなく、

縦のセル
１月は１～４０
２月は４１～８０
３月は８１～１２０
４月は１２１～・・・

ですよね？

正しい情報をお願いします。

やはりマクロは不要なようです。

Sheet1に１年１２か月分の１２枚の表があり、
Sheet2に指定の月だけ表示するとします。

数字（月）を入力するセルはA1で、表示する行を、２～４１とすると、

A2に
=INDEX(Sheet1!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())
（Sheet1の部分は、実際のシート名にしてください）
と入力し、それをA41までコピペしてください。
そのあと、A2:A41を好きなだけ右側にコピペしてください。

このやり方だと、Sheet1のセルが空白でも0と表示されてしまいます。
コピー元が空白ならコピー先も空白にしたい場合は、上記の式を、
=IF(INDEX(～～～)="","",INDEX(～～～))
というように加工してください。

Sheet2のA1が１～１２以外だとエラー表示になるので、それがイヤなら、
=IF(OR($A$1<1,$A$1>12,INDEX(～～～)=""),"",INDEX(～～～))
というように加工してください。

補足

ありがとうございました
そして、間違った情報ですいません

=INDEX(Sheet1!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())
を入力すると、数字が入りました　ありがとうございます
0でなく、空白が良いので、ご説明に従い・・

=INDEX(入館料統計表!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())="","",INDEX(入館料統計表!$1:$480,ROW()-1+($A$1-1)*40,COLUMN())
を、入力すると、エラーで起動しません。
また、罫線がすべて消えて、表がなくなりました（＠＠）

何から何まで頼ってすいません
よろしくお願いします

回答No.2

nattocurry

> この表がメインで１～１２月分あります

その配置がどうなっているのか解らないと何とも回答できません。

補足

たびたび　ありがとうございます

縦に　１２枚続いていて

縦のセル
１月は１～３９
２月は４０～７９
３月は８０～１１９
４月は１２０～・・・

ひとつき、４０セルを使い縦に並んでます

回答No.1

nattocurry

レイアウトが判らないことには、答えようがありませんよ。
レイアウト次第では、マクロを使わなくても、できたりしますし。

お礼

レイアウト（基本の表）
１月分
10 20 30 40 50代　　団体
1
2
3
4
5
・
・
31

この表がメインで１～１２月分あります