单击一个单元格更改另一个单元格的值

Question

我无法完成这个看似简单的过程...我想通过单击名为“1”的工作表中的一个单元格（C47）为名为“Hardware”的工作表中的一个单元格（名为“ClInfo”）赋予一个值（“Hello”）。

我尝试了这个：

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

确保将其作为工作表的 VBA，名为1：