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 test if cell is in a range测试单元格是否在定义的范围内,然后设置值。 由@Vitaliy Prushak在评论中建议编辑。
1条答案
按热度按时间sf6xfgos1#
我只是刚刚学习VBA的时刻,所以这可能是一些非常horible代码,但这里去。
如果工作表中选定的单元格发生变化,则调用
Worksheet_SelectionChange
,然后使用我在这里找到的InRange
测试:VBA test if cell is in a range测试单元格是否在定义的范围内,然后设置值。由@Vitaliy Prushak在评论中建议编辑。