excel2000(excel20000101改成2000(01(01)

时间：2024-10-31 22:39:25 编辑：admin

本文是关于如何在Excel 2000中玩转游戏的攻略。在Excel 2000这个办公软件中，有许多内置的小游戏，而且我们也可以通过一些技巧，将Excel变成一个娱乐工具。接下来，我将为大家详细介绍如何利用Excel玩转游戏。

1. 飞行棋

Excel 2000中内置了一个飞行棋游戏。首先要打开Excel程序，然后按住Shift + F11，弹出Visual Basic Editor窗口。在左侧的“Microsoft Excel Objects”中找到“Sheet1”，并双击打开“Sheet1(Code)”窗口，将以下代码复制粘贴进去：

Private Sub Worksheet_Change(ByVal Target As Range)    Dim blnFlag As Boolean    Dim intPos As Integer    If Target.Address = "$B$4" Then        Randomize        blnFlag = Int(Rnd() * 2) + 1 = 1        intPos = Val(Target.Value)        If blnFlag Then            Select Case intPos                Case 5                    Target.Value = 29                Case 14                    Target.Value = 40                Case 23                    Target.Value = 55                Case Else                    Target.Value = intPos + 6            End Select        Else            Select Case intPos                Case 6, 16, 26                    Target.Value = 4                Case 19                    Target.Value = 7                Case 31                    Target.Value = 10                Case Else                    If intPos < 6 Then                        Target.Value = 6 - intPos                    Else                        Target.Value = intPos - 6                    End If            End Select        End If    End IfEnd Sub

保存并关闭窗口，回到Excel表格，点击菜单栏的“工具”-“宏”-“Visual Basic Editor”，在弹出的窗口中选择“Workbook”，点击“插入”，在下拉菜单中选择“模块”，将以下代码粘贴进去：

Sub StartGame()    Range("B4").Value = 1End Sub

保存并关闭窗口，现在你可以回到Excel表格，并打开宏（Alt + F8），找到“StartGame”，点击运行即可开始游戏。

2. 扫雷

Excel 2000中还内置了一个扫雷游戏。打开Excel程序，点击“新建”-“工作表”，按住Alt + F11，弹出Visual Basic Editor窗口，在左侧的“Microsoft Excel Objects”中双击打开新建的工作表，将以下代码复制粘贴进去：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim lngCount As Long    Dim lngValue As Long    With Application        .ScreenUpdating = False        .EnableEvents = False    End With    If Intersect(Target, Range("A1:J50")) Is Nothing Then Exit Sub    On Error Resume Next    lngCount = 0    lngValue = 0    lngCount = Cells(Target.Row - 1, Target.Column - 1).Value    lngCount = lngCount + Cells(Target.Row, Target.Column - 1).Value    lngCount = lngCount + Cells(Target.Row + 1, Target.Column - 1).Value    lngCount = lngCount + Cells(Target.Row - 1, Target.Column).Value    lngCount = lngCount + Cells(Target.Row + 1, Target.Column).Value    lngCount = lngCount + Cells(Target.Row - 1, Target.Column + 1).Value    lngCount = lngCount + Cells(Target.Row, Target.Column + 1).Value    lngCount = lngCount + Cells(Target.Row + 1, Target.Column + 1).Value    If Target.Value <> "" Then        Select Case Target.Value        Case "X"            Exit Sub        Case Else            Target.Value = lngCount        End Select    Else        Target.Value = lngCount    End If    Select Case Target.Value    Case ""        Target.Interior.ColorIndex = xlNone    Case "1"        Target.Font.ColorIndex = 3    Case "2"        Target.Font.ColorIndex = 5    Case "3"        Target.Font.ColorIndex = 10    Case "4"        Target.Font.ColorIndex = 9    Case "5"        Target.Font.ColorIndex = 40    Case "6"        Target.Font.ColorIndex = 13    Case "7"        Target.Font.ColorIndex = 46    Case "8"        Target.Font.ColorIndex = 14    Case Else        Target.Font.ColorIndex = 2    End Select    With Application        .ScreenUpdating = True        .EnableEvents = True    End WithEnd SubPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    If Target.Value = "X" Then        Target.Value = ""    Else        Target.Value = "X"    End If    Cancel = TrueEnd Sub

保存并关闭窗口，现在你可以打开新建的工作表，按住Ctrl + G，弹出“立即窗口”，输入“StartGame”并按回车，即可开始游戏。

3. 俄罗斯方块

Excel 2000中还可以通过插入宏来玩俄罗斯方块。打开Excel程序，点击菜单栏的“工具”-“宏”-“Visual Basic Editor”，选择“插入”-“宏”，在“名称”输入框中输入“StartGame”，点击“创建”，将以下代码复制粘贴进去：

Sub StartGame()    Dim intRandom As Integer    Dim intTemp As Integer    intRandom = Int((7 - 1 + 1) * Rnd() + 1)    intTemp = ActiveSheet.Range("E" & ActiveSheet.Rows.Count).End(xlUp).Row    ActiveSheet.Range("F1:H6").ClearContents    Select Case intRandom    Case 1        ActiveSheet.Range("F1:H2") = Sheet1.Range("A1:C2")    Case 2        ActiveSheet.Range("F1:H2") = Sheet1.Range("D1:F2")    Case 3        ActiveSheet.Range("F1:H3") = Sheet1.Range("G1:I3")    Case 4        ActiveSheet.Range("G1:H2") = Sheet1.Range("J1:K2")        ActiveSheet.Range("F1:H2") = Sheet1.Range("J3:K4")    Case 5        ActiveSheet.Range("F1:H2") = Sheet1.Range("L1:N2")        ActiveSheet.Range("H1") = Sheet1.Range("M3")    Case 6        ActiveSheet.Range("G1:H2") = Sheet1.Range("O1:P2")        ActiveSheet.Range("F1:H2") = Sheet1.Range("N3:O4")    Case 7        ActiveSheet.Range("F1:H3") = Sheet1.Range("Q1:S3")        ActiveSheet.Range("G2") = Sheet1.Range("R4")    End Select    ActiveSheet.Range("F1:H6").Select    ActiveSheet.Range("F1").ActivateEnd Sub

保存并关闭窗口，现在你可以回到Excel表格，按住Alt + F8，弹出宏，选择“StartGame”，点击运行即可开始玩俄罗斯方块。

在Excel 2000中玩游戏不仅极具乐趣，而且还可以帮助我们更好地熟悉Excel程序的功能。有了这些小技巧，我们不但可以完成工作任务，还可以在闲暇时间找到快乐。

excel2000

Excel 20000101是一款十分充满挑战的解谜游戏，游戏中的主人公需要在一个废弃的实验室内寻找出路。但是在整个游戏过程中，玩家发现自己陷入了一个时间循环的漩涡，每当主人公失败或者死亡，游戏都会重新开始。为了解开时间循环的迷雾，玩家需要有耐心和灵活的思维，通过解析各种谜题来找到出路。

第一章：游戏介绍

为了游戏更好的的进行，玩家需要先了解游戏规则。在Excel 20000101中，玩家会扮演一个被困在实验室内的主人公。但是，整个实验室已经被破坏的一塌糊涂，所以玩家需要通过解谜来寻找出路。游戏拥有多个关卡，每个关卡中都会有不同的谜题需要解决，任务难度逐渐增大。值得一提的是，完成每一关后，玩家可以获得一个序列码，用于解锁下一关。

第二章：游戏中的谜题

在Excel 20000101中，有各式各样的谜题需要玩家解决。这些谜题可能是关于电路电路的解析，也可能是关于密码的破解。大多数谜题都需要玩家思考出套路和方法来，其中不乏需要多次尝试才能成功解开的谜题。每一个谜题都是在前一个谜题基础上延伸出来的，所以完成前一关后，玩家需要通过前一个关卡的技能和方法才能发现新的线索，解决下一关的难题。

第三章：游戏技巧分享

在Excel 20000101中，玩家需要有耐心和灵活的思维。游戏中有许多需要尝试和错误的地方，所以玩家需要做足心理准备。同时，对于游戏中的谜题，有一些技巧和方法可以帮助玩家更快地解决问题。例如，在电路解析中，先找到电源供电点和负极供电点。在密码破解中，玩家可以尝试常见的密码组合，如常见的生日日期、重要的名字组合等等。