[[20040409213132]]　『複数のシートに連続した数値を入れたい』（マーキ）　ページの最後に飛ぶ

『複数のシートに連続した数値を入れたい』（マーキ）

　複数のシートの特定のセルに連続した番号(見出し番号みたいな）を入れたいんですが
仮にシート1のＢ，２に1を入れると後のシート２のＢ,２に２、シート３のＢ，２に３・・・とはいるようにしたいんです。
また、途中にシートを追加しても自動に数字が入るようにできればありがたいです。

　同じような質問があったのですがうまくいきませんでした。どうぞよろしくお願いします。

[エクセルのバージョン]　Excel98

[OSのバージョン]　Windows98SE

 下準備で関数に名前を付けます。
「挿入」「名前」「定義」で

名前
参照範囲

 Sheet1のB2に「１」を入力。
Sheet2、Sheet3の任意のセルへともに =midasi　と入力してみてください。
左側のシートから連番が作成されます。
シート名に依存しないので、途中に追加したシートにも=midasiを任意のセル
へ入力することでリアルタイムシート連番を作成することが出来ます。また、
Sheet1以外はシートの並び方を変更しても左から数えた連番に変更されます。
(KAMIYA)

 私はVBAで・・・
標準モジュールに
 Sub test()
 Dim Sh As Integer
    For Sh = 1 To Sheets.Count
        Sheets(Sh).Range("B2") = Sh
    Next

 End Sub

 ThisWorkbookモジュールに
 Private Sub Workbook_NewSheet(ByVal Sh As Object)
    test
 End Sub
最初に一回だけtestを実行させてください。
(ケン）

 フフフフ、うまくいきました。とりあえずコピー＆ペーストでいけるケンさんの方法でやってみました。
ＶＢＡの意味はまったくわかりませんがありがとうございました。
　こんどはＫＡＭＩＹＡさんの方法でも試して見ます。

コメント返信：

[ 一覧(最新更新順) ]

[[20040409213132]] 『複数のシートに連続した数値を入れたい』（マーキ） ページの最後に飛ぶ

[[20040409213132]]　『複数のシートに連続した数値を入れたい』（マーキ）　ページの最後に飛ぶ