Case "上一条" Tables("窗口1_Table1").Position = Table("窗口1_Table1").Position - 1 Tables("表A").Position = Tables("表A").Position - 1