excel队列

队列的工作原理很简单，因为它与现实生活中的队列完全相同。例如，你在食堂窗口排队打饭，如果你先到，当然该你先打饭，我排在你的后面，则在你打完饭后我再打饭。

队列只有两种操作：入队和出队。将一个元素加入队列，称为入队；从队列中取出一个元素，称为出队，如下图1所示。

图1

根据队列的工作原理，在图1所示的队列中，丁只能加到队列的末尾，而排在最前的甲将最先出队。

下面，我们使用VBA代码实现队列。

实现队列结构需要两个类模块：QueueItem类模块和Queue类模块。

QueueItem类模块

在QueueItem类模块中，存放着一个数据值和一个指向下一个元素的指针。代码如下：

‘下一个队列元素

Public NextItem As QueueItem

‘队列中当前元素的值

Public Value As Variant

Queue类模块

在Queue类模块中，包含两个方法和一个属性。其中，Add方法在队列中添加元素，即执行入队操作；Remove方法移除队列中的元素，即执行出队操作；QueueEmpty属性判断队列是否为空。完整的代码如下：

‘指向队列列首的指针

Dim qFront As QueueItem

‘指向队列列尾的指针

Dim qRear As QueueItem

‘入队

Public Sub Add(varNewItem AsVariant)

‘声明并创建新元素

Dim qNew As New QueueItem

‘将值赋给新元素

qNew.Value = varNewItem

‘如果队列为空,则前后指针都指向新元素

If QueueEmpty Then

Set qFront = qNew

Set qRear = qNew

Else

‘将最后的元素指针指向新元素

Set qRear.NextItem = qNew

‘将指向队列列尾的指向新元素

Set qRear = qNew

End If

End Sub

‘出队

‘移除队列列首的元素并返回其值

Public Function Remove() AsVariant

‘如果队列为空,则返回空

If QueueEmpty Then

Remove = Null

Else

‘获取队列列首元素值

Remove = qFront.Value

‘如果队列中仅一个元素

‘则移除后队列为空

If qFront Is qRear Then

Set qFront = Nothing

Set qRear = Nothing

Else

Set qFront = qFront.NextItem

End If

EndIf

End Function

‘判断队列是否为空

Property Get QueueEmpty() AsBoolean

‘如果队列为空则返回True

QueueEmpty = ((qFront Is Nothing) And(qRear Is Nothing))

End Property

假设原有队列“甲乙丙”，现在要将“丁”加入该队列。在Add方法中，首先生成新节点并赋值，如下图2所示。

图2

然后，进行连接，如下图3所示。

图3

如果添加新元素前为空队列，则将队首和队尾均指向新元素，如下图4所示。

图4

在移除元素时，从队首开始，如下图5所示。原先qFront指向甲，现在将其指向乙。

图5

Queue类模块代码的图片版如下：

示例

下面的示例简单演示了队列。代码首先生成一个队列并将“甲已丙丁”依次添加到该队列，然后移除队列中的元素。

‘创建新队列

Dim qTest As New Queue

Sub testQueue()

With qTest

‘入队

.Add “甲”

.Add “乙”

.Add “丙”

.Add “丁”

Debug.Print “出队顺序:”

‘出队

Do While Not .QueueEmpty

Debug.Print .Remove()

Loop

End With

End Sub

运行后的结果如下图6所示。可以看到，出队的顺序与入队的顺序相同。

图6