|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Option Explicit
Private Sub Worksheet_Change(ByVal Tt As Range) '换个试一下
If Tt.Count > 1 Then Exit Sub
Dim y%, m%, d%
If Not Intersect(Tt, [p31:p486]) Is Nothing Then
m = Month(Tt.Value)
d = Day(Tt.Value)
Select Case Tt.Row
Case 31 To 211
y = 1998
Case 212 To 366
y = 2002
Case 367 To 485
y = 2016
End Select
End If
If y And m And d Then
Application.EnableEvents = False
Tt.NumberFormatLocal = "yyyy-m-d"
Tt = DateSerial(y, m, d)
Application.EnableEvents = True
End If
End Sub |
评分
-
1
查看全部评分
-
|