質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

解決済

シート名のエラーを無視したい

mln
mln

総合スコア8

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

2回答

0評価

0クリップ

14162閲覧

投稿2018/04/06 05:38

マクロ初心者です。
教えて下さい。

シートをコピーしようとすると「移動またはコピーしようとしている数式またはシートには、移動またはコピー先のワークシートに既にある名前’xxx’が含まれています。この名前を使用しますか?」というメッセージが表示される

[はい]をクリックし続行すると

実行時エラー1004

【Excel VBA】実行時エラー'1004': シートの名前をほかのシート、Visual Basicで参照されるオブジェクトライブラリまたはワークシートと同じ名前に変更することはできません。

デバッグでは
Sheets(cnt).name = Sheets("転記用リスト").Cells(i, 1).Value がハイライトされる。


Sub く_転記用リストから請求書へ転記()

Dim i As Long, cnt As Long Dim name As Object For Each name In Names If name.Visible = False Then name.Visible = True End If Next Application.ScreenUpdating = False For i = 2 To Sheets("転記用リスト").Cells(Rows.Count, 1).End(xlUp).Row Sheets("ひな形").Copy After:=Sheets(Sheets.Count) cnt = Sheets.Count Sheets(cnt).name = Sheets("転記用リスト").Cells(i, 1).Value Sheets("転記用リスト").Cells(i, 1).Copy Sheets(cnt).Range("A12:G12") Sheets("転記用リスト").Cells(i, 2).Copy Sheets(cnt).Range("C28:I28") Sheets("転記用リスト").Cells(i, 6).Copy Sheets(cnt).Range("J28") Next Sheets("転記用リスト").Select Application.ScreenUpdating = True

End Sub


参照しているセルの転記は出来ていて、
ひな形をコピーしてセルA2の値でシート名・シートへの転記は出来ているが
最後に不要な"ひな形(2)"というコピーのセルが出来ています。

F8で1行ずつ実行すると、
cnt = Sheets.Count のところで「移動またはコピーしようと…」のメッセージが出ていて、
[はい]をクリックし無視して続行すると
参照しているデータが無くなった後、最後に"ひな形(2)"のシートが出来、その後

実行時エラー'1004':
シートの名前をほかのシート、Visual Basicで参照されるオブジェクトライブラリまたはワークシートと同じ名前に変更することはできません。

デバッグすると
Sheets(cnt).name = Sheets("転記用リスト").Cells(i, 1).Value がハイライトされています。


シート名の取得の為、以下のマクロを実行しました。

Sub てすと()
Dim Wsh As Worksheet
Dim i As Long
i = 1
For Each Wsh In Worksheets
With Worksheets("テスト")
.Cells(i, 1).Value = Wsh.name
i = i + 1
End With
Next
End Sub


結果は

layout
注意
Journal
Pay
Rcv
Company
Input
Output
Supplier Register
レート表
Example for manual
請求書sample
覚書
Journal (2)
ひな形
転記用リスト
(参照した1つ目)
(参照した2つ目)
(参照した3つ目)
ひな形(2)

です。


重複しているシート名は無いと思うのですが、  
エラーを無視するという  On Error Resume Next
というのを、先頭に入れてみました。

「移動またはコピーしようとしている数式またはシートには、移動またはコピー先のワークシートに既にある名前’xxx’が含まれています。この名前を使用しますか?」

のメッセージは出ましたが、実行時エラー1004は出ませんでした。

ですが、コピーして追加するシートが
(参照した1つ目)
(参照した2つ目)
(参照した3つ目)
ひな形(2)…ひな形(21)まで出来てしまいました。

どこをどう直して良いのかわかりません。
教えて頂けますか?

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。