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 に答える