0

ユーザーが選択を行い、いくつかのコードを実行し、別の選択のために一時停止し、さらにコードを実行できるようにしたいですか?

最終的に HTML に変換される多数のテーブルを含むドキュメントを扱っています。場合によっては、2 つの類似したテーブルの書式設定が同じに変換されないことがあります。コンバーターがどのように機能するかを知っているので、あるテーブルからすべての書式設定データをコピーして、別のテーブルに「貼り付け」たいと思います。

ユーザーに何かを選択させ、コピーボタンを押し、別のものを選択して貼り付けボタンを押すというユーザーフォームのアイデアがあります。

4

3 に答える 3

0

Aaron からの回答を使用して、それをユーザーフォームの ToggleButton に組み込むと、コードを正常に一時停止できます。これにより、追加の選択で操作を変更することができます。

私はもともとグローバル変数やパブリック変数を使用していませんでしたが、すぐにSubs、Userforms

ユーザーフォーム:

Public Sub ToggleButton1_AfterUpdate()


    'Program is Paused / Selected to Pause

    If ProgBar.ToggleButton1.Value = True Then
        'Changing the Text of the Toggle button once the program is selected to Pause
        'If program paused then button will display continue
        ProgBar.ToggleButton1.Caption = "Continue"


        'For Sending to  Loop Code
        ProgramStatus = "0"
        Call LoopCode.PrgStat(ProgramStatus)

    End If



    'Program is running / Selected to run

    If ProgBar.ToggleButton1.Value = False Then
        'Changing the Text of the Toggle button once the program is selected to continue
        'If program running then button will display pause
        ProgBar.ToggleButton1.Caption = "Pause"

        'For Sending to  Loop Code
        ProgramStatus = "1"
        Call LoopCode.PrgStat(ProgramStatus)

    End If


End Sub

モジュール内

Public Status As String

Public Sub PrgStat(ByVal ProgStatus As String)

   Status = ProgStatus

End Sub




Sub SomeSub()

 Do While

   ' Some Loop Code Running




          If Status = "1" Then

          'Toggle Not Pressed           

          End If

          If Status = "0" Then

             'Toggle Button Pressed

             Do While Status = "0"
                'Program will stop here until the togglebutton on the 
                'userform is pressed again which changes Status = 1

                'This is where you can make another selection on the 
                'userform

                 DoEvents

             Loop


          End If

   Loop
 End Sub
于 2015-09-16T14:30:13.177 に答える