|
荒烟平楚 发表于 2012-3-7 22:04
谢仁兄指点!
本意是让你把表做得人性化、让计算机好处理一些,因为不知道你的数据关系,下面只是改了部分代码。
Sub 查看今天数据()
On Error GoTo esc
Application.ScreenUpdating = False
With Sheets("物控计划表")
For I = 5 To 159 Step 5
If Format(CDate(.Cells(2, I)), "yyyy-mm-dd") = Format(CDate(.Range("B2")), "yyyy-mm-dd") Then
.Columns(I).Hidden = False
.Columns(I + 1).Hidden = False
.Columns(I + 2).Hidden = False
.Columns(I + 3).Hidden = False
.Columns(I + 4).Hidden = False
Else
.Columns(I).Hidden = True
.Columns(I + 1).Hidden = True
.Columns(I + 2).Hidden = True
.Columns(I + 3).Hidden = True
.Columns(I + 4).Hidden = True
End If
Next
End With
2000:
Application.ScreenUpdating = True
Exit Sub
esc:
MsgBox Error
GoTo 2000
End Sub
Private Sub 确定_Click()
On Error GoTo esc
Application.ScreenUpdating = False
Select Case 查看选择框.Value
Case "查看订单数量"
Call 查看所有项目
Call 隐藏计划到料
Call 隐藏实际到料
Call 隐藏是否达成
Call 隐藏当天库存
Case "查看计划到料"
Call 查看所有项目
Call 隐藏订单数量
Call 隐藏实际到料
Call 隐藏是否达成
Call 隐藏当天库存
Case "查看实际到料"
Call 查看所有项目
Call 隐藏订单数量
Call 隐藏计划到料
Call 隐藏是否达成
Call 隐藏当天库存
Case "查看是否达成"
Call 查看所有项目
Call 隐藏订单数量
Call 隐藏计划到料
Call 隐藏实际到料
Call 隐藏当天库存
Case "查看当天库存"
Call 查看所有项目
Call 隐藏订单数量
Call 隐藏计划到料
Call 隐藏实际到料
Call 隐藏是否达成
Case "查看统计数据"
Call 查看所有项目
Call 查看统计数据
Case "查看所有项目"
Call 查看所有项目
End Select
2000:
Application.ScreenUpdating = True
Unload 快速查看窗体
Exit Sub
esc:
MsgBox Error
Resume 2000
End Sub
|
|