大家帮忙啊 十万火急 谢谢了

dzzxlbj

图一

                           图一

图二

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

2018-7-11 20:02 上传

点击文件名下载附件

liulang0808

楼主在论坛里搜索下吧，雷同的帖子不少

不知道为什么

呵呵，这是个什么样的学校啊？

一把小刀闯天下

'估计差不多，自己测试一下，没有什么规律就用暴力法。未取重，自己按条件筛选就可以

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

dzzxlbj

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

Option Explicit

谢谢 小刀      

dzzxlbj

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

Option Explicit

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

opiona

搜索一下 模板 打印 能看到很多！

一把小刀闯天下

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

獨一無2

没滤重，没判断必填项是否为空等，只实现了简单的功能