可以 用 VBA Selecte change 事件Private Sub Worksheet_SelectionChange(ByVal Target As Range)Set isect = Application.Intersect(Target, Range("B7:G10"))If Not (isect Is Nothing) Then [g5] = TargetEnd Sub
