[已解决]Msgbox 出现的小问题

hehehehebt

这段代码，if vbok then 然后能够顺利的 Sheets("MAIN").Select。 但是后面的else,不能选择最后得表，还是执行了 Sheets("MAIN").Select。

请教下这个语句如何修改呢？ 提前谢过！{:301:}

MsgBox "aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel"
                    If vbOK Then
                        Sheets("MAIN").Select
                    Else
                        Sheets(Worksheets.Count).Select
                    End If

最佳答案

月排行榜 / 总排行榜

搁浅2008

2011-8-3 11:45

回复 hehehehebt 的帖子

1. Sub aa()
   
2. Dim x As Long
   
3. x = MsgBox("aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel")
   
4. If x = 1 Then
   
5. Sheets("MAIN").Select
   
6. Else
   
7. Sheets(Worksheets.Count).Select
   
8. End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

那么的帅

回复 hehehehebt 的帖子

1. 
   
2.     '需要把MSGBOX的结果赋值给一个变量，通过判断变量的值，来执行不同的选择
   
3.     Y = MsgBox("aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel")
   
4.     If Y = vbOK Then
   
5.         Sheets("MAIN").Select
   
6.     Else
   
7.         Sheets(Worksheets.Count).Select
   
8.     End If
   

复制代码

豆丁

Dim t
t = MsgBox("aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel")
    If t = vbOK Then
        Sheets("MAIN").Select
    Else
        Sheets(Worksheets.Count).Select
    End If

搁浅2008

回复 hehehehebt 的帖子

1. Sub aa()
   
2. Dim x As Long
   
3. x = MsgBox("aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel")
   
4. If x = 1 Then
   
5. Sheets("MAIN").Select
   
6. Else
   
7. Sheets(Worksheets.Count).Select
   
8. End If
   
9. End Sub

复制代码

hehehehebt

回复 搁浅2008 的帖子

按照你说的修改，顺利解决啦！谢谢！

其他2位朋友，也谢谢帮忙！{:021:}

左手自卫

Sub aa()
Dim x As Long
x = MsgBox("aready have this sheet,do you want continue?", vbOKCancel, "continue or cancel")
If x = 1 Then
Sheets("MAIN").Select
Else
Sheets(Worksheets.Count).Select
End If
End Sub