随机跳转页面之使用VBA公共变量

今天在锐普网上碰到一个朋友发问，如何实现随机取页码并跳转到相应页面的问题。问题是这样子的：在第一个幻灯片页面上我们手动输入最小随机数跟最大随机数，然后我们可以通过点击抽题按钮获取一个随机值，显示到当前页上，然后可以单击进入按钮跳转到对应的幻灯片。这个朋友碰到的问题是点击进入的页面与显示的值不对应。其实我们可以使用公共变量保存得到的页面号码就可以轻松实现。下面的图片是大致的界面。

实现的方式非常简单，我们新建一个模块，然后声明一个全局变量。

Public currentID As Integer

然后我们在第一个幻灯片页面建立如下的代码

Private Sub cmdGet_Click()
    Dim startNumber As Integer, endNumber As Integer
    
    On Error GoTo end_Sub
    startNumber = CInt(txt1.Text)               '获取最小及最大随机的数值
    endNumber = CInt(txt2.Text)
    On Error GoTo 0
    
    '去除0值
    If startNumber = 0 Or endNumber = 0 Then
        MsgBox "起始随机数及结束随机数不能为0！"
        GoTo end_Sub
    End If
    
    Randomize
    currentID = Int((endNumber - startNumber + 1) * Rnd + startNumber)
    lable1.Caption = currentID
end_Sub:

End Sub

Private Sub cmdStart_Click()
    ActivePresentation.SlideShowWindow.View.GotoSlide currentID '跳转到指定页
End Sub