エクセルで自前の宝くじを作ろうと思っています。 離れたセルに番号を振りたいのですがうまくできません。

関数にかんしてはド素人です。すみません。
条件の合うセルにのみ、連番を振る。で検索して以下のように作成

=IF(Ｄ1=”夢かーど”,1,””)
=IF(Ｄ2=”夢かーど”,COUNT($E$1:E1)+1””）
=IF(Ｄ3=”夢かーど”,COUNT($E$1:E2)+1””）
・・・以下　下の行へ向かってコピー

画面上は
Ｄ行に　夢かーど　と記入のあるE行に連番を打ってくれます。

この方法だと１から始めることはできるのですが
ほかのセルにコピーした時も１からはじまります。
また。新しいページになるとき
続きの数字から始める方法がわかりません。

=IF(Ｄ1=”夢かーど”,8,””)　←★ここだけかえれば全部かわると思っていました★
=IF(Ｄ2=”夢かーど”,COUNT($E$1:E1)+1””）
=IF(Ｄ3=”夢かーど”,COUNT($E$1:E2)+1””）


印刷して、切り取って使用する予定です。
１０００番程度まで作りたいです。

No.6 回答者： chonami 回答日時： 2016/09/02 09:26

D列E列を使って下にずらーっと入力したとします。

（ところで提示した式でうまくいったのでしょうか？）
例えば、印刷する時に50行ずつを何列か印刷したいなら、例えばG1に

=IF(D51="","",D51)

と入力し、H1にも横にコピー、そのまま下に50行コピー、次にJ1に

=IF(D101="","",D101)

と入力し横と縦にコピー、というようにしていったら如何でしょうか？
色々式を組めば複雑なこともできますが、単純なやり方の方が混乱しなさそうですので。

No.5 回答者： ROKABAURA 回答日時： 2016/09/02 09:10

２度目のROKABAURAです。

エクセルが良いなら　作った後のことを考え　番号の割り振りが１ページに「１，２，３，４・・・」では　印刷した後で断裁すると　番号を揃えるのが大変。
だから　８面付けるなら　１ページに「１、１２６、２５１、３７６・・・・」と割り振る必要がある。

エクセルにはページ番号を関数として取り込む機能はない。
だからページを関数として使いたい場合は　行数から逆算し　int(row())で行番号がわかるから　これを１ページに使用する行の総数で割ればページ数を得られる。

あとは　貴方の関数に則れば　８面で１ページ５０列と仮定した場合
=IF(D:D="夢かーど",INT(INT(ROW())/50)*125+1,"")から　=IF(D:D="夢かーど",INT(INT(ROW())/50)*125+875,"")までを各シートの番号部分に当てはめ
出来たらそれを１ページコピーし　１２５ページ貼り付ければ　一発で出来る。

No.4 回答者： GooUserラック 回答日時： 2016/09/02 08:47

No.1 の修正になります。

D1セルが「夢かーど」でないと「＃VALUE!」が出てしまいますね。

たとえば、最初の「夢かーど」が D6セルの場合は以下のようにE6セルから書き込んで下さい。
-----------------------------------------------------
=IF(D6="夢かーど",8,"")
=IF(D7="夢かーど",COUNT($E$6:E6)+$E$6,"")
=IF(D8="夢かーど",COUNT($E$6:E7)+$E$6,"")
・・・以下　下の行へ向かってコピー
-----------------------------------------------------

No.3 回答者： chonami 回答日時： 2016/09/01 12:56

D1セルから下にところどころに「夢かーど」の文字が入っているとして、

E1=IF(D1="","",COUNTIF($D$1:D1,"夢かーど"))

では？

それから、

>新しいページになるとき

というのはシートが変わるという事でしょうか？

>印刷して、切り取って使用する予定です。

1000番になるまで下にずーっとコピーするのでは駄目なんですか？

この回答へのお礼

ありがとうございます。
下にずーっとコピーした場合、A4用紙の
左側だけにずーっとコピーされるってことですよね。
なんだかそれだともったいない気がして・・・。

お礼日時：2016/09/02 06:15

No.2 回答者： ROKABAURA 回答日時： 2016/09/01 11:20

エクセルだといまいち向かない作業。

筆王とか筆まめとか　年賀状ソフトのほうが楽だし綺麗に作れるよ。
変化する番号部分だけエクセルで作って。
パソコン使うならあるのでは？

この回答へのお礼

ありがとうございます。
そういう方法もあるのですね。

むくむかないというより。
以上の関数から出来る方法があるなら
知りたかったんです。

お礼日時：2016/09/02 06:15

No.1 回答者： GooUserラック 回答日時： 2016/09/01 10:37

こんな感じにすれば出来ます。

-----------------------------------------------------
=IF(D1="夢かーど",8,"")
=IF(D2="夢かーど",COUNT($E$1:E1)+$E$1,"")
=IF(D3="夢かーど",COUNT($E$1:E2)+$E$1,"")
・・・以下　下の行へ向かってコピー
-----------------------------------------------------

この回答へのお礼

早い返信ありがとうございます。

何がいけないのかわかりませんが、
＃VALUE!
エラーが出てしまいます。

お礼日時：2016/09/02 08:29