谢谢daley老师的指导！教室安排的问题已解决！答案在26楼

godzhong

原帖由 daley 于 2010-6-28 23:23 发表
问题1、

因为你使用的版本号是2003的，而2003版本的只有256列，无法完成从1~12月份的列，所以为了解决这个问题，就选择了这个自动填充的方法，例如当前的月份为5、6月份折，如果想在插入1~4月份的话，那么你可以先 ...

您好daley，
1、可能我的第一个问题没解释清楚，我看了您的批注，按您的操作列出了1到2月份的所有日期（而且我觉得您的这个设计很巧妙，正好是我想要的设计，可以自定义排课时间段），我现在想实现的就是点击查看教室，直接能显示选择的时间段（也就是对当前的1到2月的日期进行筛选）而不是这1月和2月的所有日期，因为表格能显示在屏幕的时间跨度有限，这样会产生看不到所要填充区域的问题。容易覆盖之前排过的班级，出现错误。
具体您可以看一下这个我一开始弄的表格，选择时间段和教室规模后会出现当前的时间段，就是要达到和这个表格类似的效果。
多项筛选条件下的教室排课表.rar (29.12 KB, 下载次数: 9)

2010-6-29 00:10 上传

点击文件名下载附件

2、“打开窗体”，和“清除日期区域”两个按钮我想编辑下他们的名字，然后能随意移动他们的位置，不知您是如何做到切换他们的编辑模式和不可编辑模式的呢？


3、有一个细节问题，就是这个班级选完了填充完后，选下一个班级的教室填充，上一个班级的绿色填充又消失了~


4、还有一个重要问题想请教，如果一个班级同时用多个教室，比如第一个教室用106，然后又用了50人的小讨论教室506、505、307、306，那能否在录入“分工表”的时候这样显示：106、506、505、307、306



做的很棒了！还得请您再次指教，您辛苦了！注意休息。

[ 本帖最后由 godzhong 于 2010-6-29 13:09 编辑 ]

daley

问题2

方法1:在开发工具箱里面的设计模式,点击后即可进行其它相关的操作.
方法2:在VB窗口(同时按下 Alt 键 和 F11键)，设计模式>退出设计模式

问题3

假设工作表选了N百次填充以后，那么工作表会产生N多处的底色，如果觉得这样不影响的话，将这句代码删除即可：
将Private Sub CommandButton1_Click()
按钮内的代码，这句

.Cells.Interior.Pattern = xlNone

godzhong

原帖由 daley 于 2010-6-29 21:47 发表
问题2

方法1:在开发工具箱里面的设计模式,点击后即可进行其它相关的操作.
方法2:在VB窗口(同时按下 Alt 键 和 F11键)，设计模式>退出设计模式

问题3

假设工作表选了N百次填充以后，那么工作表会产生N多处的 ...

谢谢老师！问题2和3已经解决~那问题1和4怎么办呢

[ 本帖最后由 godzhong 于 2010-6-29 21:55 编辑 ]

daley

Private Sub CommandButton3_Click()
    On Error Resume Next
   
    With Sheets("教室安排情况")
    If .Cells.Find(Format(ComboBox7.Text, "m月d")) Is Nothing Then
    MsgBox "工作表内没有找到该起始月份的教窒,终止执行!!", 16, "提示"
    Exit Sub
    End If
    End With
   
   
    With Sheets("教室安排情况")
    If .Cells.Find(Format(ComboBox8.Text, "m月d")) Is Nothing Then
    MsgBox "工作表内没有找到该结束月份的教窒,终止执行!!", 16, "提示"
    Exit Sub
    End If
    End With
   
    If ComboBox2.ListIndex = -1 Or ComboBox2.Text = "" Then
    ComboBox2.SetFocus
    MsgBox "请选择教窒厅后再查询!!", 64, "提示"
    Exit Sub
    End If
   
   
    Application.ScreenUpdating = False
    With Sheets("教室安排情况")
   
    Cells.EntireRow.Hidden = False
    Cells.EntireEntireColumn.Hidden = False
   
    Dim x As Long
    For x = .Range("B" & Rows.Count).End(xlUp).Row To 4 Step -1
   
    .Cells(x, 2).EntireRow.Hidden = IIf(.Cells(x, 2).Text = Replace(ComboBox2.Text, .Cells(x, 1).Text & "-", ""), False, True)
    Next
   
    Dim y As Long
    For y = .Cells(2, Columns.Count).End(xlToLeft).Column To 4 Step -1
   
    y3 = Format((ComboBox3.Text & "年" & .Cells(2, y).Value & "日"), "yyyy-m-dd")
    y4 = Format((ComboBox5.Text & "年" & .Cells(2, y).Value & "日"), "yyyy-m-dd")
   
   
    If y3 >= Format(ComboBox7.Text, "yyyy-m-dd") And y4 <= Format(ComboBox8.Text, "yyyy-m-dd") Then
   
   .Columns(y).EntireColumn.Hidden = False
     Else
    .Columns(y).EntireColumn.Hidden = True
    End If
    Next

    End With
    Application.ScreenUpdating = True
   
End Sub

[ 本帖最后由 daley 于 2010-6-30 00:57 编辑 ]

godzhong

原帖由 daley 于 2010-6-29 22:18 发表
回家就帮你做,下面这个表不用下载,我留着回家做修改的.

不知说啥好了，真是诲人不倦,学习ing

[ 本帖最后由 godzhong 于 2010-6-29 22:51 编辑 ]

daley

请试试！！

godzhong

十分感谢daley老师的无私帮助，学习了不少！

如饥似渴

不错，学习了，谢谢了。

779846527

daley 发表于 2010-6-30 01:19
请试试！！

请daley老师帮我看看这个难道吧http://club.excelhome.net/thread-827322-1-1.html

放开那胖次丶

好东西，膜拜大神