Question

下面的代码带有Select case RandomNumber，如果正确，则返回结果，如果不正确，则返回结果。我想添加一个MsgBox（出现在结果后），上面写着“您赢了”或“您输了”。

我正在使用VBA在Excel中将轮盘表制作为项目。

这是我尝试过的方法，尽管搜索了很多但没有结果。

Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
    Balance = Balance + PlayerBet * 2 **And Msgbox "you won"**
Case Else
    Balance = Balance - PlayerBet **And Msgbox "you lost"**

Sub Column_bet_1st()
    'Column bet 2:1'
     Dim PlayerBet As Range, Balance As Range, Bet_input As Range, RandomNumber As Integer

     Set PlayerBet = Range("O21")
     Set Balance = Range("L18")
     Set Bet_input = Range("O18")

     RandomNumber = Cells(1, 1)

     If Bet_input = "Column 1" Then
         Select Case RandomNumber
             Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
                 Balance = Balance + PlayerBet * 2 
             Case Else
                 Balance = Balance - PlayerBet 
         End Select
    End If
End Sub

预期结果是在Case为true或false之后，一个MsgBox会弹出带有我要在其中写入的内容。

Answer 1

您几乎完全正确

Sub Column_bet_1st()

'Column bet 2:1'

Dim PlayerBet As Range, Balance As Range, Bet_input As Range, RandomNumber As Integer

    Set PlayerBet = Range("O21")

    Set Balance = Range("L18")

    Set Bet_input = Range("O18")

    RandomNumber = Cells(1, 1)

    If Bet_input = "Column 1" Then
        Select Case RandomNumber
        Case 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36
            MsgBox "You won", vbOKOnly, "Win"
            Balance = Balance + PlayerBet * 2
        Case Else
            Balance = Balance - PlayerBet
            MsgBox "You lost", vbOKOnly, "Lose"
        End Select
    End If
End Sub

案件结果之后，有什么方法可以在此代码中实现“ Msgbox”？

1 个答案: