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

xdwy81129

不是移动表格，是表的标签移动



如图，表的顺序不动，而把当前表（）的标签移动的中间去。
也即是按上图中间的向左按钮，但比较麻烦，而且还不是移动到中间的。
表标签移动.rar (8.84 KB, 下载次数: 24)

2011-9-1 13:24 上传

点击文件名下载附件

谢谢指教

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-2 13:28

考虑因素多一点:
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

跳转到最佳答案楼层

studyexcel

{:041:}啥意思

DQBSH

惭愧，不懂哦！

xdwy81129

自己顶顶

fjmxwrs

回复 xdwy81129 的帖子

标签移动？不是移动表？标签不代表表格吗？

xdwy81129

回复 fjmxwrs 的帖子

这个是移动了标签的，求问的不的移动表格

效果如图：

zjdh

不就移动标签的位置吗？
ActiveWindow.ScrollWorkbookTabs Sheets:=5   '左移5位
ActiveWindow.ScrollWorkbookTabs Sheets:=-2   '右移2位
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst   '显示最左边
ActiveWindow.ScrollWorkbookTabs Position:=xlLast   '显示最右边

zjdh

运行以下3句语句，把999移到中间：

1. Sub test()
   
2.     ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
   
3.     Sheets("999").Select
   
4.     ActiveWindow.ScrollWorkbookTabs Sheets:=5
   
5. End Sub

复制代码

Select

没明白题意。
如果这是示例，可以试试少些工作表，比如3个，如果够的话。
再说明希望达到的效果

xdwy81129

回复 zjdh 的帖子

谢谢，只是有些遗憾的是，这里表格的名称长度不一样，所以固定ActiveWindow.ScrollWorkbookTabs Sheets:=5 是没有自动实现移动到中间的，但只能预先设定具体移动多少位置了