小编Luc*_*ens的帖子

我知道对于那里的人来说这是一个简单的问题,但我从来没有真正使用过功能模块,因为我不明白它们是什么.

所以我有很多东西可以使用它(减少冗余),但我想知道如何从表单调用sub(如按钮单击)过程.

我试过这个......

Sub Command_Click()
    Call "pptCreator"
End Sub

我知道这很糟糕,但我不知道如何将其纳入程序.

我正在尝试创建一个 PowerPoint 演示文稿，该演示文稿将显示自工作场所受伤以来的天数。

当用户第一次打开演示文稿时，我希望运行一个宏，提示输入自上次受伤以来的日期。到目前为止，我有这个似乎工作正常：-

Sub EveryDayAccidents()
Dim injdate As String
Dim lastdate As String
Dim injfree As Integer
Dim BnrMsg As String

'This Macro defines the latest injury date

injdate = InputBox("Please enter last injury date in this format:  dd/mm/yyyy")
lastdate = injdate
injfree = DateDiff("d", injdate, Now)
BnrMsg = injfree
ActivePresentation.Slides(3).Shapes("Accidents").TextFrame.TextRange = BnrMsg
End Sub

我缺少的是一些代码或其他子代码，它们会在演示文稿打开时调用此代码。

当日期自然变化时，文本框会更新还是需要在后台运行某些内容来更新文本框？计划是让演示文稿中的幻灯片循环运行，直到发生事故，然后将其重置并重新开始。

任何帮助将非常感激！！

编辑

所以现在我有了这个：-

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
 If SSW.View.CurrentShowPosition = 3 Then

     injdate = ActivePresentation.Slides(3).Shapes("Accidents").TextFrame.TextRange
     injfree = DateDiff("d", injdate, Now)
     BnrMsg …

我在网上拖网,似乎无法找到一个简单的解决方案,所以希望你能帮忙.

我现在有一个Macro,它从.txt文件中获取数据,并每3分钟用最新数据覆盖一个excel文件.它使用覆盖的日期和时间命名新文件.

我想要的是使用"创建新工作簿"宏的工作簿在每个新工作簿创建时添加一个新模块,包括模块内部预先编写的宏(插入的模块将包含记录谁的代码当工作簿打开和关闭时,将写入第三个工作簿,但我可以这样做)

我希望所有这一切都可以通过第二个Sub完成!

谢谢!7点的