図面の番号を連番で採りたい。

質問

初心者です。教えてください。EXCELで図面の番号を採るのに自動で連番で採りたいのです。以下の順序で行いたいです。
1)B列の4行に日付を入力
2)日付が入力されたら全て同時に入力される。
ような、プログラムは作成可能でしょうか？
関数等で簡単にできますでしょうか？

回答No.2

imogasi

質問者が「図面」といっているのは、エクセルのシートのこと。
そうか「図面」別に在って、そのデータ処理をエクセルでやる。そのとき連番をシート上で振るのかな。
こんな書き方をした人初めてですよ。
ーー
＞日付が入力されれば、その行のC～I列まで自動で入力されるようにしたいのですが
日付が決れば、自動で＞記号　年　 月　 No.　名称　材質　採番者
画決るはずが無い。質問として成り立たない。もっと質問表現や隠れた仕組み（別のデータ表の存在など）について書かないと。
年月は良いとして、その日に記号　No.　名称　材質　採番者が１つとと言うことはありえないだろうし、１つでもそれを記したデータ表が別に要るだろう。
ーー
注記
他は手入力し、連番だけエクセルで作るなら
そのまま＋ハンドルを出して下方向に引っ張ればしまい
ーーー
連番だけエクセル関数で振ればよいなら
D2に'0001　　’をつけて文字列にする
D3は　=TEXT(D2*1+1,"0000")
以下式を下方向に複写すればよい。
ずっと前者が簡単。

回答No.1

imogasi

>日付が入力されたら全
B4セルに、日付（IsDateでチェック)が入力されたら、諸所のセルに連番（図形に番号を振るつもりと思う）を一斉に入れるということか。
値の変化を捉えるのは、イベントと言う仕組みの利用だが、初心者の領分ではない。
ーー
番号の場所
多分図形に対応して番号を１ずつ増やすのだろうが、そのセルの位置はどう決るのか。図形とセルは何の関係も無い。図形の左上隅の画面上の位置がセルの左上隅の位置に鞘よせ出来ると言うだけ。
最後の番号
どの数で番号を止めるか。
図形の数だけで止めると言いたかろうが、シート上の（特定の）図形
の数をVBAで求めるのも簡単ではない。
＞図面の番号を、の図面とは何ですか。
シート上に有るのか、フォームなどに有るのか。
ーー
全般にVBAの中の上ぐらいの技量が要るので質問者には難しいように思う。必要と思われる点に思考も行っていなくて、丸投げ状態だし。
エクセルVBAはセルのデータの値や配置などの加工から始めるもので、図形などを導入すると途端に難しくなる（情報が得にくいと言うこと）。ワードの図表番号のような発想の機能は無い。図が増えた・、減った場合の対応も難しい。

お礼

スミマセン。抽象的な書き方で。以下のような表です。
　　B列　　 　C列　D列　E列　F列　G列　　H列　 I列
3　採番日 　記号　年　 月　 No.　名称　材質　採番者
4 2009/7/16　 KG　 09　 07　 0001 ****　****　 ****
5 2009/8/1 　 KG　 09　 08　 0002 ****　****　 ****
6 2009/9/10　 KG　 09　 09　 0003 ****　****　 ****
このように採番日に、日付が入力されれば、その行のC～I列まで自動で入力されるようにしたいのですが、できますでしょうか？
最低でもC～F列までは自動入力したいです。