异想天开：每个月结束必须向下空两格才可以输入下个月的日期

zyhui1961

每个月结束必须向下空两格才可以输入下个月的日期

剑指E

选中B列，数据验证，公式：

=(INDIRECT("R[-2]C2",)="")*(INDIRECT("R[-1]C2",)="")+(MONTH(INDIRECT("R[-1]C2",))=MONTH(B1))*(INDIRECT("R[-1]C2",)<>"")

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 2 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    If Not IsDate(T.Value) Then End
    rq = T.Offset(-1).Value
    If rq <> "" Then
        yf_1 = Month(rq)
        yf_2 = Month(Date)
        yf_3 = Month(T.Value)
        If yf_1 = yf_3 Then
            If yf_3 <> yf_2 Then
                MsgBox "请注意今天已经是" & yf_2 & "月份了": End
            End If
        ElseIf yf_1 <> yf_3 Then
            MsgBox "请空两行输入下一月日期"
            T.Value = ""
            End
        End If
    End If
End If
End Sub

3190496160

工作簿1.rar (18.58 KB, 下载次数: 3)

2022-6-5 09:38 上传

点击文件名下载附件

zyhui1961

3190496160 发表于 2022-6-5 09:38

这个代码很好，给了我很大 的帮助，非常感谢！

再就是能不加一句不可以输入系统日期以后的日期（这个是我原来没有说清楚！）