Excel VBA代码将工作表向右或向左移动一个

Question

我有一个带有任意数量的工作表选项卡的工作簿。我想将命令按钮设置为“向左移动”和“向右移动”，这会将工作簿中的工作表向左或向右移动(即，将工作表的左侧移到其左侧或将工作表的右侧移到它的右侧)。是否有捷径可寻？似乎使用 ActiveSheet.Move 您必须知道工作表的名称才能在之前或之后移动它。我不知道如何将工作表的名称放在其右侧或左侧。

Answer 1

这将向右移动事件工作表:

Sub moveright()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Next Is Nothing Then Exit Sub
    s.Move after:=s.Next
End Sub

这会将事件工作表向左移动:

Sub moverleft()
    Dim s As Worksheet
    Set s = ActiveSheet
    If s.Previous Is Nothing Then Exit Sub
    s.Move before:=s.Previous
End Sub