🐤⑤色の番号とエクセル起動時の表示サイズ変更

Public iplg As IpatLogin
Public stin As StatInfo

Public Bet#
Public BetALL#
Public BetN# '買目用
Public Bethimo#(18) 'ひも馬
Public BetUma$(25, 4) '馬券格納用
Public BetZiku#(4) '軸馬

Public Gg$(8) 'ipatGo用

Public Hand# '手動判定用
Public IpatGoF$ 'ipatGo用
Public OsGo$ 'ipatGoのパス
Public OsDC$ 'ドキュメントのパス

Public St3$ '文字列代入用
Public St4$ '文字列代入用
Public StF$(4) 'ファイル読込用
Public SoundFile$ 'サウンド用

Sub 色ColorIndex()

For Y = 1 To 56
    Cells(Y, 1).Interior.ColorIndex = Y
Next

End Sub

Private Sub Workbook_Open()

Sheets("レース").Activate 'このシートにフォーカスを移動

If Environ("COMPUTERNAME") = "ＰＣ1名" Then 'コンピュタ名ごとの設定
    With Application
        .WindowState = xlNormal
        .Top = -3
        .Left = 531.25
        .Height = 643.5
        .Width = 673.5
    End With
    ActiveWindow.Zoom = 100 'エクセルのズーム
        
ElseIf Environ("COMPUTERNAME") = "ＰＣ2名" Then'2台目コンピュタ名ごとの設定
    With Application
        .WindowState = xlNormal
        .Top = 0
        .Left = -0.8
        .Height = 705
        .Width = 927
    End With
    ActiveWindow.Zoom = 115
    
Else
    画面サイズなど
    Stop
End If


End Sub

Sub 画面サイズなど()
'現在のブックの位置サイズやコンピューター名やズーム

Debug.Print ("COMPUTERNAME >" & Environ("COMPUTERNAME") & "<")
Debug.Print ("ActiveWindow.Zoom=" & ActiveWindow.Zoom)

Debug.Print (" ")
 
With Application
    Debug.Print ("        .WindowState = xlNormal")
    Debug.Print ("        .Top=" & .Top)
    Debug.Print ("        .Left=" & .Left)
    Debug.Print ("        .Height=" & .Height)
    Debug.Print ("        .Width=" & .Width)
End With

Debug.Print (" ")
Debug.Print ("Private Sub Workbook_Openの値を変更してください")
End Sub

競馬でプログラムの作成
お疲れ様でした😎