怎么在原表格输入日期时自送跳成月底第30日

zlpgrace

大佬们，请教下，怎么在原表格里输入不同日期时自动跳成月底的第30日，例如输入2024年5月23日，但是回车后成了2024年5月30日，知道可以做个辅助列能求出，但是希望是否可满足在原表格里显示出来

zlpgrace

可以用函数公式生成吗？

Qs18

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    s = Target.Value
    x = DateSerial(Year(s), Month(s), 30)
    Target.Value = x
    Target.NumberFormatLocal = "yyyy/m/d"
End Sub

Qs18

个人觉得，表述有点小瑕疵，因为2月是没有30日的。

Qs18

试试.......

饮冰e士

稍微变通一下，变成当月的最后一天。