実行時にVBAマクロが実行されない

Sub Button2_Click() 
    Dim R As Range 
    Dim C As Range 
    Dim Msg As String 

    With Sheets("data").Range("A1").CurrentRegion 
     For Each R In Sheets("Coverage Data").Range("A2:AD2") 

      Set C = .Rows(1).Find(R.Value, , , xlWhole, , 0) 
      If Not C Is Nothing Then 
       .Columns(C.Column).Copy R 
      Else 
       Msg = vllf & R.Value 
      End If 
     Next 

     Application.CutCopyMode = False  
    End With 

    If Len(Msg) Then MsgBox "Done" & Msg 
End Sub

をクリックすると、次のコードが実行されます。何も起こりません。何が間違っているのを助けてください？エラーなし実行時にVBAマクロが実行されない

出典

2017-05-30 Johnny Chen

何かが返されますか？データを表示できますか/ –

何も起こらない場合、コードはボタンに正しく割り当てられていません。 –

は、withステートメントにブレークポイントを設定し、そこで停止すると、コードをデバッグして何が起こっているかを見るためにF8キーを使用して段階的に進みます。 –

ボタンを右クリックし、[マクロの割り当て]をクリックします。ボタンをクリックしたときに発射するマクロを選択します。次にOKを押してください。それでおしまい。

出典

2017-06-01 18:01:47 ryguy72

実行時にVBAマクロが実行されない

答えて

関連する問題