按下運行時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逐步地調試代碼並查看發生了什麼。 –

用鼠標右鍵單擊該按鈕，然後單擊「指定宏」。選擇您想要點擊按鈕時觸發的宏。然後點擊確定。而已。

來源

2017-06-01 18:01:47 ryguy72

按下運行時VBA宏不運行

回答

相關問題