すぐに役立つエクセルVBAマクロ集 FAQ ワークシートでタブストリップを使う

　すぐマク　YNxv9g1002

ワークシートでタブストリップを使いたいが？

Ｑuestion 57.1　タブストリップ・コントロール

教えていただきたいことが 2つあります、あつかましくお願いいたします。
　　1. シートをタブの形で表示したい
　　2. 指定の行を削除挿入をしたい
よろしくお願いいたします。

Ａnswer　　Excel 97以上

1.
「タブの形で表示」とは、どんな状態でしょうか？「タブ」とは「シートタブ」のこと（右図）だとすると、イメージから連想できるものとしては「最小化した状態（下図）」くらいしか思い浮かばないのですが。

もしも、これでよいならば、下記のコードになります。

'-----------------------------------------------------------------------------------------
Sub ウインドウを最小化などする()
    ActiveWindow.WindowState = xlMinimized      '最小化する
    ActiveWindow.WindowState = xlMaximized      '元のサイズに戻す
    ActiveWindow.WindowState = xlMaximized      '最大化する
End Sub
'-----------------------------------------------------------------------------------------

くわしいことは「ウィンドウの最大・最小化」をご覧ください。また、意味が違う場合は、どんな状態にしたいのか具体的にご連絡ください。

2.
指定の行を削除・挿入するためのマクロは、すでに掲載済みですから、「指定した行を削除するには」をご覧ください。

Ｑuestion 補充

「シートをタブの形で表示したい」は説明不足でした。すみません。今回次の2点を教えていただければ嬉しいです。

　1. 添付のようにシート（と見える）をタブクリックで
　　切り替えるようにしたいのです。

　2. それと、添付の絵のようにメニューをオリジナルの
　　形にして表示したいのです。

お手数ですが、よろしくお願いいたします。

Ａnswer　　Excel 97以上

1.
失礼しました。発想が乏しくて。
いただいた画像は恐らく、ワークシートにActiveXコントロールの［Tab Strip］または［Multi Page］コントロールを埋め込んで作成されたものと思います。
もしも、［Tab Strip］を使用しているならば、セルをコントロールと同色に塗りつぶしているのかなと思います。
どちらのコントロールも、［表示］メニューから［ツールバー］－［コントロールツールボックス］とクリックし、表示された［コントロールツールボックス］で［コントロールの選択］ボタンをクリックして、［Microsoft Forms 2.0 TabStrip］または［Microsoft Forms 2.0 MultiPage］を選択すればマウスポインタの形状が＋に変わるので、ワークシートに矩形を描くだけで作成できます。

2.
いただいた図のメニューは、標準では［編集(E)］から［印刷(P)］の間にある［表示(V)］、［挿入(I)］などが削除されていますね。
そうするためには、CommandBarsプロパティと Deleteメソッドなどを組み合わせれば実現できます。しかし、そうしたい理由は、ユーザーが余計な操作をしてトラブルが発生することを防止したいからかと思いますが、標準メニューにリセットする手段も準備しなければなりません。また、マクロ実行中に不測の事態でExcelを終了させたりすると、かえって困った事態が発生しかねません。

よって、本格的によく勉強してから行ってください。
参考書として「Excel VBA マクロ 500連発第2弾」をご紹介します。その中のマクロ番号 66～81までに 16個のサンプルがあります。

お願い
あなたは見落とされたようですが期間限定の質問の受付はアンケートにご協力いただいた先着3名さま (1人1問限り) となっています。ご協力ください。

http://www.geocities.jp/happy_ngi/