在Excel环境中，VBA确实可以用来编写简单的游戏。虽然VBA不是专门为游戏开发设计的，但它提供了足够的功能来创建基本的游戏，例如：

猜数字游戏：玩家尝试猜测一个随机生成的数字。

拼图游戏：玩家需要重新排列碎片以恢复图像。

数独游戏：玩家填充数字以完成数独谜题。

贪吃蛇游戏：控制蛇吃食物并避免撞到自己的身体。

扫雷游戏：揭示单元格，避免触碰到地雷。

简易的棋类游戏：如井字棋（Tic-Tac-Toe）或国际象棋。

创建这些游戏通常涉及以下步骤：

设计游戏逻辑和规则。

使用Excel单元格来表示游戏元素，如游戏板、角色、分数等。

编写VBA代码来处理用户输入、更新游戏状态和显示结果。

可能会使用Excel的图形和条件格式化功能来增强视觉效果。

以下是一个基本的扫雷游戏示例，它会在Excel中创建一个游戏区域，并允许用户点击单元格来揭示它们的内容。游戏的目标是避免点击含有地雷的单元格：

Dim Mines(1 To 10, 1 To 10) As BooleanDim Revealed(1 To 10, 1 To 10) As BooleanDim MineCount As IntegerDim GameOver As Boolean
Sub InitializeGame()    Dim i As Integer, j As Integer    MineCount = 0    GameOver = False
    ' 清除之前的数据    For i = 1 To 10        For j = 1 To 10            Mines(i, j) = False            Revealed(i, j) = False            ThisWorkbook.Sheets("Sheet1").Cells(i, j).Interior.Color = xlNone            ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = ""        Next j    Next i
    ' 随机放置地雷    For i = 1 To 20        Do            j = Int((10 * Rnd) + 1)            k = Int((10 * Rnd) + 1)        Loop While Mines(j, k)        Mines(j, k) = True        MineCount = MineCount + 1    Next iEnd Sub
Sub RevealCell(i As Integer, j As Integer)    If GameOver Then Exit Sub    If Revealed(i, j) Then Exit Sub    Revealed(i, j) = True
    If Mines(i, j) Then        MsgBox "Game Over! You hit a mine!"        GameOver = True        RevealAllMines        Exit Sub    End If
    Dim Count As Integer    Count = 0
    ' 计算周围的地雷数量    For x = i - 1 To i + 1        For y = j - 1 To j + 1            If x >= 1 And x <= 10 And y >= 1 And y <= 10 Then                If Mines(x, y) Then Count = Count + 1            End If        Next y    Next x
    ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = IIf(Count > 0, Count, "")    ThisWorkbook.Sheets("Sheet1").Cells(i, j).Interior.Color = xlGray
    If Count = 0 Then        ' 自动展开周围的单元格        For x = i - 1 To i + 1            For y = j - 1 To j + 1                If x >= 1 And x <= 10 And y >= 1 And y <= 10 Then                    RevealCell x, y                End If            Next y        Next x    End IfEnd Sub
Sub RevealAllMines()    Dim i As Integer, j As Integer    For i = 1 To 10        For j = 1 To 10            If Mines(i, j) Then                ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = "M"                ThisWorkbook.Sheets("Sheet1").Cells(i, j).Interior.Color = vbRed            End If        Next j    Next iEnd Sub
Sub Cell_Click()    Dim i As Integer, j As Integer    i = Selection.Row    j = Selection.Column    RevealCell i, jEnd Sub
Sub StartGame()    InitializeGame    ThisWorkbook.Sheets("Sheet1").Select    MsgBox "Click on any cell to start the game. There are 20 mines on a 10x10 grid."End Sub

在上述代码中，InitializeGame 函数初始化游戏，随机放置20个地雷。RevealCell 函数用于揭示单元格，并检查是否触雷。如果触雷，游戏结束，并显示所有地雷的位置。RevealAllMines 函数用于在游戏结束时显示所有地雷的位置。Cell_Click 函数是一个事件处理程序，当用户点击单元格时会被调用。

需要注意的是，VBA和Excel并不是为了高性能游戏开发而设计的，因此它们的局限性较大，这一点必须有清醒的认识，对于非专业的IT编程人员来说，这是装逼耍酷的门槛最低的一种方式了。