Excel/VBA/フォームの操作

フォームを開く †

UserForm1.Show

表示位置を指定する †

UserForm1.StartUpPosition = 0
UserForm1.Top = 300
UserForm1.Left = 300
UserForm1.Show

フォーム表示後もシートの操作を可能にする †

UserForm1.Show vbModeless

フォームを閉じる †

Unload UserForm1

フォームを非表示にする †

UserForm1.Hide

フォームを閉じると取得した値もリセットされるため、それを防ぐために使用する。

オブジェクトに値を追加 †

1件追加 †

Object.AddItem "hoge"

セル範囲を追加 †

myAddress = Range("A1:D4").Address
Object.RowSource = myAddress

配列を追加 †

Object.List = array

オブジェクトを使用不可にする †

Object.Enabled = False '使用不可にする
Object.Enabled = True  '使用可能にする

テキストボックスの入力を数値に限定する †

VBE †

IMEを半角英数に強制する

VBA †

Private Sub Object_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9]" Then
        KeyAscii = 0
    End If
End Sub

リストボックスの選択 †

i = Object.ListIndex   '選択されたインデックスを取得
Object.ListIndex = i   '指定したインデックスを選択

リストボックスの件数 †

Object.ListCount