ランダムシートをExcelから表示するためのVBAコード

Question

15枚のExcelシートをシート1〜シート16という名前でExcelシートに貼り付けました。シート1にはボタンを押して10枚（シート2〜シート16）

私はいくつかの調査を行いましたが、最適なソリューションを見つけることができませんでした。

よろしくお願いいたします。

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回のアクティブなシートが表示されます。次に、アクティブなウィンドウごとに必要なものだけを表示する方法を見つける必要があります。

Answer 2

あなたのSheet1]タブにCommandButton1によってトリガーされたとき、以下のコードでは、ランダムにSheet16" にシートの1つ「シート2」を選択します。

Sub Commandbutton1_Click() 

    Dim RandomNumber As Integer 

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