如何有条件地向指定区域AE7:AG33输入指定字符“/”

qujing342

当前月份如果是2月份时，AE6:AG6列则是3月份的日期（也有可能是闰年，2月有29号），我已对单元格用条件格式进行了自定义“;;;”不显示（隐藏） 设置。
想通过什么方式（用VBA也行），如果当AE6:AG6的日期是3月份时，对AE7:AG33禁止输入任何信息。

当前月份如果是4、6、9、11四月份时（这四个月只有30天），则最后一列AG7:AG33禁止输入任何信息。

qujing342

liulang0808

vba可以考虑表格change事件，不过楼主已经有这个事件，建议综合考虑整合下吧

qujing342

liulang0808 发表于 2023-3-11 07:42
vba可以考虑表格change事件，不过楼主已经有这个事件，建议综合考虑整合下吧

里面的VBA是我借鉴别人的，我 不懂VBA,请老师帮忙修改一下
目的是：当选择月份是2月份时，由于2月只有28天，（闰年时是29天),
这种情况下，本登记表最后面的3列（闰年2列）就是3月1、2、3号，目的是让这3列，通过VBA进行控制，达到禁止输入(锁死保护)，以防止误输入，给以后的考勤统计带来不准确的统计。

qujing342

vba可以考虑表格change事件，不过楼主已经有这个事件，建议综合考虑整合下吧

谢谢版主百忙之中阅览本帖。
我对VBA不太懂，文件用的VBA是借鉴别人的，弄一晚上也没弄好。

目的是想达到以下效果：
当前月份如果 是2月份时，由于2月份只有28天（闰年29天），这样28号后面的3列则是3月1日、3月2日、3月3日，这最后的3列显然是不能参与2月份的考勤统计的。这种情况下，用VBA对后面的3列进行保护，做到无法输入任何信息，就像被保护锁死那样。
当月份是4、6、9、11月份时（因为这几个月份只有30天），则最后一列禁止输入。

不知道我的意思讲明白了没有，还请大师帮助，谢谢

mmwwdd

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim currentMonth As Integer
    currentMonth = Month(Date)
    Dim lastDay As Integer
    lastDay = Day(DateSerial(Year(Date), currentMonth + 1, 1) - 1)
   
    ' 如果是2月份
    If currentMonth = 2 Then
        ' 禁止输入3月份的前三天
        If Target.Column > 28 And Target.Column < 32 Then
            Target.Locked = True
            MsgBox "2月份只有" & lastDay & "天，最后三列不能输入。", vbExclamation, "注意"
        End If
    ' 如果是4、6、9、11月份
    ElseIf currentMonth = 4 Or currentMonth = 6 Or currentMonth = 9 Or currentMonth = 11 Then
        ' 禁止输入最后一列
        If Target.Column = 31 Then
            Target.Locked = True
            MsgBox currentMonth & "月份只有30天，最后一列不能输入。", vbExclamation, "注意"
        End If
    End If
End Sub

mmwwdd

准提部林

利用change事件//在非日期列輸入或粘貼, 提示錯誤//回復原狀
Xl0000603.rar (11.93 KB, 下载次数: 2)

2023-3-11 11:40 上传

点击文件名下载附件

qujing342

谢谢 版主、mmwwdd、准提部林几位老师，你们的方法更精准更绝妙

准提部林

如果這表格是給別人使用的,
保全性有問題, 他們可以任意變動年月,
或用複製粘貼, 破壞表格~~

另外, 在已有輸入資料時, 變動年月時, 是否也要一併清空??