求助能人们，关于按照指定人数地点，分派考场的

gyll · 发表于 2018-2-18 19:22

如何用VBa实现按,照指定人数和地点，分派考场的

朱荣兴 · 发表于 2018-2-18 23:12

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

chrisovo · 发表于 2018-2-18 23:51

新手試寫，代碼若有不周全請多多包涵

排考場.rar (66.7 KB, 下载次数: 9)

wmqz.130 · 发表于 2018-2-19 00:13

朱荣兴发表于 2018-2-18 23:12
你的这个考场安排，我就有现成的，可以满足你所有的需求，可以联系 705664849

朱版。能给我发一份不？54550236@qq.com 还是付费的呢？

一把小刀闯天下 · 发表于 2018-2-19 07:06

Option Explicit

Sub test()
  Dim arr, i, j, n, brr
  With Sheets("设置")
arr = .Range("j4:l" & .Cells(Rows.Count, "k").End(xlUp).Row)
ReDim brr(1 To Rows.Count, 1 To 4)
For i = 1 To UBound(arr, 1)
   For j = 1 To arr(i, 3)
      n = n + 1
      brr(n, 1) = n: brr(n, 2) = arr(i, 1)
      brr(n, 3) = arr(i, 2): brr(n, 4) = j
Next j, i
With .[d3]
   .Resize(Rows.Count - 2, 4).ClearContents
   .Resize(n, 4) = brr
End With
  End With
End Sub

gyll · 发表于 2018-2-19 08:29

chrisovo 发表于 2018-2-18 23:51
新手試寫，代碼若有不周全請多多包涵

感谢，是我需要的，试了成功通过

gyll · 发表于 2018-2-19 08:35

一把小刀闯天下发表于 2018-2-19 07:06
Option Explicit

Sub test()

感谢，用了，成功通过

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

[求助] 求助能人们，关于按照指定人数地点，分派考场的

评分

评分

最新热点 /1

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

	回复举报