メインコンテンツへスキップ

Excelワークブックに常に表示されるようにシートの位置をロックするにはどうすればよいですか?

ブックに複数のシートがある場合、最後のXNUMXシートに切り替えると、次のように最初のシートがシートタブバーに非表示になります。 マスターシートの位置を常に表示できるようにロックしたいのですが、どのように処理できますか?

ドキュメントロックシートの位置1 右矢印ドキュメント ドキュメントロックシートの位置2

VBAでシートの位置をロックする


VBAでシートの位置をロックする

ここでは、このジョブを処理するためのXNUMXつのVBAコードを紹介します。

シートにジャンプ

1。 押す Altキー+ F11 を有効にするためのキー Windows用のMicrosoftVisual Basic.

2。 クリック インセット > モジュール、次に以下のコードをコピーしてスクリプトに貼り付けます。

VBA:マスターシートにジャンプします

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

Note: コードスライス内 Sheets("マスター").Activate、あなたは Master 必要に応じて任意のシート名に変更します。

3. 次に、このコードを保存し、ワークブックに戻り、クリックします。 Developer > マクロ.
ドキュメントロックシートの位置3

4。 の中に マクロ ダイアログで、今挿入したコード名を選択し、クリックします オプション、このコードを実行するためのショートカットを作成します。
ドキュメントロックシートの位置4

5。 クリック OK 閉じる マクロ ダイアログ。

これで、作成したショートカットを押している間は、どのシートを使用してもマスターシートがアクティブになります。

シートは常に手前に置いてください

1。 押す Altキー+ F11 を有効にするためのキー Windows用のMicrosoftVisual Basic.

2。 ダブルクリック このワークブック プロジェクト-VBAProject ペインに移動し、以下のコードをコピーしてスクリプトに貼り付けます。

VBA: シートを常に前面に置く

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
    Dim xSheet As Worksheet
    Application.EnableEvents = False
    Set xSheet = Sheets("master")
    If Sh.Name <> xSheet.Name Then
        Sh.Move , xSheet
        xSheet.Activate
        Sh.Activate
    End If
    Application.EnableEvents = True
End Sub

ドキュメントロックシートの位置5

3. コードを保存し、VBA ウィンドウを閉じます。 これ以降、どのシートをクリックしても、マスター シートは常にタブ バーの前面に表示されます。

ドキュメントロックシートの位置6 右矢印ドキュメント ドキュメントロックシートの位置7

注: 上記のコードでは、 "マスター" は表示しておきたいシート名です。必要に応じて変更します。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, Very helpfull. How can I freeze 2 sheets instead of one? Thanks (i'm beginner in VBA)
This comment was minimized by the moderator on the site
Hi, Francis, sorry for replying such late. Hope below VBA code can help you.<div data-tag="code">Private Sub Workbook_SheetActivate(ByVal Sh As Object)

'UpdatebyExtendoffice20211115

Dim xSheet1 As Worksheet

Dim xSheet2 As Worksheet

Dim xBol As Boolean



Application.EnableEvents = False



xBol = Application.ScreenUpdating

Application.ScreenUpdating = False

Set xSheet1 = Sheets("Sheet1")

Set xSheet2 = Sheets("Sheet2")

If (Sh.Name <> xSheet1.Name) Then

If (Sh.Name <> xSheet2.Name) Then

xSheet2.Move , xSheet1

Sh.Move , xSheet2

xSheet1.Activate

xSheet2.Activate

Sh.Activate

End If

End If

Application.ScreenUpdating = xBol

Application.EnableEvents = True

End SubIn the code, Sheet1 and Sheet2 are the two sheets that will be fixed in the front of all sheets whichever sheet you active.
This comment was minimized by the moderator on the site
This seems to change the order of my other tabs when clicking through them. Is there a way to stop that? I would like to keep them in a specific order but keep the 'master' tab visible. Thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations