' [442.xls]



' [Module1] のコード
'★★☆　ユーザーフォームの表示位置を保存する　☆★★

Option Explicit

'フォームの位置を保存する為の配列
Public myposition(1, 1) As Single

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()
        
        '自分の現在値を配列に格納して終了
        myposition(1, 0) = Me.Top
        myposition(0, 1) = Me.Left
        Unload Me

End Sub


Private Sub UserForm_Initialize()
        
    With Me
        'フォームを自由な位置で起動出来るモードに設定
        .StartUpPosition = 0
        
        '配列にある数値の位置にフォームを移動
        .Top = myposition(1, 0)
        .Left = myposition(0, 1)
        .Caption = "ユーザーフォームのポジションを記憶"
    End With
    
    CommandButton1.Caption = "フォームのポジションを記憶して終了"

End Sub