关于合同到期管理

chenyaman · 发表于 2014-5-20 15:11

如图说明

朱荣兴 · 发表于 2014-5-20 15:48

提示: 作者被禁止或删除内容自动屏蔽

chenyaman · 发表于 2014-5-20 21:03

朱荣兴发表于 2014-5-20 15:48
Sub 提取()
Dim i, j
For i = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row

非常感谢这么及时为我解决问题，测试后代码使用正常。
有个小小的提议：能不能在现有代码上再改良下，执行【提取】后将sheet1指定列(比如A、B、D三列)数据copy到sheet2，因为在实际的人事信息库中有非常多列数据

朱荣兴 · 发表于 2014-5-20 22:50

提示: 作者被禁止或删除内容自动屏蔽

chenyaman · 发表于 2014-5-21 00:02

朱荣兴发表于 2014-5-20 22:50
不是很明白你的意思，是拷贝时只要A,B,D三列，还是什么呢？这不是问题，关键是表述明白你的要求

意思就是拷贝时只要A、B、D列（姓名、性别、身份证号码）

chenyaman · 发表于 2014-5-21 00:08

朱荣兴发表于 2014-5-20 22:50
不是很明白你的意思，是拷贝时只要A,B,D三列，还是什么呢？这不是问题，关键是表述明白你的要求

用VB 点击提取，最终效果图

朱荣兴 · 发表于 2014-5-21 16:21

提示: 作者被禁止或删除内容自动屏蔽

chenyaman · 发表于 2014-5-21 17:05

朱荣兴发表于 2014-5-21 16:21
这样改代码就行了
Sub 提取()
Dim i, j, k

能不能添加注释，单看代码有些不能理解，这样的方法懂了后可学以致用，万分感谢

201228 · 发表于 2014-10-15 22:43

高手，都是VBA大神！！！！！

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2014-5-20 15:48 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2014-5-20 22:50 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2014-5-21 16:21 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报