【EXCEL】怎么为骰子设置开关

请教下大大们，右边的值是一个随机数的函数，怎么设置一个开关，当选择“开”的时候右边那个函数才会运算，选择“关”的时候数值保持为0

不多说直接上代码：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then
    '如果目标区域含有多个单元格 则退出
    Exit Sub
  End If
  
  If Target.Column <> 2 Or Target.Row <> 3 Then
    '如果目标单元格不是B3 则退出
    Exit Sub
  End If
  
  If Target.Value = "关" Then
    '如果选择的是关，则将C3单元格赋值为 0
    Cells(3, 3).Value = "0"
  Else
    '如果选择的是开，则将C3单元格赋公式
    Cells(3, 3).Formula = "=RAND()"
  End If
End Sub

我稍候将文件上传，如果需要可以下载。