Excel/VBA備忘録(5)シートがあるかチェックし、なければ追加する

アドゲー天国エディタ(edita.jp)
ブログにビール注ぎゲーム「生一丁プレミアム！」を貼ろうキャンペーンはこちら

↑注)JavaScriptをONしないと表示されません。

　たまにエクセル(Micorosoft Excel)で関数とかマクロ(VBA)を使うこともあるんですが、昔使ったことがある手法があったとしますよね。

　んで、その時すでにその手法を忘れてて、「どうだったかなぁ～？」とか言いながら、結局Webを探し回ると凄く時間と労力がかかるんで、とりあえず、自分用に、忘れたときのメモとして、Excelの関数やVBAの手法を書こうと思います。

　ちなみに、本文章についてご質問を承っても十分な回答を差し上げる自信は全くありません。

　疑問などがございましたら、本文末尾に参考にさせてもらったサイトのリンクを貼っておきますので、そちらを参照ください。

　では、本題に移ります。

　まず、エクセルのブック(xlsファイル)がネットワーク上にある場合、複数のユーザ(PC）から同じブックを開いたとき、後から開いたユーザが「読み取り専用」か「通知」で開くことになり、リアルタイムに編集できない、ってのが何とかならないかなぁ、って思っているんですね。

　で、これの解決方法を、なんとなく考えると、ユーザごとに編集用のブックを持っていて、あるブックが複数の「ユーザごとの編集用のブック」から必要なシートを引っ張ってきて、まとめることができるブックがあれば良いんじゃないかと思ったんです(シートを「まとめるブック」は閲覧するだけで良ければの話ですが・・・)。

　じゃぁ、これを具体的に出来るようにするにはどーすれば良いか、というと、「ユーザごとの編集用のブック」からシートをコピーして、「まとめるブック」に貼り付ければ良いんじゃないか、って思ったんです。

　ところが、ここで想定される問題が、「まとめるブック」に「ユーザごとの編集用のブック」からコピーしてくるシートと同じ名前がある場合、コピーしてきたシートは名前を変えて「まとめるブック」に貼り付けられる、ということ。

　これだと何か気に入らないので、「ユーザごとの編集用のブック」からシートをコピーしてくる場合、事前に「まとめるブック」上に同じ名前のシートが無いかを確認し、それを発見したら削除して、それからコピー＆ペーストすれば良いのではないか、ということを思いついたんです。

　で、そんな方法がどっかに書いてないかなぁ、なんて思ってWeb上をさまよっていると、シート操作ってサイトに少し改造すれば使えそうなものがあったんで紹介しましょう。

　これは、指定されたシートがあるかチェックし、無ければ追加するってモノなんですけど、何故これを紹介するのか、と言うと、「シートを探す」っていうのが、まず一つ、そして「無ければ追加」するって所のコードを「あれば削除」するっていうコードに変更すれば、目的が達成されそうな気がするからです（まぁ、考察の一つとお考え下さい）。

　それではいよいよ紹介します。

　まず、ExcelのVBE(Visual Basic Editor)を起動して標準モジュールに下記コードをコピー＆ペーストします。

　　Sub Sheet_Add5()
　　　Scheck = 0
      For Each sheet_name In Worksheets
　　　　 If sheet_name.Name = ("検索シート名") Then
　　　　 　Scheck = 1
　　  Exit For
　　　 　End If
　　Next
　　　　If Scheck = 0 Then
　　　　　Sheets.Add.Name = "検索シート名"
　　　　End If
　　End Sub

　　（上記、シート操作より引用）

　これで終わりです。

　このマクロを動作させるには、Excelの「ツール(T)」→「マクロ(M)」→「マクロ(M)」で「Sheet_Add5」を選択し「実行(R)」をクリックします。

　結果、シート名、「検索シート」が無い場合は「検索シート」という名前のシートが作成され、有る場合は何も変化が無いと思います。

　と、言う訳で、これを手がかりに、目的のマクロを考えようかなぁ、なんて思います。

　なお、もし上手くいかない場合、私が説明できるのはここまでですので、後はWebかなんかで頑張って調べてみてください。

＜リンク先（多謝）：Shun's Page＞

”グッ”と来ることが書いてあったらクリックお願いします
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓