Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5328 / 13646 ツリー ←次へ | 前へ→

【51470】ワークシートごとに通し番号を入れたい ぷっち 07/9/20(木) 10:05 質問[未読]
【51474】Re:ワークシートごとに通し番号を入れたい Jaka 07/9/20(木) 13:22 発言[未読]

【51470】ワークシートごとに通し番号を入れたい
質問  ぷっち  - 07/9/20(木) 10:05 -

引用なし
パスワード
   はじめまして、ぷっちと申します。
皆様にお力を貸りしたいと思い質問をさせて頂きます
Excelにてワークシートをコピーした際に一定のセル(D8等)に
通し番号を振る事は可能でしょうか?
マクロの記録等を使用し試行錯誤してみたのですが
なかなか上手くいかなくて・・・

何卒宜しくお願いします。

【51474】Re:ワークシートごとに通し番号を入れたい
発言  Jaka  - 07/9/20(木) 13:22 -

引用なし
パスワード
   >Excelにてワークシートをコピーした際
これは複製のことだと思いますが、シートの複製などのイベントが用意されてません。
自作すれば何とかなるのかもしれませんが..。
(ほんとに自作できる????)
この手のものは、複製やコピーを防ぎたいというのに似てますが、
ろくな対策がないことから無理かもしれません。

連番だけだったら、こんな感じ。

For i = 1 To Worksheets.Count
  If Sheets(i).Visible = True Then
    ct = ct + 1
    Sheets(i).Range("D8").Value = ct
  End If
Next

5328 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free