Excel2003、VBAにて。

Excel2003、VBAにて。
シートを自動で追加し、追加したシートのA1セルに全シート数を設定する方法が分かりません。
どなたか教えてください。

No.1 回答者： keithin 回答日時： 2010/05/16 17:19

sub macro1()

worksheets.add after:=worksheets(worksheets.count)
activesheet.range("A1") = worksheets.count
end sub
などのように。

この回答へのお礼

素早い回答ありがとうざいます。

お礼日時：2010/05/16 17:36

No.2 回答者： hallo-2007 回答日時： 2010/05/16 17:22

Sub Macro1()

Sheets.Add
Range("A1").Value = Sheets.Count
End Sub
でいけると思いますよ。

この回答へのお礼

できました。ありがとうございます。

お礼日時：2010/05/16 17:37

No.3 ベストアンサー 回答者： gootara555 回答日時： 2010/05/16 17:29

今後のために、、、

やることを細かく順序だてて、それぞれの実現方法をWeb検索してみてください。
すぐサンプルが見つかります。
Web検索できるようになれば、ほとんど自己解決できますよ。
また、「マクロの記録」で調べるのもいいかもしれません。

今回は、以下の処理が必要です。
どこの部分は分かって、どこの部分が分からないのかをハッキリさせると調べ易いですね。
１．シートを追加
２．全シート数を取得
３．A1セルに全シート数を設定

サンプルソースは、、、他の方の回答がありますのでそちらで。

この回答へのお礼

答えを出す考え方まで教えていただき、ありがとうございます。

お礼日時：2010/05/16 17:38