VBA代码显示从Excel中随机表

我有一张名为Sheet 1到Sheet 16的excel文件中的15张，当我按下时，我在Sheet 1上有一个button将显示10张（Sheet 2到Sheet 16）

我做了一些研究，但找不到最好的解决scheme。

问候。

Answer 1

尝试运行以下代码：

Sub TestMe() ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.NewWindow ActiveWindow.Close ActiveWindow.WindowState = xlNormal With ActiveWindow .Top = 7 .Left = 205 End With Windows.Arrange ArrangeStyle:=xlVertical End Sub 

它将显示活动表格的10倍，垂直。 那么你只需要find一个方法来显示每个活动窗口所需的一个。

Answer 2

下面的代码将在Sheet1选项卡上的CommandButton1触发时，随机select“Sheet2”到“Sheet16”中的一个。

 Sub Commandbutton1_Click() Dim RandomNumber As Integer Randomize RandomNumber = Int((16 - 2 + 1) * Rnd + 2) ThisWorkbook.Worksheets("Sheet" & RandomNumber).Select End Sub