Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2388|回复: 7

[已解决]求助:窗口增加复选框及表汇总

[复制链接]
发表于 2012-11-14 09:02 | 显示全部楼层 |阅读模式
借用论坛其他朋友的代码,修改运用工作中,目前还存在问题需优化,请老师帮忙修改,谢谢!
要求如附件,谢谢!
最佳答案
2012-11-14 18:54
本帖最后由 zjdh 于 2012-11-14 19:03 编辑

清单2.rar (24.22 KB, 下载次数: 32)

清单.rar

31.96 KB, 下载次数: 11

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-11-14 14:35 | 显示全部楼层
listbox改成多选后就不响应ListBox1_Click事件了,虽然可以响应ListBox1_MouseDown事件,但是无法辨别是那条信息被选中后触发的,所以你的窗体中各项明细就出不来啦!
回复

使用道具 举报

 楼主| 发表于 2012-11-14 15:55 | 显示全部楼层
zjdh 发表于 2012-11-14 14:35
listbox改成多选后就不响应ListBox1_Click事件了,虽然可以响应ListBox1_MouseDown事件,但是无法辨别是那条 ...

多选时无需显示明细,明细项只要求在单选时显示,请老师看看能否帮忙优化,谢谢!
回复

使用道具 举报

发表于 2012-11-14 18:54 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2012-11-14 19:03 编辑

清单2.rar (24.22 KB, 下载次数: 32)
回复

使用道具 举报

 楼主| 发表于 2012-11-15 09:06 | 显示全部楼层
zjdh 发表于 2012-11-14 18:54

感谢老师的帮忙!
还有个问题请教老师,将修改后的文件代入工作表中,出现一个问题,汇入总表的数据从原表导入位置出现空值时也自动填充,是否与表:前中后数据从外部导入,自动刷新导致?或自动根据A列行数填充,谢谢1
异常图片.jpg
回复

使用道具 举报

发表于 2012-11-15 13:17 | 显示全部楼层
xiewq 发表于 2012-11-15 09:06
感谢老师的帮忙!
还有个问题请教老师,将修改后的文件代入工作表中,出现一个问题,汇入总表的数据从原 ...

不知道你实际的数据结构,无法回答你的问题!
回复

使用道具 举报

发表于 2012-11-15 13:23 | 显示全部楼层
把这句改一下试试
Sub 汇入总表()
    With Sheets("总表")
        .Range("A2:F65536").ClearContents
        For i = 1 To 3
            W = Sheets(i).Range("A65536").End(3).Row
            Set RN = .Range("A65536").End(3)(2)
            Sheets(i).Range("A2:E" & W).Copy RN
            RN.Offset(, 5).Resize(W - 1, 1) = Sheets(i).Name
        Next
    End With
End Sub
回复

使用道具 举报

 楼主| 发表于 2012-11-15 13:47 | 显示全部楼层
问题已解决,谢谢!
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 10:20 , Processed in 0.583364 second(s), 16 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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