Excelマクロ内の特定のセルの値を表示

Question

マクロをExcelに新規導入しました。 私が必要とするのは、ある列の特定のセルをクリックすることです。私はその価値を知るでしょう。これで私を助けることができますか？

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

あなたがそれをクリックすると、このコードはWorksheet_SelectionChangeイベントにあなたの関連シートに追加する必要があります列内の任意のセルの値をチェックするには、以下のコードを使用します。

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