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

godzhong

excel home真是好论坛，诶，发现的太晚了，没想到excel这么强大

godzhong

对了，那个字体复制过来自适应表格大小的操作叫“缩小字体填充”不知在填充时如何达成呢，我的想法是设定合适的字体，到达单元格右边后会自动换行。


答：选取相关的单元格

右键>设置单元格格式>对齐>文本控制


在上面这两个选项前面的框打上勾。

[ 本帖最后由 daley 于 2010-6-28 10:55 编辑 ]

godzhong

daley老师，有空帮忙再改一下哈，的确是蛮急的。。

daley

昨天因为少了加上一个"VAL"函数,结果导致正确的代码没有完成设计,今天从头检测了一遍才找到原因,快好了,等下修改好就上传.

godzhong

原帖由 daley 于 2010-6-28 20:45 发表
昨天因为少了加上一个"VAL"函数,结果导致正确的代码没有完成设计,今天从头检测了一遍才找到原因,快好了,等下修改好就上传.

老师辛苦了！这两天看了论坛的学习贴，受益匪浅，很感激！

daley

晕,上传了N次,论坛没有成功!!

请再测试!!

[ 本帖最后由 daley 于 2010-6-28 22:15 编辑 ]

godzhong

原帖由 daley 于 2010-6-28 21:57 发表
晕,上传了N次,论坛没有成功!!

请再测试!!

Daley老师，不好意思，我真是贪心不足啊，还有几个问题向您请教！
您的日期范围的设定太人性化啦，非常感谢！
1、我进行了一下测试，比如按您批注的方法，我选择了1月和2月两个月份进行测试，那么我选择了如下选项点击了查看教室状况， ，可是看不到2月1日到2月8日的教室安排情况，这样的话填充下去可能会覆盖到其他的班级，我的想法是点击“查看教室状况”日期行自动筛选出2月1日到2月8日，即D列为2月1日开始，筛选状态的末列为2月8日，如图 ，这样就可以详细的看到教室状况了，不至于误操作。
2、有个细节的东西您看能不能帮忙改下，就是填充到分工表以后，去掉"404-标准小方会议室12"的格式，保留“404”即可
3、还有两个小问题，点击“填充底色并关闭”后窗体不会关闭~~还有就是窗体右上角的"X"点击后也不会关闭窗口~

谢谢您指教！

daley

问题1、

因为你使用的版本号是2003的，而2003版本的只有256列，无法完成从1~12月份的列，所以为了解决这个问题，就选择了这个自动填充的方法，例如当前的月份为5、6月份折，如果想在插入1~4月份的话，那么你可以先点击“清除日期区域”按钮，然后再一个个月份（1、2、3、4、5、6……）的添加。

问题2、

将CommandButton1r的代码:

    With Sheets("6月份带班分工表")
    .Cells(.Range("C:C").Find(ComboBox1.Text).Row, 4) = ComboBox2.Text
    End With


改为:
With Sheets("6月份带班分工表")
    .Cells(.Range("C:C").Find(ComboBox1.Text).Row, 4) = Left(ComboBox2.Text, InStr(ComboBox2.Text, "-") - 1)
   
    End With

daley

问题3

Private Sub CommandButton2_Click()
    'If MsgBox("是否退出", 36, "询问") = 7 Then Exit Sub
    Unload Me
    Cells.EntireRow.Hidden = False
End Sub

是为了解决“查看教室状况”按钮在退出窗体时，工作表中不相关的行给隐藏了，在退出时恢复的作用。

如果不想屏蔽这个窗体原本的关闭按钮，则将上面这句代码删除即可。

daley

试试