Tag: 呼叫

VBA代码调用时没有正确执行

大家好，我希望你能帮上忙。 我有一段代码见下面。 我试图实现的是，用户打开一个Excel工作表，其中包含一个命令button和说明。 一旦命令button被点击，一个对话框打开，然后允许用户select另一个Excel工作表，一旦Excel工作表被选中，另一段代码（应该）触发和重复被合并，并且开始date和结束date被修改，并且工作表保持打开状态，无需重复，date正确。 这段代码 Public Sub ConsolidateDupes() 当它在原始页面上运行时，它完美的工作，但是当我尝试用命令button调用它时，它不能正常工作。 没有错误出现，它只是不删除所有可能的重复，并不会将date工作到最早的开始和最后的结束date 我已经添加了图片，使解释更容易图1 带有命令button的Excel工作表 图片2要重新select原始状态的表单和重复的开始date和结束date 代码之后的所选工作表已由该工作表上的itslef运行 使用命令button调用选定的工作表 正如你希望看到的重复是留下来的date不工作到最早的开始date和最后的结束date 正如我所说的代码完美的工作原理自己在工作表上，但是当它被称为它留下重复，并没有工作的开始和结束date 这里是我的代码任何帮助是总是不胜感激。 码 Sub Open_Workbook_Dialog() Dim my_FileName As Variant MsgBox "Select Denmark File" '<–| txt box for prompt to pick a file my_FileName = Application.GetOpenFilename(FileFilter:="Excel Files,*.xl*;*.xm*") '<–| Opens the file window to allow selection If my_FileName <> False Then […]