' [082.xls]





' [Module1] のコード
'★★☆　全ての列幅を変更する　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2

End Sub

Sub start_B()

    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub



' [UserForm1] のコード
Option Explicit

Dim cw

Private Sub ScrollBar1_Change()

    '列幅をスクロールバーの数値に合わせて変更します
    ActiveSheet.StandardWidth = ScrollBar1.Value
    
    Label1.Caption = ScrollBar1.Value

End Sub

Private Sub ScrollBar1_Scroll()

    ScrollBar1_Change

End Sub

Private Sub UserForm_Initialize()

    '現在の列幅を変数に保存します
    cw = ActiveSheet.StandardWidth
    
    With ScrollBar1
        .Min = 1
        .Max = 100
        .Value = cw
    End With
    
    Label1.Caption = cw
    Label2.Caption = "現在の列幅"
    Me.Caption = "全ての列幅を変更する"

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    '列幅を保存しておいた変数から取り出して元に戻します
    ActiveSheet.StandardWidth = cw

End Sub