Office中国论坛/Access中国论坛

标题: [求助] 有附件，斑竹大哥呢，帮忙！！！！！！ [打印本页]

作者: ppsnow 时间: 2006-8-25 02:47
标题: [求助] 有附件，斑竹大哥呢，帮忙！！！！！！
怎么在按钮" show" 编制程序,使excel中只显示选择的时间列,而自动隐藏未选择的时间列,按" back" 又可以显示所有的. [attach]19972[/attach]

[此贴子已经被作者于2006-8-25 14:06:42编辑过]

作者: ppsnow 时间: 2006-8-25 03:17
人呢,怎么没个人帮帮偶的,,,

作者: ppsnow 时间: 2006-8-25 03:23
我等 !!

作者: 老鬼 时间: 2006-8-25 03:28
For Each cl In Columns("a:e") '循环列
If Cells(1, cl.Column) <> Range("h3") Then ’如果不等于时间
cl.Hidden = True '隐藏
End If
Next

For Each cl In Columns("a:e")
If Cells(1, cl.Column) = Range("h3") Then
cl.Hidden = False
End If
Next

作者: ppsnow 时间: 2006-8-25 03:39
看不懂,

我再说一下我要实现的内容,

表中深蓝色的一行(从h列开始) 填的是06年8月开始的年月,一直往后推,

在窗体的"from" 和" to" 中的下拉表中有所有的年月,用户可以选择一个时间段,比如06年9月到07年5月,那么在excel中就在H列显示06-7到07-5月的列数,而自动隐藏其他的列,按"back" 可显示所有的,

其实最好是excel能自动显示从今天开始往后18个月的数据,而自动隐藏其他的,但是同时也可以通过窗体来显示任意选择的时间断,

再请版版赐教,.,,

作者: 老鬼 时间: 2006-8-25 03:44
差不多，把我代码套进去就是了。不然的话你要把附件传上来。

作者: ppsnow 时间: 2006-8-25 03:58
Private Sub CmdShow_Click()

Dim ErrorMsgbox As VbMsgBoxResult
Dim i, a, b, d, count As Integer

If CmbStart.ListIndex > Cmbend.ListIndex Then
ErrorMsgbox = MsgBox("The start month must less then the end month, Please choose again", vbOKOnly + vbExclamation, "Error")
Else

CmbStart.ColumnHeads = a

Cmbend.ColumnHeads = b
d = count = Range("I5").CurrentRegion.Columns.count
For i = 9 To a
Range(Cells(5, 9), Cells(5, i)).Select
Selection.EntireRow.Hidden = ture
Next i

'For j = i + 1 To 1000

'Range(Cells(5, j), Cells(5, 1000)).Select
'Selection.EntireRow.Hidden = ture

'Next j

End If

这个不对的，我不知道如果“from”中的日期是 i，”to“ 中的日期是j，可以用个循环来实现上述功能吗， CmbStart.ColumnHeads = a

Cmbend.ColumnHeads = b,,

这样不对的吧，那要怎么写呢，

作者: 老鬼 时间: 2006-8-25 05:50
给个附件吧，否则浪费时间啊

作者: ppsnow 时间: 2006-8-25 16:56
标题: 我传附件了　，，，，，，
就是表里的　ＲＯＰ表，，，其他的绿色的也是一样的，，，，

作者: ppsnow 时间: 2006-8-25 18:06
[attach]19978[/attach]
唉，痛苦啊，，天天在想这个东西，

作者: 老鬼 时间: 2006-8-26 05:31
[attach]20004[/attach]

作者: tmtony 时间: 2006-8-26 08:06
有启发!

作者: ppsnow 时间: 2006-8-28 15:33
真开心，看到斑斑的回复，该死的偶得公司，只能开zip。怎么办呢，郁闷

作者: ppsnow 时间: 2006-8-28 15:39
斑斑能不能压成zip的啊， 55555555555555555555555555555555 我是勤劳的小鸟，，，，，lalala

作者: ppsnow 时间: 2006-8-28 16:07
我等斑斑起床，看偶得帖子，，，，，，

作者: ppsnow 时间: 2006-8-28 19:31
打开了，，，，可是测试几下又有问题，

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)