|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Option Explicit
Private Sub Worksheet_Change(ByVal Tt As Range)
If Tt.Count > 1 Then Exit Sub
Dim y&
If Not Intersect(Tt, [p31:p211]) Is Nothing Then
y = 1998
ElseIf Not Intersect(Tt, [p212:p366]) Is Nothing Then
y = 2002
ElseIf Not Intersect(Tt, [p367:p485]) Is Nothing Then
y = 2016
End If
If y Then
Application.EnableEvents = False
Tt.NumberFormatLocal = "yyyy-m-d"
Tt = DateSerial(y, Month(Tt.Value), Day(Tt.Value))
Application.EnableEvents = True
End If
End Sub |
评分
-
1
查看全部评分
-
|