[求助] 老鬼斑斑谢谢你， 但是程序有错，请再次赐教，

ppsnow

首先要谢谢你，但是我又要麻烦你了。

就是当我选择后面的日期比前面大的时候就出错了，是不是再作个判断，如果前面的小于后面的日期就该跳出提示框“开始的日期必须小于结束日期"

我不知道该怎么加程序， ，



Dim CEL
Dim RNG, RNG2
Dim R, R2

CEL = Sheet1.Range("IV5").End(xlToLeft).Address(0, 0)
    With Sheet1.Range("H5:" & CEL)
        Set RNG = .Find(CDate(Me.CmbStart), LookIn:=xlFormulas).Offset(0, -1)
        Set RNG2 = .Find(CDate(Me.Cmbend), LookIn:=xlFormulas).Offset(0, 1)
    End With

    If Not RNG Is Nothing And Not RNG2 Is Nothing Then
        R = RNG.Address(0, 0)
        R2 = RNG2.Address(0, 0)
        Columns("H:" & Left(R, Len(R) - 1)).Hidden = True
        Columns(Left(R2, Len(R2) - 1) & ":BJ").Hidden = True
    End If
End Sub

ppsnow

还有当我选择一个时间段，按了”show“只后，再改选”to“的日期， 就又报错了，不知道怎么修改程序，最后目的是无论怎么该都可以正常显示，而不用按”back“再选择。

还有就是有窗体跳出来时，excel表就不能动了，只有关了窗体才能在表里操作，怎么办呢，

老鬼

加一些条件判断进去就可以了，核心代码有了，其他只是修修补补。你可以“show”事件中把“back”中的代码加进去。

把窗体的showmodal设为"true"