| |
|
|
Sample Macro コントロール・ユーザーフォーム |
 |
|
|
|
0-1) ユーザーフォームの色を変える |
 |
 |
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
BackColor = RGB(255, 255, 0) '※2 背景色を変える
BorderColor = RGB(255, 0, 0) '※2 境界線色を変える
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 BackColorプロパティ、BorderColorプロパティの値を設定して色を変える
くわしくは、サンプルブックをダウンロードして「解説」シートを参照
サンプルブックのダウンロードは ここをクリック （YNxv230_UserForm_Color.xls 42KB）
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。
|
|
0-2) ユーザーフォームの表示位置を指定する |
|
|
'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Sub ユーザーフォームの初期表示位置を表す値を設定する()
UserForm1.StartUpPosition = 3 '画面の左上隅(WindowsDefault)
UserForm1.StartUpPosition = 2 '画面全体の中央(CenterScreen)
UserForm1.StartUpPosition = 1 'UserFormが属する項目の中央(CenterOwner)
UserForm1.StartUpPosition = 0 '初期表示位置を表す値を指定しない(Manual)
End Sub
'----------------------------------------------------------------------------------------
Sub ユーザーフォームを任意の位置に表示する()
With UserForm1
.StartUpPosition = 0 '初期表示位置を表す値を指定しない
.Top = 100 '上端からの距離を設定する
.Left = 300 '左端 〃
.Show '表示する
End With
End Sub
'=========================================================================================
|
0-3) ユーザーフォームだけを表示する |
|
|
'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize() '※1
Application.Visible = False 'Excel画面を非表示にする
End Sub
'----------------------------------------------------------------------------------------
Private Sub UserForm_Terminate() '※2
Application.Visible = True 'Excel画面を表示する
End Sub
'=========================================================================================
＜コメント＞
※1 Initializeイベントは、ユーザーフォームが開かれたときに発生する
※2 Terminateイベントは、オブジェクトがアンロードされたあとに発生する
|
