菜单浏览表单无法正常工作

我创build了一个菜单来浏览表单。 但是，当我使用其中一个button去另一个工作表，并在另一个工作表中键入的东西，我键入的东西出现在第一个。 虽然当我使用标签跳转到另一张工作表，它工作正常。 似乎是macros观正在考虑一个相对的参考，而不是一个绝对的。

这是我的macros（或至less应该）：

Private Sub cadastrar_clientes_Click() Application.ScreenUpdating = False Menu.Hide Sheets("Clientes").Select Range("A1048576").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Select End Sub 

笔记：

我试过使用“.activate”而不是“.select”。
我试过只使用“表格（”Clientes“），select”，即使是这样的错误发生。 要在Windows CMD上执行“Excel / unregserver”解决了我的问题一次，但我不能再这样做。 它似乎不工作了。
我曾经做过这样的菜单，但是我没有遇到这些问题。

当工作簿打开时执行下面的代码：

 Private Sub Workbook_Open() Application.DisplayFullScreen = True Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayWorkbookTabs = False End Sub 

而已。 我希望有人能帮助我。

Answer 1

用VBAreplaceVBA模块菜单上的所有代码（在你提供的文件中testing）

 Option Explicit Private Sub fechar_menu_Click() Menu.Hide End Sub Private Sub novo_pedido_Click() goToTab ActiveWorkbook.Worksheets("Novo pedido"), "B5" End Sub Private Sub ver_pedidos_Click() goToTab ActiveWorkbook.Worksheets("Consultar pedido"), "F1" End Sub Private Sub cadastrar_clientes_Click() goToTab ActiveWorkbook.Worksheets("Clientes") End Sub Private Sub cadastrar_produtos_Click() goToTab ActiveWorkbook.Worksheets("Produtos") End Sub Private Sub cadastrar_transportadoras_Click() goToTab ActiveWorkbook.Worksheets("Transportadoras") End Sub Private Sub painel_financeiro_Click() goToTab ActiveWorkbook.Worksheets("Painel Financeiro"), "B3" End Sub Private Sub goToTab(ByRef ws As Worksheet, Optional cel As String = vbNullString) Menu.Hide Application.ScreenUpdating = False With ws .Activate If Len(cel) = 0 Then .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Select Else .Range(cel).Select End If End With Application.ScreenUpdating = True End Sub 

Answer 2

好吧，我想现在我对这个问题有了更多的了解。 我已经在各种计算机上testing了这个工作簿，并得出结论说这个问题在Office 2013中。运行2007或2010版本时，我似乎没有这个问题。 到目前为止，我还没有find解决办法。 我想感谢Paul Bika的帮助。