フォームを開く †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 |