ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel函数公式学习大典 Office 365免费试用,报名现在开始! 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 打造核心竞争力的职场宝典 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 452|回复: 22

[求助] 大家帮忙啊 十万火急 谢谢了

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-7-11 20:02 | 显示全部楼层 |阅读模式

图一

图一
                           图一

图二

图二


                           图二
大家好 我单位即将开始招新生,以前信息都是一个一个输入,有的时候还出错。寻思做个表(图一),招生老师直接输,输入完成点击保存按钮能把输入的信息保存在data表(图二)中,如果点重新输入按钮,图一内容清除,开始下一位新生信息的录入。无耐vba不会,求助大家帮忙写下代码,不胜感激。
报名.rar (13.88 KB, 下载次数: 28)

TA的精华主题

TA的得分主题

发表于 2018-7-11 20:07 | 显示全部楼层
楼主在论坛里搜索下吧,雷同的帖子不少

TA的精华主题

TA的得分主题

发表于 2018-7-11 20:10 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-7-11 20:28 | 显示全部楼层
'估计差不多,自己测试一下,没有什么规律就用暴力法。未取重,自己按条件筛选就可以

Option Explicit

Sub test()
  Dim i, mark, arr, t, row
  mark = Split("2-8 3-8 1-2 1-4 1-6 1-8 2-2 3-4 3-2 3-4 5-8 5-2 6-2 8-2 8-4 8-6 8-8 10-3")
  arr = Sheets("报名表单").[b7:i16]
  ReDim brr(0, 17) As String
  For i = 0 To UBound(mark)
    t = Split(mark(i), "-")
    brr(0, i) = arr(Val(t(0)), Val(t(1)))
  Next
  With Sheets("data")
    row = .Cells(Rows.Count, "a").End(xlUp).row + 1
    .Cells(row, "a").Resize(, UBound(mark, 1) + 1) = brr
  End With
End Sub

评分

参与人数 2鲜花 +4 收起 理由
Jefforry + 2 优秀作品
vitrel + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-7-11 20:29 来自手机 | 显示全部楼层
火烧屁股才想起来这事????呵呵,这种问题就是个为气活,没有技术性,枯燥乏味

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-11 21:42 | 显示全部楼层
一把小刀闯天下 发表于 2018-7-11 20:28
'估计差不多,自己测试一下,没有什么规律就用暴力法。未取重,自己按条件筛选就可以

Option Explicit

谢谢 小刀      

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-7-11 21:49 | 显示全部楼层
一把小刀闯天下 发表于 2018-7-11 20:28
'估计差不多,自己测试一下,没有什么规律就用暴力法。未取重,自己按条件筛选就可以

Option Explicit

刚才试用了一下,一个学生的信息没问题 ,如果多条信息在data表里就会覆盖  

TA的精华主题

TA的得分主题

发表于 2018-7-11 21:55 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-7-11 22:02 | 显示全部楼层
dzzxlbj 发表于 2018-7-11 21:49
刚才试用了一下,一个学生的信息没问题 ,如果多条信息在data表里就会覆盖

'可能"毕业学校"这栏为空?修改了一下,如果再有问题直接上附件

Option Explicit

Sub test()
  Dim i, mark, arr, t, row
  mark = Split("2-8 3-8 1-2 1-4 1-6 1-8 2-2 3-4 3-2 3-4 5-8 5-2 6-2 8-2 8-4 8-6 8-8 10-3")
  arr = Sheets("报名表单").[b7:i16]
  ReDim brr(0, 17) As String
  For i = 0 To UBound(mark)
    t = Split(mark(i), "-")
    brr(0, i) = arr(Val(t(0)), Val(t(1)))
  Next
  With Sheets("data")
    .Cells(.UsedRange.Rows.Count + 1, "a").Resize(, UBound(mark, 1) + 1) = brr
  End With
End Sub

评分

参与人数 1鲜花 +2 收起 理由
zpy2 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-7-11 22:34 | 显示全部楼层
没滤重,没判断必填项是否为空等,只实现了简单的功能

报名.zip

23.32 KB, 下载次数: 20

评分

参与人数 1鲜花 +2 收起 理由
dzzxlbj + 2 优秀作品

查看全部评分

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

本版积分规则

关闭

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

关注官方微信,每天学会一个新技能

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

GMT+8, 2018-8-22 01:59 , Processed in 0.110690 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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