нажмите на ячейку изменить значение другой ячейки

Question

Я не могу добиться, чтобы сделать то, что выглядит как легкий процесс ... Я хотел бы присвоить значение ("Hello") ячейке (с именем "ClInfo") на листе с именем "Hardware", щелкнув ячейку (C47) на листе с именем "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

Убедитесь, что вы помещаете это как VBA для вашего листа с именем 1: