【VBA】Excelのセルを利用したスタック（Pop/Push）の実装サンプルコード

この記事では、Excelのセル（C2:C22）をメモリのスタックと見立てて、VBAでデータの追加（Push）と取り出し（Pop）を行うサンプルコードを紹介します。

スタック（Stack）とは

スタックは、データ構造の一つで後入れ先出し（LIFO: Last In First Out / FILO: First In Last Out）の特性を持ちます。

• Push: データをスタックの最後尾に追加する操作。
• Pop: スタックからデータを取り出して削除する操作。

身近な例では、UnixやDOSコマンドの pushd / popd によるディレクトリ履歴の管理などもスタックの仕組みを活用しています。

VBAサンプルコード

以下のコードを標準モジュールに貼り付けて実行します。セル C2:C22 の範囲をスタック領域として利用します。

Option Explicit

Dim DinamicRange As Range
Dim EventNr As Long
Dim ItemsArr(1 To 3)
Dim StoredValue() As Variant

' Push（1回実行すると、C2:C22の範囲にランダムデータが3つ追加されます）
Sub Push()
    Dim J As Integer
    Dim PopulatedCells As Range
    
    Set DinamicRange = Range("C2:C22")
    On Error Resume Next
    With DinamicRange
        If .SpecialCells(xlCellTypeBlanks).Count < 3 Then
            MsgBox "Stack Full", vbExclamation
            Exit Sub
        End If
        
        ' POP用ランダムデータ作成
        Do
            Randomize
            EventNr = Int((100 * Rnd) + 1)
            If Int(EventNr / 2) = (EventNr / 2) Then
                J = J + 1
                ItemsArr(J) = EventNr
            End If
        Loop While J < 3
        
        Set PopulatedCells = .SpecialCells(xlCellTypeConstants)
        If PopulatedCells Is Nothing Then
            .Cells(.Cells.Count) = ItemsArr(1)
            .Cells(.Cells.Count - 1) = ItemsArr(2)
            .Cells(.Cells.Count - 2) = ItemsArr(3)
        Else
            StoredValue = PopulatedCells.Value
            Set PopulatedCells = PopulatedCells.Offset(-3)
            PopulatedCells.Value = StoredValue
            .Cells(.Cells.Count, 1) = ItemsArr(1)
            .Cells(.Cells.Count - 1) = ItemsArr(2)
            .Cells(.Cells.Count - 2) = ItemsArr(3)
        End If
    End With
End Sub

' Pop（1回実行すると、C2:C22の範囲から最も古いデータが取り出されます）
Sub Pop()
    On Error Resume Next
    Dim PopulatedCells As Range
    
    Set DinamicRange = Range("C2:C22")
    With DinamicRange
        Set PopulatedCells = .SpecialCells(xlCellTypeConstants)
        If PopulatedCells Is Nothing Then
            MsgBox "No more Items to pull !", vbCritical
        Else
            StoredValue = PopulatedCells.Value
            Set PopulatedCells = PopulatedCells.Offset(1).Resize(PopulatedCells.Offset(1).Rows.Count)
            PopulatedCells.Value = StoredValue
            PopulatedCells.Cells(1).Offset(-1).ClearContents
            PopulatedCells.Cells(PopulatedCells.Rows.Count).ClearContents
        End If
    End With
End Sub

参考サイト

MrExcel Forum: Excel Stack Queue Visual Basic Applications