[已解决]如何限制指定列只可输入1-n的正整数

jjincn

要求如题，听说用正则表达式实现起来更方便。
细节补充：
0、n为正整数，取值为当前日期为判断依据的上月的最大天数，如现在是9月份，那n取值为31（即8月的最大天数值）
1、要能支持用CTRL+ENTER一次输入多个单元格的情况
2、一次清空多个单元格
3、如果输入的内容不是1至n内的数字，则自动清空输入的内容，如果符合要求，则将数字补充为“2015-8-n”(上月的日期形式)的形式。
4、要可支持复制操作，如一次性复制一列1至n内的数值；或是复制的“2015-8-n”（本身就是符合要求的日期形式，无需要作任何处理）形式的内容。

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-16 17:23

那就用这个吧，加上
        If Int(rg.Value) = rg.Value And rg.Value >= 1 And rg.Value <= n Then
            rg.Value = DateSerial(Year(Date), Month(Date) - 1, rg.Value)
            rg.NumberFormatLocal = "yyyy-m-d"
        ElseIf rg.Value > Date - Day(Date) - n And rg.Value < Date - Day(Date) Then
            rg.NumberFormatLocal = "yyyy-m-d"
        Else
            rg.ClearContents
        End If

详见附件

跳转到最佳答案楼层

jjincn

没人关注啊，高手们给个用正则表达式的示例吧，用其它也可以做到，只是判断起来比较麻烦，且基本只能限一个单元格被改动的情况。

高

摸索了半天，才试出来，看行不行。

yorkchenshunan

请下载附件

jjincn

yorkchenshunan 发表于 2015-9-16 11:21
请下载附件

非常感谢，基本满足要求，特别是Day(Date - Day(Date))来得出上月最大天数值，比较不错，很简短实用，不过有个小问题，就是在补全为合  法日期格式的单元格上如果删除内容后，代码赋予的日期格式不能被去掉，这样当在输入时就会被清除内容。

同样的，如果复制一个合  法的日期也是复制不了的。

看来还要在之前加上对日期的判断，在中间加上对删除操作的处理。

jjincn

高 发表于 2015-9-16 10:38
摸索了半天，才试出来，看行不行。

感谢关注并回复，可能你没有完全理解我的意思，我不是让只能输入上月的最后一天的日期，而可以输入上月任何一天的日期值然后再用代码实现自动补全所需要的日期格式。
4楼的理解是对的，但有点小问题，呵呵。
不过你的思路中st = target.Address这个不错。

yorkchenshunan

jjincn 发表于 2015-9-16 15:54
非常感谢，基本满足要求，特别是Day(Date - Day(Date))来得出上月最大天数值，比较不错，很简短实用，不过 ...

见附件，已经完善，在中间加上即可

Application.EnableEvents = False
Target.NumberFormat = "General"
Dim rg As Range, n%

jjincn

yorkchenshunan 发表于 2015-9-16 16:20
见附件，已经完善，在中间加上即可

Application.EnableEvents = False

感谢，可以了。但是复制问题没有解决。我之前是用的数值判断法，就是将日期转成数值，再与上月第一天的值的最后一天的值比较，如里在这个区间内就不处理这样的内容。
不知贵兄有无更好的解决方法，期待你的思路？

yorkchenshunan

那就用这个吧，加上
        If Int(rg.Value) = rg.Value And rg.Value >= 1 And rg.Value <= n Then
            rg.Value = DateSerial(Year(Date), Month(Date) - 1, rg.Value)
            rg.NumberFormatLocal = "yyyy-m-d"
        ElseIf rg.Value > Date - Day(Date) - n And rg.Value < Date - Day(Date) Then
            rg.NumberFormatLocal = "yyyy-m-d"
        Else
            rg.ClearContents
        End If

详见附件

jjincn

yorkchenshunan 发表于 2015-9-16 17:23
那就用这个吧，加上
        If Int(rg.Value) = rg.Value And rg.Value >= 1 And rg.Value  Date - Day(D ...

谢谢。这样子算是圆满了。
小弟有些愚了，可以直接用日期区间比对的。
思维要灵活才好啊！！！