求助：VBA for comparing and entering two date value

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位excel 专版的朋友，我有个问题想请教各位VBA experts。

我要在column A and column B 的每一行分别输入两个日期。
要求是
以第一行为例
1. 如果我先在column A 的A1格 输入了任意一个日期，那么在column B 的B1格必须输入一个比A1格的日期大的日期。如果在column B 的B1格输入一个比A1格的日期小的日期,就会弹出错误的信息提示。
2. 如果我先在column B 的B1格 输入了任意一个日期，那么在column A 的A1格必须输入一个比B1格的日期小的日期。如果在column A 的A1格输入一个比B1格的日期大的日期,就会弹出错误的信息提示。

以下是我写的VBA CODE
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Offset(0, 1).Value <> "" And Target.Value > Target.Offset(0, 1).Value Then
            MsgBox "The date value in coumn A should less than the date value column B.", vbOKOnly, "Error Message"
            Application.Undo
        End If
    End If
    If Target.Column = 2 Then
        If Target.Value <> "" And Target.Value < Target.Offset(0, -1).Value Then
            MsgBox "The date value in coumn B should greater than the date value column A.", vbOKOnly, "Error Message"
            Application.Undo
        End If
    End If
End Sub

但当我运行的时候会出现一个小bug........
那就是当我要删除两行以上的值时，就会弹出"Run-time error '13': Type mismatch"
如果我每次只删除一个格的值，就没有任何错误。。。。

希望各位VBA experts 能帮我debug一下。
谢谢。。。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Comparing Entering value enter Aring VBA value two Entering Comparing

我愿意。请问你能具体说明一下吗。谢谢。。。

解决：
在 ‘开始'-> '运行'->‘%systemroot%\system32\dumprep 0 -k’ 并在注册表的启动项添加此进程 添加方法:'开始’->‘运行’->‘regedit’->' HKLM(MACHINE)\SOFTWARE\Microsoft\Windows\CurrentVission\Run->新建一个字符（ab形式）的值 名称命名为：KernelFaultCheck 双击后，付值为：%systemroot%\system32\dumprep 0 -k