ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 261|回复: 19

求助:VBA学习

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-7-17 23:02 | 显示全部楼层 |阅读模式
各位大侠:以下有一份统计表,求助各位大侠指教,帮忙制作VBA.基本要求:

1.将"登记表"的相关内容,在点击"输入系统"控件后,直接在"汇总表"中汇总.
2.编号在点击"输入系统"控件后,直接递增.
3.完全同样的内容,只能1次点击"输入系统".
4."汇总表"中序号直接向下递增.
谢谢!

管理登记表.rar

21.63 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2017-7-18 01:30 | 显示全部楼层
不知道是不是你想要的效果  详见附件

科技法庭管理登记表.zip

24.69 KB, 下载次数: 7

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-18 13:15 | 显示全部楼层
您好!
首先,非常感谢您的及时回复.
测试效果来看,有以下几个问题:
1.不能按"输入系统"控件汇总到"汇总表"和保存文档,只有在"宏"执行test的时候才可以.
2.汇总表中的序号不能向下自动递增.
3."登记表"中的编号能否改为按"输入系统"控件后自动递增,不需要与前面的第几份关联.
拜托.
以上.

管理登记表.rar

23.4 KB, 下载次数: 4

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-19 20:08 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-7-19 21:46 | 显示全部楼层
1.编号递增多少,你没说。
2.如果是小数递增,可在B5=“=IF(A5="","",B4+10^-5) ”向下填充。
3.用VBA,应在5 行代码之内。

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-20 12:23 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-20 16:27 | 显示全部楼层
本帖最后由 wenke1101 于 2017-7-20 16:30 编辑

For s = 1 To UBound(arr1, 1)
Sheet2.Cells(s + 3, 1) = s
以上代码只能在第1次导入数据时能自A4单元格开始自动编号,第2次导入数据就不能于编号了.希望:
B4有数据时,A列自动有编号就是1,
B5有数据时,A列自动有编号就是2,
依次类推.
请帮忙修改.

20170720162838.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-20 17:25 | 显示全部楼层
xjg811 发表于 2017-7-19 21:46
1.编号递增多少,你没说。
2.如果是小数递增,可在B5=“=IF(A5="","",B4+10^-5) ”向下填充。
3.用VBA, ...

For s = 1 To UBound(arr1, 1)
Sheet2.Cells(s + 3, 1) = s
以上代码只能在第1次导入数据时能自A4单元格开始自动编号,第2次导入数据就不能于编号了.希望:
B4有数据时,A列自动有编号就是1,
B5有数据时,A列自动有编号就是2,
依次类推.
请帮忙修改.

TA的精华主题

TA的得分主题

发表于 2017-7-20 22:03 | 显示全部楼层
本帖最后由 xjg811 于 2017-7-21 00:18 编辑
wenke1101 发表于 2017-7-20 12:23
只要B列有数据就一直向下递增序号.

我在5楼已经问你了:

你没有说清楚递增多少:例如
1.    1,2,3 是递增1
2.     1. 1.1 ,1.2 是递增0.1
等等……

‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
1。编号递增0.01
2. 程序未涉及修改,审阅、查错等事项。
3.其它符合你要求。

科技法庭管理登记表2.rar

18.56 KB, 下载次数: 4

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-7-20 23:12 | 显示全部楼层
本帖最后由 wenke1101 于 2017-7-20 23:15 编辑
xjg811 发表于 2017-7-20 22:03
我在5楼已经问你了:

你没有说清楚递增多少:例如

1.A列自A4开始,序号递增:1,2,3,4,5,6…向下每行递增1.
2.增加M列公式自动复制功能.
   F列自F4开始是日期,M4单元格公式=text(F4,"YYYY-MM),通过VBA实现M4的公式向下复制.本表在工作薄sheet2中.
谢谢!
20170720231343.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

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

GMT+8, 2017-11-24 19:02 , Processed in 0.068853 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

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

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

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