[[20111030084857]]　『シート名同じ場合上書きする方法』（みみ）　ページの最後に飛ぶ

『シート名同じ場合上書きする方法』（みみ）

エクセル2003　　XP-PRO

いつもお世話になっております

理解が出来てなく詰まっています

教えてください

BOOK内に同じシート名はつけられないのが原則ですよね

新しく作ったシートが同じ名前なってしまう場合

上書する　　コードって　如何すればいいのですか

よろしくお願いいたします

 「新しく作ったシート」を「挿入追加」する処理がどうなっているのかがみえないので一般論だけど
・同じ名前のシートがあるかどうかチェック
・あれば、すでにあった、そのシートを削除
・新しいシートを挿入追加。

 今のコードをアップすれば、もっと具体的な回答がつくと思うよ。

 (ぶらっと)

ぷらっと様
ご指摘有難うございます

とりあえず
貴殿の言うとおり

・同じ名前のシートがあるかどうかチェック
・あれば、すでにあった、そのシートを削除
・新しいシートを挿入追加。

上記命令文の書き方が分からないもので

教えて欲しいのですが

ちょっと　横柄かなと思ってますが

本当に困っていまして

申し訳ないと思っています

よろしくおねがいたします

purattosamaPrivate Sub CommandButton1_Click()

    Sheets.Add
    ActiveSheet.Name = "work"

    Sheets("Sheet1").Select
    Range("A1").Select
    Selection.Copy
    Sheets("work").Select

  中略

ActiveSheet.Name = Range("g1").Value
End Sub

 一例

 Sub Test()
    Dim newShName As String
    newShName = "work"
    Sheets.Add
    With ActiveSheet
        If IsObject(Evaluate(newShName & "!A1")) Then
            MsgBox "同名のシートがあるので削除します"
            Application.DisplayAlerts = False
            Sheets(newShName).Delete
        End If
        .Name = newShName
    End With
 End Sub

 (ぶらっと)

ぷらっとさん

有難うございました

本当に有難うございました

コメント返信：

[ 一覧(最新更新順) ]

[[20111030084857]] 『シート名同じ場合上書きする方法』（みみ） ページの最後に飛ぶ

[[20111030084857]]　『シート名同じ場合上書きする方法』（みみ）　ページの最後に飛ぶ