By ジェイソンズ 09年2020月XNUMX日土曜日
投稿: Kutools for Excel
返信 1
いいね 0
ビュー 5.8K
投票 0
こんにちは。 ワークシートが6つしかない場合、画面の左側にリストされているタブの12つをクリックすると、そのタブがリストの一番上に移動し、Excelファイルの下部にあるタブが自動的に並べ替えられます。 これは、他のExcelワークシートでは発生しません。 これらの他のワークシートでは、リストをクリックして13つのタブまたは別のタブに移動でき、すべてが同じ順序のままになります。 しかし、この19つのExcelワークシートにはありません。 タブの並べ替えを停止したい。 たとえば、スクリーンショットでは、10月2007日からXNUMX日とXNUMX月XNUMX日からXNUMX日がリストの下部に表示されますが、以前はそれらが上部に表示されていました。 これについて私を助けてくれませんか? これは、ExcelXNUMXを搭載したWindowsXNUMXシステム上にあります。[添付ファイル]ボックスをクリックしてスクリーンショットをアップロードしようとしましたが、アップロードできないようです。
これにより、非表示のシートが表示されているすべてのシートの最後に移動します。
サブテスト()
    シート付き( "Sheet1")
        .visible = 真
        Sheets( "Sheet1")。Move After:= Sheets(Sheets.Count)
        .Visible = False
    最後に
End Subの
そして、これにより、非表示のシートがすべての非表示および表示のシートの最後に移動します。
サブmoveHiddenSheet()
薄暗いws、x、lastSheet
X = 0
ws = Worksheets.CountTo0の場合ステップ-1
    x = x + 1
    If Sheets(Worksheets.Count --x).Visible = False Then
        Sheets(ws).Visible = xlSheetVisible
        lastSheet = Sheets(ws).Name
        終了
    終了する場合
次のws
シート付き( "Sheet1")
    .visible = 真
    Sheets( "Sheet1")。Move After:= Sheets(Worksheets.Count) 
    .Visible = False
最後に
Sheets(lastSheet).Visible = False
End Subの
·
3年前
·
0が好き
·
0投票
·
0のコメント
·
投稿全体を見る