【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?

いつもお世話になっております
下記のコードはインターネット検索して
みつけました。
ユーザーフォームを立ち上げて
エクセルをユーザーフォームの後ろに
画するというものなのですが、
下記のコードはどこに挿入すれば
いいのかおしえてくれませんでしょうか
==========================================

Option Explicit
' Excelウィンドウ状態退避用
Private g_sngTopSV As Single ' 上端位置
Private g_sngLeftSV As Single ' 左端位置
Private g_sngWidthSV As Single ' 幅
Private g_sngHeightSV As Single ' 高さ
==========================================




ここからは大丈夫なのでずか、
Private Sub UserForm_Layout()
With Application
If .WindowState = xlNormal Then
.Top = Me.Top + 1
.Left = Me.Left + 1
End If
End With
End Sub

Private Sub UserForm_Initialize()
With Application
.WindowState = xlNormal
g_sngTopSV = .Top
g_sngLeftSV = .Left
g_sngWidthSV = .Width
g_sngHeightSV = .Height
End With
End Sub

A 回答 (1件)

おはようございます。



下記を記載する場所の質問と思って良いでしょうか?

>Option Explicit
' Excelウィンドウ状態退避用
Private g_sngTopSV As Single ' 上端位置
Private g_sngLeftSV As Single ' 左端位置
Private g_sngWidthSV As Single ' 幅
Private g_sngHeightSV As Single ' 高さ

UserForm_Initializeで使っている変数になりますので、その書かれている
コードの一番上になるかと。(フォーム→UserForm→コードを書く場所)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!