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

godzhong · 发表于 2010-6-28 23:56

原帖由 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)

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

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

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

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

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

daley · 发表于 2010-6-29 21:47

问题2

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

问题3

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

.Cells.Interior.Pattern = xlNone

godzhong · 发表于 2010-6-29 21:49

原帖由 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 · 发表于 2010-6-29 22:18

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 · 发表于 2010-6-29 22:36

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

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

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

daley · 发表于 2010-6-30 01:19

请试试！！

godzhong · 发表于 2010-6-30 22:37

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

如饥似渴 · 发表于 2010-8-22 09:29

不错，学习了，谢谢了。

779846527 · 发表于 2012-2-22 16:21

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

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

放开那胖次丶 · 发表于 2017-12-8 14:35

好东西，膜拜大神

		自动登录	找回密码
密码			免费注册

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

回复 26楼 daley 的帖子