Q&A
「ブック内のシートを繰り返しで全件検索する」「同じ名前のシートがあれば処理を中断して」とのことですが、そもそも、一つのブック内に同じ名前のシートは存在できないのですが、何をしたいのでしょうか。
前提
以下のような機能を持つマクロをVBAで組んでいます。
- 2回目以降のマクロ実行時、処理を中断してメッセージボックスに”すでにその名前のシート名がある”旨を表示する、なければアクティブシートをコピーして左端に配置されるようにする
実現したいこと
- SubプロシージャからFunctionプロシージャを呼び出して、条件分岐できるようにする
発生している問題・エラーメッセージ
- Functionプロシージャの引数やSubプロシージャでの呼び出しかたが正しいかわからない
- 処理が中断されず、メッセージボックスも表示されない
- マクロを２回目以降実行すると同一シート名()でコピーができてしまう
該当のソースコード
VBA
1Sub Macro1() 2 3 Dim flg As Boolean 4 Dim SheetName As String 5 6 flg = SheetsCheck(SheetName) 7 8 If flg = True Then 9 End 10 MsgBox "中断します" 11 Else 12 ActiveSheet.Copy Before:=Sheets(1) 13 Sheets(1).Name = Format(Date, "yyyymmdd") 14 End If 15End Sub 16 17Function SheetsCheck(ByVal SheetName As String) As Boolean 18 19 Dim ws As Worksheet 20 21 For Each ws In Sheets 22 If ws.Name = SheetName Then 23 SheetsCheck = True 24 Else 25 SheetsCheck = False 26 End If 27 Next 28End Function
試したこと
- Subだけでできるか試してみましたが、読みずらくなるのと処理の結果は変わりませんでした
- Subプロシージャ内での呼び出し方が違うのかと思いましたが、調べた方法を試しても変わりません
- フローチャート的なものを書いて整理しましたが、それを実現してみてもうまくいきません
以上、何卒よろしくお願いいたします。
質問内容が不明確ですみません。
マクロを2回目以降実行した際に、既に使われているシート名という旨のメッセージをメッセージボックスで表示させて処理を中断させたいということです。
同一シート名()でシートを作成させないようにしたいのです。
質問を修正しておきます。
ご指摘ありがとうございます。
回答2件
0
ベストアンサー
エスパーしてみると、下記のようなことかな。
シート内に今日の日付(yyyymmdd)と一致するシート名があれば、メッセージを出して中断する。
なければ、アクティブシートを先頭にコピーして今日の日付(yyyymmdd)を名前にする。
vba
1Sub Macro1() 2 3 Dim flg As Boolean 4 Dim SheetName As String 5 SheetName = Format(Date, "yyyymmdd") 6 flg = SheetsCheck(SheetName) 7 8 If flg = True Then 9 MsgBox "中断します" 10 Else 11 ActiveSheet.Copy Before:=Sheets(1) 12 Sheets(1).Name = SheetName 13 End If 14End Sub 15 16Function SheetsCheck(ByVal SheetName As String) As Boolean 17 SheetsCheck = False 18 Dim ws As Worksheet 19 For Each ws In Sheets 20 If ws.Name = SheetName Then 21 SheetsCheck = True 22 Exit For 23 End If 24 Next 25End Function
投稿2022/07/14 14:48
総合スコア33715
ご回答ありがとうございます。
質問の仕方が悪くてすみません。
その通りです。
マクロを実行するときにすでにそのシート名があった場合、メッセージを出して処理を終了させたいということです。
現状だとすでに同名のシートがあるというエラーが出て同一シート名()となってしまいます。
回答のコードを試してみましたか。
こちらのサンプルでは問題なく動作してますが。
ご回答いただいたコードでやりたかった通りに動作しました。
分かりにくい質問だったにもかかわらず、ありがとうございました。
ご回答のコードを解釈して勉強させていただきます。
横入りと解決済みのところ失礼します。
ご質問のコードを解析しましたところ、下記の点で動作しない問題が発生しています。
1.3行目の「flg = SheetsCheck(SheetName)」の変数「SheetName」の値が””であること。
この場合、マクロを実行するたびに変数「SheetName＝""」で初期化されており、Functionに
入るたびに空のシート名とそれ以外のブック内のシート名を比較するので、常に「True」に
なってしまいます。
これにつきましては、hatena19様のマクロ例のように初期値設定を行うことで回避可能です。
2.「If flg = True Then」のEndとMsgBox文の処理順が逆になっていること。
End処理により、プログラム自体がすでに終了していますので、MsgBox出力できない状態
になっています。
3.Function内のif文で、一旦Trueが出ているにも関わらず2枚目以降のシート名を比較していること
このことで、flgの値がFalseで上書きされているため、同じシートを作成しようとしてエラーに
なります。
これについてもhatena19様のコードでは、Trueの時点でExit Forにて比較ループを抜けるようになって
回避しています。
ちなみに、Functionの変数名と、Function内で使用する変数名は合わせない方が、かえって今回のような
混乱を引き起こしにくいです(これは私の過去の失敗例に基づくものですが…。)。
例えば、
checkName = Format(Date, "yyyymmdd")
flg = SheetsCheck(checkName)
のように変えても動きます(Function内の変数定義は変更しない)
以上、長文並びにおせっかいで大変失礼でしたが、今後の参考にしていただければ幸いです。
tmkey01様
遅くなってしまってすみません。
コードの解析をありがとうございます。
自力でのコードの解釈が難しく感じていたので、ご指摘ありがたいです。
今後も参考にさせていただきます。
0
If flg = True Then直下のENDは消しましょう。(おそらくコードを抜粋する際に消し忘れたものと思いますが。)
SheetsCheck関数でのシート検索は一番右端のシートが指定したシート名かどうかになっているのでws.Name = SheetNameが成立するときはexit forでループから抜けるようにしましょう。
()書きの連番シートが量産されているのはコピーしたシートを日付にリネームしようとしている=同じ日に複数回実行すると同名のシートが存在するためエラーになりコピーした時点のシート名のままになっているからでしょう。日付ではなく日時、とりあえず秒までをシート名に含めれば多分大丈夫でしょう。
最後の問題については既に同名のシートがあるなどと言った内容のエラーが表示された気がしますが表示されませんか？
投稿2022/07/14 14:35
総合スコア395
ご回答ありがとうございます。
私の質問の仕方が悪いのですが、同じ日に複数回マクロを実行した際に2回目以降はメッセージボックスで"すでに同名のシートがあります"といった旨を表示して処理を中断させたいのです。
ご指摘いただいたループから抜ける、Endについては修正します。
ありがとうございます。
私の指摘内容を反映後
flg = SheetsCheck(SheetName)
の前に
SheetName=Format(Date, "yyyymmdd")
を入れておしまい。
ご回答、ありがとうございます。
おかげさまで解決いたしました。
あなたの回答
tips
プレビュー
