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

【问题标题】：Excel VBA code to move a sheet to the right or left by oneExcel VBA代码将工作表向右或向左移动一个
【发布时间】：2020-06-23 02:39:03
【问题描述】：

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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：

完美运行。谢谢！