excel - 选择时更新单元格

Question

一旦选择了 A2:A20 范围内的单元格，我就需要事件单元格自动具有实际年份。我的 VBA 代码立即更改所有单元格。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To 20
    If ActiveCell = Cells(i, "A") And Cells(i, "A") = "" Then
      Cells(i, "A").Value = Year(Now)
    End If
Next i
Range("A:A").EntireColumn.AutoFit
End Sub

Answer 1

由于您希望 A2:A20 在选择单元格时自动显示当前年份，因此您需要使用 Worksheet_SelectionChange 事件。然后，在这种情况下，您只需测试所选单元格是否在 A2:A20 范围内，如果在，则将该值设置为当前年份。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Me.Range("A2:A20"),Target) Is Nothing Then
     Target.Value = Year(Now())
End If

Range("A:A").EntireColumn.AutoFit

End Sub