窗口排队问题，没想好怎么编程，谁能给个代码？

sunya_0529

这是一个有趣的题目，好久不写VBA了，练习一下——

jaxxcyh

sunya_0529 发表于 2024-8-23 18:12
这是一个有趣的题目，好久不写VBA了，练习一下——

各个窗口的队伍长度差别也太大了，也不符合现实呀

sunya_0529

jaxxcyh 发表于 2024-8-23 18:19
各个窗口的队伍长度差别也太大了，也不符合现实呀

数据是模拟的，你可以用你的实际数据代入进去看看。


用JSA的话，代码要简洁很多——

一招秒杀

看来你们都不会SQL, 如果用SQL, 简单1条语句全搞定。人脸识别查打一体无人机智能化作战的年代，你们还在用小米加步枪。

sunya_0529

一招秒杀 发表于 2024-8-23 20:13
看来你们都不会SQL, 如果用SQL, 简单1条语句全搞定。人脸识别查打一体无人机智能化作战的年代，你们还在用 ...

兄弟，高见

之前有个印度客户，他说他们用手抓饭吃是最天人合一的：不但环保（可以节省宝贵的恒河水资源，不用洗餐具）；而且可以用手来感知食物的温度，防止烫嘴（印式烫嘴英语真不是吃饭烫的大舌头）；灵活的手指可以把食物拌得很均匀，吃多少抓多少，主打一个心灵手巧……

听了这么多好处，我们都忍不住想去尝试一下，于是中国同事请他去吃了火锅，棒子同事请他去吃了石锅拌饭，鬼子同事请他吃了铁板烧……

几顿饭下来，他逢人就说，他终于知道为什么没有一只鸭子能活着走出南京了~~

jaxxcyh

弄了一个模拟窗口排队的程序，绿色提示可选择的排队位置

1. Sub test()
   
2.     Dim m%, n%, arr()
   
3.     Dim s%, t%
   
4.     m = InputBox("排队人数?")  '已排队人数
   
5.     n = InputBox("窗口个数?")  '窗口个数
   
6.    
   
7.     Sheet1.Cells.Interior.Color = xlNone
   
8.     Sheet1.Cells.ClearContents
   
9.     Sheet1.[A1].Resize(1, n).Formula = "=""窗口"" & column(a1)"
   
10.    
    
11.     s = m \ n                  '队伍长度
    
12.     t = m Mod n                '剩余几人
    
13.     If t > 0 Then s = s + 1    '有余数队伍长度+1（最大长度）
    
14.     ReDim arr(1 To s, 1 To n)  '模拟排队情况数组
    
15.     For i = 1 To IIf(t > 0, s - 1, s)
    
16.         For j = 1 To n
    
17.             arr(i, j) = "●"  '●代表一个人
    
18.         Next
    
19.     Next
    
20.    
    
21.     Dim myCol As New Collection
    
22.     For i = 1 To n
    
23.         myCol.Add i    '将窗口编号加入集合
    
24.     Next
    
25.    
    
26.     Dim myIndex%       '集合的索引
    
27.     Dim rndSelect%     '随机选择的集合索引号
    
28.     If t > 0 Then      '--------------对有余数情况的处理
    
29.         For i = 1 To t    '对余数的人处理
    
30.             rndSelect = Int(Rnd * myCol.Count + 1)  '随机选择集合的索引号
    
31.             myIndex = myCol(rndSelect)              '根据索引得到窗口号
    
32.             arr(s, myIndex) = "●"                   '进入排队
    
33.             myCol.Remove (rndSelect)                '删除索引对应的集合项目（已使用的窗口）
    
34.         Next
    
35.         
    
36.         '输出结果
    
37.         Sheet1.[A2].Resize(s, n).Value = arr
    
38.         For i = 1 To myCol.Count
    
39.             Sheet1.Cells(s + 1, myCol(i)).Interior.Color = RGB(127, 255, 127)
    
40.             Sheet1.Cells(s + 1, myCol(i)).Value = "True"
    
41.         Next
    
42.      
    
43.      Else             '--------------对整除情况的处理
    
44.         Sheet1.Range("A2").Resize(s, n).Value = arr
    
45.         Sheet1.Range("A" & s + 2).Resize(1, n).Interior.Color = RGB(127, 255, 127)
    
46.         Sheet1.Range("A" & s + 2).Resize(1, n).Value = "True"
    
47.      End If
    
48. End Sub
    
49. 
    

复制代码