シート名の一覧を更新したい

以前のシート名の一覧を削除してから、あらためてシート名の一覧を表示するようにします次のようなコードを挿入して、以前のシート名の一覧を削除します。 If WorksheetExists("index") Then 　Sheets("index").Range("A1:A" & Rows.Count).ClearContents End If 使っているWorksheetExists関数は、名前が「index」のワークシートが存在するかどうかを確認するためのオリジナルの関数です。誤って、編集中のシートの一部をクリアしてしまわないように、シート名の一覧を表示するシートを「index」に限定しています。

	①前号で作った、シート名の一覧を表示するマクロに手を加えて使いますまず、WorksheetExists関数を定義します。 WorksheetExists関数は、引数で指定された名前のワークシートが存在するかどうかを確認するものです。ワークシートが存在する場合はTrueを返し、存在しない場合はFalseを返します。
	②WorksheetExists関数の本体では、エラーを無視してワークシートが存在するかどうかを確認するために、「On Error Resume Next」というステートメントを使います「On Error GoTo 0」は、エラー処理を終了し、エラーが発生した場合に通常のエラーメッセージが表示されるようにするためのVBAステートメントです。「On Error Resume Next」と組み合わせて使用されることが多く、エラー処理を一時的に無効にするために「On Error Resume Next」を使用し、エラー処理を再開する前に「On Error GoTo 0」を使用します。「On Error GoTo 0」は、プログラムが実行されると常に実行されるため、エラー処理を使用する場合には常にコードの最後に記述されます。
	③それから、Worksheetsオブジェクトを使用して、指定されたワークシートの名前を取得し、Nameプロパティを使用して、ワークシート名が空でないかどうかを確認します WorksheetExists変数にTrueまたはFalseの値が割り当てられ、関数が終了します。 If WorksheetExists("index") Then End If このIf文をListSheetNamesマクロに挿入して、WorksheetExists関数による「index」シートが存在するかどうかの確認を行います。
	④存在する場合、「index」シートのA列の内容をクリアしますこれにより、以前のシート名の一覧が削除されます。その後、従来のコードのループで、ws.Nameプロパティを使用して現在のシートの名前を取得し、Rangeオブジェクトを使用して、名前を表示するセルのアドレスを計算しながら、セルにシート名を挿入していきます















	●「右クリックされたセルの値に基づいて、ワークシートをアクティブにする」マクロを作る動画です

	関連する他のページ
	『名前』に右隣セルの『ふりがな』を登録したい簡単なマクロを作って、ふりがな登録する方法があります日別のシフト表から、個人の勤怠データを抜き出して表示したい日別勤怠表のシート名を数式で作りながら、 VLOOKUP関数で参照する方法がありますシート名のクリックで、必要なシートを簡単に表示したいジャンプ先のシート名がセルに入力されている場合には、ハイパーリンクを設定することで、そのシートを簡単に表示することができます前日シートのテーブルを、当日の新規シートでも使いたい前日シートのコピーで、当日の新規シートを作り、そのデータ範囲だけを削除する方法がありますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述します編集シートの前に新規シートを挿入したい Shift＋F11キーで行えます他のブックにあるシートを簡単に表示したいハイパーリンクによるジャンプ先は、他のブックのシートも対象にできますシート名のクリックで、必要なシートを簡単に表示したいジャンプ先のシート名がセルに入力されている場合には、ハイパーリンクを設定することで、そのシートを簡単に表示することができます必要なシートを簡単に表示したい任意のセルにシートと同じ名前をつけておけば、名前ボックスのリストからそれを選んで表示できるようになります班名をクリックすると、そのメンバーリストが表示されるようにしたいセル範囲に名前を定義すれば、その名前へのハイパーリンクを設定することで、そこへのジャンプが可能となります必要な月スケジュール表だけを印刷したい範囲を選択してから印刷しますカレンダーを用紙に合わせて印刷したい印刷したいセル範囲を決めて、 1ページに収まるように設定しますシートの一部だけを印刷したいあらかじめ印刷範囲を設定しておけば、そのセル範囲だけを印刷できます格子状の罫線を付けて印刷したい「ページ設定」の「シート」タブで「格子」を設定すれば、格子状の罫線を付加して印刷できますシートに作った暑中見舞いをハガキに印刷したい見た目と印刷結果は異なることが多いので、印刷プレビューしてから印刷する方法がオススメですオートフィルタで抽出したデータを、用紙1枚で印刷したい［次のページ数に合わせて印刷］を使えば、指定した枚数でデータの印刷を行えます指定したページだけを、とびとびで印刷したいマクロを使えば、指定したページだけを連続して印刷することは可能ですどのブックからでも利用できるマクロを作りたい「個人用マクロブック」に登録すれば、どのブックからでもそのマクロを実行できるようになりますマクロ実行の対象範囲を固定したいセルやセル範囲は、 Rangeで指定できます選択中のセル範囲に含まれる空セルを、マクロ処理の対象から除外したい空セルでないことを条件に、マクロを実行するよう、 If文を追加します選択中のセル範囲に対してのマクロ実行結果を、別のセルに表示したい Offsetを使うと、対象のセルの位置を行列単位でずらすことができます選択中のセル範囲に対するマクロを作りたい For Each～Nextで、選択中のセル範囲（Selection）に対する処理を記述します出退の時刻を簡単に記録したい簡単なマクロを作れば、「出社」や「退社」をクリック（タップ）するだけで現在日時を入力できるタイムカードを用意できます『名前』に右隣セルの『ふりがな』を登録したい簡単なマクロを作って、ふりがな登録する方法がありますブックを開いたときの新規シート自動挿入を、1日1枚に制限したい新規シートの名前に日付を加え、マクロ実行時にその存在の有無を確認するようにしますブックを開いたときに、新規シートを先頭へ挿入したい ThisWorkbookのOpenプロシージャに該当コードを記述しますマイナス値をゼロに置換したい④ If...ThenステートメントによるVBAマクロを使えば、マイナス値をまとめてゼロに置換できます “縮小して表全体を表示する”のマクロを、クイックアクセスツールバーから実行したいクイックアクセスツールバーにマクロを登録すれば、マウスからでも、キーボードからでも、簡単に実行できるようになります “縮小して表全体を表示する”のマクロを使って、表の選択から一気に処理したい Range.CurrentRegion プロパティを使えば、アクティブセル領域となっている表全体をマクロで選択できます “縮小して表全体を表示する”を、ショートカットキーですばやく実行したい実行手順をマクロとして記録すれば、ショートカットキーでその一連の手順をすばやく実行できるようになります “セキュリティの警告”が表示されるんだけど・・・マクロを含むブックを開くときには、注意を促すべく、「セキュリティの警告」が表示されますマクロ有効ファイルって何？マクロを含むブックは、マクロ有効ファイル（マクロ有効ブック）として保存しなければ、マクロが失われてしまいます 100行程度の表で、5行おきに、新しい行を挿入したいあまり大きくない表でのパターン化された処理なら、一定の手順をマクロ記録すると便利ですオートシェイプをクリックするたびに、枠線の表示と非表示を切り替えたい枠線の表示と非表示の切り替えマクロを、オートシェイプに登録すれば、オートシェイプをクリックするだけでそのマクロが実行されるようになりますオートシェイプの枠線の表示と非表示を、一つのマクロで切り替えたい If～Then～Elseの構文を使えば、オートシェイプの状態に応じて、表示と非表示を一つのマクロで切り替えられますオートシェイプの枠線の表示の有無を、マクロで切り替えたい Shape.LineのVisibleプロパティの設定を変えることで、枠線を表示したり非表示にしたりすることができますマクロを右クリックで実行したい Worksheet_BeforeRightClickイベントのプロシージャにマクロを記述すると、指定シートを右クリックしたときにそのマクロが実行されますブックを閉じるときに、マクロを自動的に実行したいそのブックのWorkbook.BeforeClose イベントに、マクロを実行するコードを記述します２つのフォルダへの保存マクロを、汎用的なものにしたいファイル名の部分を、編集中のブックの名前を表すActiveWorkbook.Nameにすると、編集中のブックならどれでもマルチ保存が可能になりますマクロ実行時に表示されるダイアログボックスを無視したい Application.DisplayAlerts プロパティをFalseにすると、マクロの実行中に警告やメッセージが表示されなくなります編集中のブックを、現在のフォルダとは別のフォルダにも、すばやく保存したい手間のかかる操作は、マクロ化すれば、簡単に処理できるようになりますマクロのコードを、見た目にわかりやすく、簡潔に記述したい With ステートメントを使えば、作業の対象となるオブジェクトの記述が１回で済みます B2セルに入力してあるデータを、そのシートの名前にしたいシートの名前は、Worksheet.Name プロパティで変えることができますリスト内の各データを、必要に応じて個別で表示したいマクロを使えば、ダブルクリックしたデータを、専用のユーザーフォームで表示することができます

シート名の一覧を更新したい

以前のシート名の一覧を削除してから、 あらためてシート名の一覧を表示するようにします

If WorksheetExists("index") Then Sheets("index").Range("A1:A" & Rows.Count).ClearContents End If

①前号で作った、シート名の一覧を表示するマクロに手を加えて使います

②WorksheetExists関数の本体では、エラーを無視してワークシートが存在するかどうかを確認するために、「On Error Resume Next」というステートメントを使います

③それから、Worksheetsオブジェクトを使用して、指定されたワークシートの名前を取得し、Nameプロパティを使用して、ワークシート名が空でないかどうかを確認します

If WorksheetExists("index") Then

End If

④存在する場合、「index」シートのA列の内容をクリアします

●「右クリックされたセルの値に基づいて、ワークシートをアクティブにする」マクロを作る動画です

関連する他のページ

以前のシート名の一覧を削除してから、あらためてシート名の一覧を表示するようにします

If WorksheetExists("index") Then
　Sheets("index").Range("A1:A" & Rows.Count).ClearContents
End If