アンケート一覧ページでアンケートを探す
トビラ。。

2015/12/28 18:24

44回答

ExcelのVBAでsheet2がなければsheet2を作成し、sheet2があればシートを作らないプログラムを作りたいのですが、初心者で全く分かりません。

ExcelのVBAでsheet2がなければsheet2を作成し、sheet2があればシートを作らないプログラムを作りたいのですが、初心者で全く分かりません。 一応 Dim ws As Worksheet Set ws = Worksheets("sheet2") If ws Is Nothing Then Set ws = workseets.Add() ws.Name = "sheet2" End If とプログラムしたのですが、失敗しました。どうしたらいいでしょうか？ご教授お願いします。

Excel・5,753閲覧・xmlns="http://www.w3.org/2000/svg">500

新機能 AI回答テストを実施中！ テスト対象カテゴリ：歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

ja7********

2015/12/28 19:02

こんな感じで如何でしょうか。 普通は、ワークシートの名前の存在をループで確認するのですが、 簡潔な方法を使用しています。 あと、ws を他にも使うかも知れませんので、そのままSetしています。 Sub Test() Dim ws As Worksheet If TypeName(Evaluate("'Sheet2'!A1")) <> "Range" Then    Set ws = Sheets.Add()    ws.Name = "Sheet2" End If Set ws = Nothing End Sub

NEW! この回答はいかがでしたか？ リアクションしてみよう

ja7********

2015/12/28 19:26

あと・・・ > Set ws = workseets.Add() これ ↑ コードを記述している時に workseets.の w が大文字に なっていないことに注意した方が、いいかと思います。 これでは、 エラーですよね。　綴りも違っています。 Set ws = Sheets.Add と思います。 あと、ワークシートをループして名前の存在を確認し、 無かったら追加するなら　こんな感じです。 Sub Test2() Dim ws As Worksheet Dim Flg As Boolean For Each ws In Worksheets    If ws.Name = "Sheet2" Then       Flg = True       Exit For    End If Next If Flg = False Then    Set ws = Sheets.Add    ws.Name = "Sheet2" End If Set ws = Nothing End Sub

ThanksImg質問者からのお礼コメント

どの回答もすごくよかったので、選ぶことができませんでした。なので、最初に返信してくださった方に決めました。

お礼日時：2015/12/30 20:05

その他の回答（3件）

msk********

2015/12/28 20:06

ループ不要例です。 Dim ws As Worksheet If IsError([sheet2!a1]) Then Sheets.Add ActiveSheet.Name = "Sheet2" End If Set ws = Sheets("sheet2")

Chiquilin

2015/12/28 19:10

> If ws Is Nothing Then 変数の中だけで話が簡潔しているので ブック内の比較になって いません。 Dim ws As Worksheet Const shtName As String = "Sheet2" For Each ws In Worksheets If ws.Name = shtName Then Exit Sub Next ws Worksheets.Add.Name = shtName Worksheets(shtName).Move After:=Sheets(Worksheets.Count) > ご教授お願いします。 「ご教示」ね。

tw8********

2015/12/28 19:03

こんな感じでどうでしょう？ Dim ws As Worksheet Dim myFlag As Integer myFlag = 0 For Each ws In Worksheets If ws.Name = "Sheet2" Then myFlag = 1 Next ws If myFlag = 0 Then Worksheets.Add ActiveSheet.Name = "Sheet2" Else MsgBox "Sheet2はあります。", vbInformation End If