如何根据活动/选定单元格更改单元格值

Question

我在范围 A2：A77中有一个名称列表，在名为"手动">的工作表名称中。 每当我选择一个名称时，即从区域中选择一个单元格时，该活动单元格值应反映在单元格C1中。此外，如果我选择了除给定工作表或范围以外的其他位置，则宏应该不起作用。

我已经用谷歌搜索了很多，但似乎没有什么符合我的标准，所以我在这里，希望有更好的解决方案。您可能会要求我通过使用数据验证来实现这一点，但为此，我每次都必须进行多次单击和滚动工作。因此，为了避免这种情况，我正在寻找VBA代码来最大程度地减少工作量和时间。 谢谢。

Answer 1

我现在才刚刚学习 VBA，所以这可能是一些非常可怕的代码，但在这里。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cells As Range
Set cells = ActiveSheet.Range("A1:A27")
If Not (Intersect(Target, cells) Is Nothing) Then
ActiveSheet.Range("C1").Value = Target.Value
End If
End Sub

如果工作表中的选定单元格发生变化，则调用Worksheet_SelectionChange，然后使用我在此处找到的InRange中的测试：VBA测试单元格是否在范围内 测试单元格是否在定义的范围内，然后设置值。

由@Vitaliy Prushak在评论中编辑。