ワークシートの見出しの色を変更・ワークシートの表示・非表示の切り替え(Tab.ColorIndex・Visible)●はじめにEXCELを使用していると複数のワークシートを利用します。このワークシートが複数ある場合は、シートの見出し色を設定する事で、分かり易くシートを区別する事ができます。VBAで見出し色を設定する場合、Tab.ColorIndexを利用します。ワークシートには、ワークシートの表示・非表示を切り替える事もできます。他のユーザーからワークシートを隠す場合に利用する時は、VBAではVisibleを利用します。それでは、順番に説明いたします。設定値(インデックス番号:色を指定)※ワークシートのシート見出しに色を指定します。※ワークシートの表示・非表示を切り替える。シートを非表示にする。ユーザーの操作でシートを再表示する事は出来なくなります。xlSheetVisibleを設定するまで非表示を解除できません。Tab.ColorIndex下記のサンプルプログラムは、ワークシート毎に指定した見出しに色を付けるサンプルプログラムです。3つのワークシートに指定した見出しに色を付けます。※プログラム実行後、ワークシート毎に指定した見出しに色が付きました。(画面クリックして拡大)全てのワークシートに指定した色に見出し色をつける。Tab.ColorIndex下記のサンプルプログラムは、全てのワークシートに指定した色に見出し色を付けるサンプルプログラムです。プログラム実行後、指定するワークシートの見出し色を聞いてきますので、入力した色番号(0~56)が全てのワークシートに同じ色が付きます。'全てのワークシートに指定した色に見出し色をつける。'全てのワークシートに指定した色に同じ見出し色をつける。'ワークシートの見出しに指定した色を付けます。'全てのワークシートに指定した色に同じ見出し色をつける。'ワークシートの見出しに指定した色を付けます。※プログラム実行後、設定するワークシート見出し色の色番号を設定します。その指定した色番号で、全てのワークシートの見出し色に設定されました。(今回は、3番(赤)を設定したので、全て見出し色が赤になりました。)(画面クリックして拡大)ワークシート名に応じて見出し色を付けます。Tab.ColorIndex下記のサンプルプログラムは、ワークシート名に応じて見出し色を付けます。今回は、ワークシート名に「月分」が含まれている場合は、見出し色が「青」・ワークシート名に「合計」が含まれている場合は、見出し色を「赤」に全てのシートを対象に設定するサンプルプログラムです。'ワークシート名に応じて見出し色を付けます。'ワークシート名に応じて見出し色を付けます。'全てのワークシートを繰り返します。'ワークシート名に応じて見出し色を付けます。'全てのワークシートを繰り返します。※プログラム実行後、ワークシート名に応じて、シート名に「合計」が含まれる場合は、「赤」・シート名に「月分」が含まれる場合は、「青」に見出し色が設定されました。(画面クリックして拡大)指定したワークシート毎に表示・非表示を指定します。Visible下記のサンプルプログラムは、指定するワークシート毎にシート表示の表示・非表示を指定するサンプルプログラムです。●シートが3つあります。【下記の通りに設定します。'指定したワークシート毎に表示・非表示を指定します。'指定するワークシート毎に表示・非表示を指定します。'指定するワークシート毎に表示・非表示を指定します。※プログラム実行後、3つのシートが表示されている状態から、「個人情報」のシートのみ非表示に変更されました。※「False」に設定したため「非表示」(画面クリックして拡大)シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。Visible下記のサンプルプログラムは、シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。●各シート表示・非表示の方法をが下記の通りに設定します。'シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。'シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。'全てのワークシートを繰り返します。'個人情報のシートを非表示にします。'シートの中に「個人情報」のシート名が含まれている場合は、全て非表示にします。'全てのワークシートを繰り返します。'個人情報のシートを非表示にします。※プログラム実行、シートの中に「個人情報」の含まれているシート名のシートが非表示されました。(画面クリックして拡大)特定のシート名以外のシートは表示・非表示を繰り返します。Visible下記のサンプルプログラムは、特定のシート名(Main)以外のシートは、表示・非表示を繰り返します。ここでは、シート名に「個人情報XXX」があるシートは、表示・非表示を繰り返します。●以外のシート名⇒「個人情報(XXX)」※個人情報のシート表示・非表示を繰り返します。'特定のシート名以外のシートを表示⇔非表示繰り返します。'特定のシート名以外のシートを表示⇔非表示繰り返します。'全てのワークシートを繰り返します。'シート名「Main」以外のシート名以外のシートを表示⇔非表示を繰り返す。'特定のシート名以外のシートを表示⇔非表示繰り返します。'全てのワークシートを繰り返します。'シート名「Main」以外のシート名以外のシートを表示⇔非表示を繰り返す。※プログラム実行後、実行するたびに、「個人情報XXX」のシート表示・非表示を繰り返します。利用する事で「表示⇔非表示」を繰り返す条件になります。(クリックして拡大)最後まで、ご覧いただきまして誠に有難うございました。VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。指定した行列に小計を追加する。指定した行列に小計を追加する。複数条件に一致するデータのセル数をカウントする。指定した行列に小計を追加する。指定した表を自動的に背景色をゼブラ模様(縞模様)にする。Functionプロシージャを使いこなす。便利なVBAコード・サンプルプログラム一覧・覚えると便利・効率が上がる。エラーかどうがを判定します。