创建 vba 程序，其中实现了变体中指定的操作。 提供用于重复和关闭程序的按钮形式的组织，以及用于从Excel工作表启动程序的按钮。创建一个名为“厨房计时器”的程序，其中当用户在表单中指定的烹饪时间达到时，表单中会显示相应的消息。在表格中，注明厨师的姓名和正在准备的菜肴的名称。

好的，让我来为您提供一些可以实现您所需功能的 VBA 代码。

首先，您需要新建一个 Excel 工作簿，然后按以下步骤操作：

1. 在“开发工具”选项卡中，单击“Visual Basic”按钮，打开 VBA 编辑器。

2. 在 VBA 编辑器中，选择“插入”菜单，然后选择“用户窗体”选项卡，创建一个新的用户窗体。

3. 在用户窗体上，添加一个“文本框”控件，用于输入烹饪时间；添加一个“标签”控件，用于显示计时器的当前时间；添加一个“按钮”控件，用于启动计时器；添加一个“文本框”控件，用于输入厨师的姓名；添加一个“文本框”控件，用于输入正在准备的菜肴的名称。

4. 在“开发工具”选项卡中，单击“插入”按钮，然后选择“模块”选项卡，创建一个新的 VBA 模块。

5. 在 VBA 模块中，编写以下代码：

Option Explicit

Dim TimeLeft As Date
Dim ChefName As String
Dim DishName As String

Sub StartTimer()
    TimeLeft = TimeValue(Me.TextBox1.Value)
    ChefName = Me.TextBox2.Value
    DishName = Me.TextBox3.Value
    Me.Label1.Caption = Format(TimeLeft, "hh:mm:ss")
    Timer1.Enabled = True
End Sub

Sub StopTimer()
    Timer1.Enabled = False
    MsgBox "时间到了！" & vbCrLf & "厨师：" & ChefName & vbCrLf & "菜肴：" & DishName
End Sub

Sub Timer1_Timer()
    TimeLeft = TimeLeft - TimeSerial(0, 0, 1)
    Me.Label1.Caption = Format(TimeLeft, "hh:mm:ss")
    If TimeLeft = TimeSerial(0, 0, 0) Then
        StopTimer
    End If
End Sub

6. 将上述代码复制粘贴到 VBA 模块中，并保存该模块。

7. 回到用户窗体，双击“启动计时器”按钮，并在“代码”窗口中添加以下代码：

Private Sub CommandButton1_Click()
    StartTimer
End Sub

8. 双击“关闭”按钮，并在“代码”窗口中添加以下代码：

Private Sub CommandButton2_Click()
    Unload Me
End Sub

9. 右键单击用户窗体，选择“查看代码”，并在“代码”窗口中添加以下代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        Unload Me
    End If
End Sub

10. 点击“保存”按钮保存 VBA 代码，然后关闭 VBA 编辑器。

11. 在 Excel 工作表中插入一个按钮，然后将该按钮与“启动计时器”宏关联。

现在，您可以使用这个名为“厨房计时器”的程序了。在用户窗体中输入烹饪时间、厨师的姓名和正在准备的菜肴的名称，然后单击“启动计时器”按钮即可开始计时。当计时器的时间到达时，会弹出一个消息框，其中包含厨师的姓名和正在准备的菜肴的名称。单击“关闭”按钮即可关闭程序。