Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 同じ名前のシートが存在しないかチェックするユーザー定義関数

同じ名前のシートが存在しないかチェックするユーザー定義関数

対象：Excel97, Excel2000, Excel2002, Excel2003

ファイル・ワークブックが開かれているかチェックするFunctionプロシージャをご紹介しました。

同様にシートが存在するかチェックをしたい場合もあります。

［スポンサードリンク］

同じ名前のシートが存在しないか調べるFunctionプロシージャ

例えば、ワークシートを挿入してユーザーにシート名を指定してもらうような場合、既に同一名称のシートが存在するとエラーとなってしまうので、これを回避するためです。

▼ワークシートが存在するか調べるユーザー定義関数
Function ExistsSheet(ByVal シート名 As String) As Boolean
　Dim sh As Object
　For Each sh In Sheets
　　If UCase(sh.Name) = UCase(シート名) Then
　　　ExistsSheet = True
　　　Exit Function
　　End If
　Next sh
　
　ExistsSheet = False
End Function

引数にシート名を指定して、同じ名前のシートが存在していればTrue、なければFalseを返します。

Functionプロシージャで行っている処理内容

For Each～Nextループの中で、
　　For Each sh In Sheets

引数に指定されたシート名と同じシートが存在するかを順番に調べて存在していたときにTrueを返して、
　　　If UCase(sh.Name) = UCase(シート名) Then
　　　　ExistsSheet = True

Functionプロシージャを抜けています。
　　　　Exit Function

途中で抜けることなく最後まで来たときは、同じ名前のシートが存在しないのでFalseを返します。
　　ExistsSheet = False

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 同じ名前のシートが存在しないかチェックするユーザー定義関数

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「ユーザー定義関数」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.