[[20080204123818]]　『エクセルbookの複数sheetのセルに連続データ（数氏x（incocoin）　ページの最後に飛ぶ

『エクセルbookの複数sheetのセルに連続データ（数字等）を入れたい』（incocoin）

 例えば10ページあるsheet1のA1セルに数字5を入力すると、sheet2のA1セルに6
 ・・・sheet10のA1セルに14と表示される方法をお教えください。

 [エクセルのバージョン]
 Excelxp
 OSのバージョン]
 WindowsXP

 for i = 1 to 10
   sheets("sheet" & i).range("A1")=4+i
 next

 こんな感じ？

 (1or8)

 Sheet2～Sheet10を選んで、下記数式をA1に入力。
 =REPLACE(CELL("FileName",A1),1,FIND("]",CELL("FileName",A1))+5,)+Sheet1!A1-1
 (ROUGE)

 うわー！早速のご回答ありがとうございます。
 私、プログラミングとか関数etcはまったくのど素人です。

 で、
 １．必死で仰せの通りの入力で、上手く行きません。
　　（但し文字種は半角英数でしたが）
 ２．コピーし貼り付けならと、これもだめでした。
 ３．下段の(ROUGE)は上段に続けて入力するのでしょうか？
 　　（単にコピーだと二段セルになるもので）
 ４．sheet1のA1セルは何もしなくて宜しいんですね。
 ５．入力のコツや注意点があるのでしょうか？

 以上よろしくお願いいたします。

 上記はひとつの数式です。
 手順はそのままにお願いします。
 （注）一度も保存されていないBookでは正常に機能しません。

 (ROUGE)

 マクロです。
 ↓を参考に下記のコードを標準モジュールに貼り付けて実行して下さい。
http://www.excel.studio-kazu.jp/lib/e1nw/e1nw.html

 sub test()
   dim i as long
   for i = 1 to 10
      sheets("sheet" & i).range("A1")=4+i
   next
 end sub

 ROUGE さんの方が楽ですが･･･

 (1or8)

 (ご指摘がありましたので削除)
 （dack）

 dackさん、CELL関数の引数なので、そのままでお願いしまつ。
 (ROUGE)

 (ROUGE)さんありがとうございました。
 もうろく爺で、ちょっと取り違いがありました。
 パーフェクトにうまくいきました。
 感謝申し上げます。

 (incocoin)

コメント返信：

[ 一覧(最新更新順) ]

[[20080204123818]] 『エクセルbookの複数sheetのセルに連続データ（数氏x（incocoin） ページの最後に飛ぶ

[[20080204123818]]　『エクセルbookの複数sheetのセルに連続データ（数氏x（incocoin）　ページの最後に飛ぶ