Arry関数または他の方法で手入力でなく自動でシートを選択したい

質問

winXP Excel2003でマクロ作成している初心者です。
０）シート名は次のようになっています。
　ＡＡＡ会社　ＢＢＢ会社　ＣＣＣ会社・・・・以下１０枚(増減あり）
　集計用シート　印刷用シート　リンク用シート　会社見本シートの４枚

１）全シート名が表示されるリストボックスを配置しました。
　任意のシート名をクリックすると即座にその会社のデータ入力ができます。
２）さらに、一番右の会社見本シートを複写し、そのシート名をＷＷＷ会社に変更しＡＡＡ会社シートの前に追加できるようコマンドボタンを配しました。シート削除のボタンも併設しました。
３）このブックには次のコードが書いてあります。
Sub 請求書入力()
Application.ScreenUpdating = False
Dim list, SheetName
list = Array("1.ＡＡＡ", "2.ＢＢＢ", "3.ＣＣＣ", "5.ＤＤＤ", "6.ＥＥＥ", "7.ＦＦＦ", "8.ＧＧＧ", "9.ＨＨＨ
", "10.ＩＩＩ", "12.ＪＪＪ", "13.ＫＫＫ")

For Each SheetName In list
Sheets(SheetName).Activate
Call 請求書作成用部品
Next
End Sub

ここで会社見本シートを複写してＷＷＷの会社を新規作成したとき、
list = Array("1.ＡＡＡ", "2.ＢＢＢ", "3.ＣＣＣ",・・・・の部分を手入力で変更しないとindexエラーが発生してしまいます。このエラーが出ないようにし、ブックの全シート１４枚のうち、集計用シート　印刷用シート　リンク用シート　会社見本シートの４枚だけは選択されないようにしたいのです。
どのようにコードをかいたらよろしいでしょうか

回答No.3

KenKen_SP · ベストアンサー

こんにちは。

リストは固定化されたもの、最小限で済むものを優先させると良いですよ。
あとは、#2 ご回答のロジックのとおりです。
Array でもいいですけど、今回の用途なら定数の文字列で定義しておいて、
ワークシートコレクションをループさせ、InStr でシート名が上記定数
に含まれるか調べると楽です。

Sub 請求書入力()

　　' // 処理を除外するシート名リスト
　　Const EXCEPT_NAME = "集計用 印刷用 リンク用 会社見本"

　　Dim sh As Worksheet
　　For Each sh In ThisWorkbook.Worksheets
　　　　If InStr(EXCEPT_NAME, sh.Name) = 0 Then
　　　　　　sh.Activate
　　　　　　Call 請求書作成用部品
　　　　End If
　　Next
End Sub

ただし、私ならブックの保護等でユーザーにシート名が変更されない
という保障がない限り、シート名による分岐は余り使いません。多分
シートのコードネームの方を使うと思います。

　　※コードネームは Excel 画面で目にみえるシート名とは別物です
　　　VBE のプロパティーウインドウで確認できます。これは、任意
　　　に変更できるものですが、VBE 画面からしか変更できません。

Sub 請求書入力2()

　　' // 処理を除外するシートのコードネームリスト
　　Const EXCEPT_NAME = "shCalc shPrint shLink shTemplate"

　　Dim sh As Worksheet
　　For Each sh In ThisWorkbook.Worksheets
　　　　If InStr(EXCEPT_NAME, sh.CodeName) = 0 Then
　　　　　　sh.Activate
　　　　　　Call 請求書作成用部品
　　　　End If
　　Next
End Sub

ご参考までに。

お礼

私のような超初心者にも良く理解できました。思っていることが完璧にできたコードでした。ありがとうございました。

回答No.2

n-jun

>For Each SheetName In Worksheets
>'If文追加
>Sheets(SheetName).Activate
>Call 請求書作成用部品
>'End　If
>Next
にして、変数SheetNameが４つのシート以外の時に目的を実行するよう
If文を作るとか？ではダメですかね。
（４つが決まっているのならば）

お礼

なるほどIf文を作ることはかんがえもしませんでした。勉強になりました。
ありがとうございました。当地は激しい雷で昨日はやむなくＰＣつながずお礼が遅くなりもうしわけないです

回答No.1

imogasi

質問文ばかり長くて、何を聞きたいのかがわかり難い
（１）集計用シート以下４つのシートを指定しないＡｒｒａｙを作る
（２）Ｕｂｏｕｎｄ（ｌｉｓｔ）－４までを処理を繰り返す
ではダメなんですか。
焦点を絞って質問文をかけないですか？

補足

もうしわけございません。
端的に再質問させていただきます。おっしゃるとおり
（１）集計用シート以下４つのシートを指定しないＡｒｒａｙを作るということです。
現在は
list = Array("1.ＡＡＡ", "2.ＢＢＢ", "3.ＣＣＣ", ・・に固定されています。ので、シートを追加したときは
list = Array("11.ＷＷＷ", "1.ＡＡＡ", "2.ＢＢＢ", ・・にコードを修正しなければなりません。
やりたいことは、シートの追加・削除があったばあいでも「コード修正」によらず集計用シート以下４つのシートを指定しないＡｒｒａｙを作ることです。よろしくお願いします。（２）のＵｂｏｕｎｄ（ｌｉｓｔ）－４までを処理を繰り返す・・・・これについては作ったことがないのでわかりません。
すいません。