Wert einer bestimmten Zelle in Excel-Makro anzeigen

Question

Ich bin neu in Excel-Makro. Was ich tun muss, ist durch Klicken auf bestimmte Zelle in einer Spalte Ich weiß es ist Wert. Kannst du mir dabei helfen?

Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Selection.Count = 1 Then 
     If Not Intersect(Target, Range("D1:D200")) Is Nothing Then 
      MsgBox Range.("D" & Row_No).Value 
     End If 
    End If 
End Sub 

Answer 1

unter den Code Verwenden Sie den Wert einer beliebigen Zelle in Spalte A, wenn Sie darauf klicken, um zu überprüfen, sollten Sie diesen Code auf Worksheet_SelectionChange Termin in Ihrem relevanten Blatt hinzugefügt:

Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

Dim WatchRange     As Range 
Dim IntersectRange    As Range 

' setting Column A as watched Range 
Set WatchRange = Range("A:A") 
Set IntersectRange = Intersect(Target, WatchRange) 

If Not IntersectRange Is Nothing Then 
    If Selection.Count = 1 Then 
     MsgBox Target.Value 
    Else 
     MsgBox "You have selected more than 1 cell !" 
    End If 
End If 

End Sub