自分のお店を開く時の心構えとは? >>

お世話になります。
VBAで、オープンにしているエクセルファイルで、
シートを検索してシート「TEST」(仮名)が見つからなければ
「TEST」名で新規ワークシートを作成する。
尚且つ、「TEST2」のシート(一番後ろにあるシート)の前に
作成したいのです。
何卒、ご教示下さいます様、宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

Sub test()


Dim ws As Worksheet

On Error Resume Next
Set ws = Worksheets("TEST")
On Error GoTo 0

If ws Is Nothing Then
Worksheets.Add Before:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "TEST"
End If
End Sub
    • good
    • 0
この回答へのお礼

大変参考になりました。
ありがとうございました。

お礼日時:2008/10/12 16:34

同名のシートを作ろうとするとエラーになるのでそれを使う方もあるが、名前を確かめるのもある。


Sub test02()
Dim sh
For Each sh In Worksheets
If sh.Name = "TEST" Then
MsgBox "同名シートあり"
Exit Sub
Else
End If
Next
Worksheets.Add.Name = "TEST"
Sheets("TEST").Move After:=Sheets(Sheets.Count)
End Sub
これらは後半はマクロの記録でわかるものです。そこまでは勉強して
その上で質問してください。
その場合は多分
シート挿入
名前変更
シートタブ場所移動
の3ステップを連ねるので、ややコードが変わるでしょうが。
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2008/10/13 01:11

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング