セルをクリックして、別のセルの値を変更します

Question

簡単なプロセスのように見えることを達成できません...セル（C47）をクリックして、「ハードウェア」という名前のシートのセル（「ClInfo」という名前）に値（「Hello」）を指定したいと思います。 ）「1」という名前のシート。

私はこれを試しました：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
    If Not Intersect(Target, Range("C47")) Is Nothing Then
        .range("ClInfo").value = "hello"
    End If
End If 

それを機能させるにはどうすればよいですか？ご協力いただきありがとうございます！

Answer 1

コードは次のようになります。Worksheetオブジェクトが欠落しているようです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("C47")) Is Nothing Then
        Worksheets("Hardware").Range("ClInfo").Value = "hello"
        End If
    End If
End Sub

これを1という名前のシートのVBAとして配置していることを確認してください。