0

我正在尝试创建一个自动执行所有操作的函数。

这是我当前的代码：

Public Sub IncrementValueBeta(SlideDescription As String, SlideNumber As Integer, SlideName As String)
    ChangeSlide (SlideNumber)
    MsgBox ("Test: " + SlideDescription)
    AddClicks = SlideName.ClickedTimes.Caption + 1
    SlideName.ClickedTimes.Caption = AddClicks
End Sub

这将为该值添加一个数字，但我正在尝试编写更短的代码而无需执行if SlideName = "Slide1"1000 次，这是一个巨大的问卷调查。

我在这里尝试做的事情是，用户将键入"SlideName"例如"Slide1"，并且在代码中它将像Slide3.ClickedTimes.Caption = AddClicks在幻灯片中那样使用它，如果幻灯片是 25 次点击，它将是 26 次，它已经在工作，但只有当我不这样做时 Slide3才有Slidename办法我可以做这个？如果你知道怎么做，你能帮助我吗，因为如果我必须做If bah = "bah" then elseif bah = "bah" then1000 次，那将是一个真正的痛苦，你知道的。

任何人都可以帮忙吗？

4

1 回答 1

1

对你有用Slides("Slide3").ClickedTimes.Caption = AddClicks吗？因为在这种情况下，您可以"Slide3"用“SlideName”（一个变量）替换（一个常量），您的问题就解决了。

于 2013-11-04T05:37:19.163 回答