ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: godzhong

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

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-27 19:11 | 显示全部楼层
excel home真是好论坛,诶,发现的太晚了,没想到excel这么强大

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-27 20:35 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
对了,那个字体复制过来自适应表格大小的操作叫“缩小字体填充”不知在填充时如何达成呢,我的想法是设定合适的字体,到达单元格右边后会自动换行。


答:选取相关的单元格

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


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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-27 23:13 | 显示全部楼层
daley老师,有空帮忙再改一下哈,的确是蛮急的。。

TA的精华主题

TA的得分主题

发表于 2010-6-28 20:45 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
昨天因为少了加上一个"VAL"函数,结果导致正确的代码没有完成设计,今天从头检测了一遍才找到原因,快好了,等下修改好就上传.

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

发表于 2010-6-28 21:57 | 显示全部楼层
晕,上传了N次,论坛没有成功!!

请再测试!!

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

教室问题4.rar

49.98 KB, 下载次数: 20

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-6-28 23:14 | 显示全部楼层
原帖由 daley 于 2010-6-28 21:57 发表
晕,上传了N次,论坛没有成功!!

请再测试!!

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

谢谢您指教!

TA的精华主题

TA的得分主题

发表于 2010-6-28 23:23 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
问题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

TA的精华主题

TA的得分主题

发表于 2010-6-28 23:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
问题3

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

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

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

TA的精华主题

TA的得分主题

发表于 2010-6-28 23:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
试试

教室安排问题.rar

45.2 KB, 下载次数: 27

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-10-7 17:30 , Processed in 0.038593 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表