[已解决]【求教】表标签移动

fjmxwrs

回复 xdwy81129 的帖子

标签代表的就是表格，怎么移动标签不移动表格呀？晕

xdwy81129

回复 Select 的帖子

就是表格很多，而且必须多才可以达到效果
效果如入下：

中间的999表格被选择后的情况达到表标签的中间

buttt

饿太笨了，看了好久都木看明白

zjdh

删了,不对再想想。

zjdh

考虑因素多一点:
Sub test()
    For Each SH In Sheets
            M = M + 1    '左边总数
            L = L + Len(SH.Name) + 2       '左边总长度，标签间空2位  
         If SH.Name = "999" Then Exit For
    Next
    For I = 1 To M        
        B = B + 1   '选定工作表后先移动数
        L = L - Len(Sheets(I).Name) - 2
        If L <= 90 Then Exit For       '假定显示标签总宽度90位
    Next
    For I = M To 1 Step -1
         C = C + 1  '显示区左边总数
        If N >= 40 Then Exit For       '假定显示左边预留标签总宽度40位     
        N = N + Len(Sheets(I).Name) + 2
    Next
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("999").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=M - B - C
End Sub

zjdh

可以根据情况调整：显示标签总宽度和显示左边预留标签总宽度。