![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
WindowsVista HomePremium
Excel 2007
Microsoft Visual Basic 6.5 です。
Excelでユーザーフォーム(UserForm1)を作り、
Sub Auto_Open()
UserForm1.Show
End Sub
で起動時に呼び出すようにしました。
確認のため、一度Excelを閉じ起動し直したところ正常に動作しました。
もう一度確認のため同じように再起動をすると、
実行時エラー '2110':
コントロールが表示されていない、利用できない、またはフォーカスを持てないため、そのコントロールにフォーカスを移すことはできません。
と出て、それ以降何度やっても動作しなくなってしまいました。
解決法か原因がわかる方いらっしゃいましたら、ぜひご教授ください。よろしくおねがいします。
ユーザーフォーム関係のコードを以下に書いておきます。(内容は小遣い帳のようなものです。)
――――――――――――――――――――
Private Sub CommandButton1_Click()
Dim NUM As Integer
If TextBox1.Text = "" Then
MsgBox "概要が記入されていません。"
TextBox1.SetFocus
GoTo 100
ElseIf TextBox2.Text = "" Then
MsgBox "収支が記入されていません。"
TextBox2.SetFocus
GoTo 100
ElseIf ComboBox1.ListIndex = -1 Then
MsgBox "収支の種類が選択されていません。"
ComboBox1.SetFocus
GoTo 100
End If
Range("F6").Select
NUM = 0
Do While ActiveCell.Offset(NUM, 0) <> ""
NUM = NUM + 1
Loop
ActiveCell.Offset(NUM, 0).Select
ActiveCell = TextBox1.Value
If CheckBox1 = True Then
TextBox2 = -TextBox2
End If
If ComboBox1.ListIndex = 0 Or ComboBox1.ListIndex = 1 Then
ActiveCell.Offset(0, ComboBox1.ListIndex + 1) = TextBox2.Value
Else
ActiveCell.Offset(0, ComboBox1.ListIndex + 2) = TextBox2.Value
End If
TextBox1 = ""
TextBox2 = ""
CheckBox = Falses
ComboBox1.ListIndex = -1
100 End Sub
――――――――――――――――――――
Private Sub CommandButton2_Click()
Dim NUM As Integer
If TextBox3.Text = "" Then
MsgBox "移動金額が記入されていません。"
TextBox3.SetFocus
GoTo 100
ElseIf ComboBox2.Text = "" Then
MsgBox "移動元が選択されていません。"
ComboBox2.SetFocus
GoTo 100
ElseIf ComboBox3.ListIndex = -1 Then
MsgBox "移動先が選択されていません。"
ComboBox3.SetFocus
GoTo 100
End If
Range("F6").Select
NUM = 0
Do While ActiveCell.Offset(NUM, 0) <> ""
NUM = NUM + 1
Loop
ActiveCell.Offset(NUM, 0).Select
ActiveCell = "移動"
If ComboBox2.ListIndex = 0 Or ComboBox2.ListIndex = 1 Then
ActiveCell.Offset(0, ComboBox2.ListIndex + 1) = -TextBox3.Value
Else
ActiveCell.Offset(0, ComboBox2.ListIndex + 2) = -TextBox3.Value
End If
If ComboBox3.ListIndex = 0 Or ComboBox3.ListIndex = 1 Then
ActiveCell.Offset(0, ComboBox3.ListIndex + 1) = TextBox3.Value
Else
ActiveCell.Offset(0, ComboBox3.ListIndex + 2) = TextBox3.Value
End If
TextBox3 = ""
ComboBox2.ListIndex = -1
ComboBox3.ListIndex = -1
100 End Sub
――――――――――――――――――――
Private Sub CommandButton3_Click()
Unload Me
End Sub
――――――――――――――――――――
Private Sub CommandButton4_Click()
Unload Me
End Sub
――――――――――――――――――――
Private Sub UserForm_Initialize()
myarray1 = Array("収支", "クレジット", "郵便局", "机", "500", "1")
For i = 0 To 5
ComboBox1.AddItem myarray1(i)
ComboBox2.AddItem myarray1(i)
ComboBox3.AddItem myarray1(i)
Next i
TextBox1.SetFocus
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは。
Auto_Open の代わりに、ThisWorkbook モジュールのWorkbook_Open イベントは試してみましたか。
これは、ダメ元ですが、Auto_Open は、反応が遅いです。
それと、今回の原因は、Excel 2007 のActive X コントロールのセキュリティの関係で、起動までに手間が掛かるのではないでしょうか。
その場合は、OnTime で、タイムラグを作るしかないと思います。ほんの数秒でかまわないはずです。
Sub Auto_Open()
Application.OnTime Now() + TimeValue("00:00:02"), "Start1"
'2秒待つ
End Sub
Sub Start1()
UserForm1.Show
End Sub
なお、すべてのコードは見ていませんが、UserForm_Initialize() で、
TextBox1.SetFocus
は、必要ですか。ふつうは、TabIndex を0にすればよいと思います。
それから、ループは不要ですね。
Dim MyArray1()
MyArray1 = Array("収支", "クレジット", "郵便局", "机", "500", "1")
ComboBox1.List = MyArray1()
ComboBox2.List = MyArray1()
ComboBox3.List = MyArray1()
となりますね。
こんばんは。
早速の回答、ありがとうございます。
Auto_Open()をWorkbook_Open()に変えたところ、正常に動作しました!
ComboBoxもそういう入れ方があるんですね…。
まだまだVBA歴3日なので、知らないことばかりです^^ゞ
TextBox1.SetFoucusは仰る通り不要でした。
ご指摘ありがとうございます^^
こんなに早く解決するとは思ってませんでした。
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) VBA 同日で2回目(午後)の体温を登録するときのコード 3 2022/08/28 20:29
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルのエラー文について
その他(Microsoft Office)
-
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
-
4
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
8
VBAでユーザーフォームが自動的に消える
Visual Basic(VBA)
-
9
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
10
何も表示されない実行時エラーがでる
その他(Microsoft Office)
-
11
'ユーザーフォーム右上隅の[×]ボタンを表示しない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでフィールド名を変数(...
-
ACCESSでコントロールソースの変更
-
ACCESSのフォームからハイパー...
-
【ACCESS】フォーム名/コントロ...
-
Excel 入力規則 リスト 複数...
-
iphoneのフルスクリーンの解除方法
-
Excel ユーザーフォーム呼び出...
-
Real One Playerの明るさを変え...
-
Access・VBAで、Controlsを使用...
-
コントロールソースって
-
Accessの連結、非連結とは何?
-
Accessでのレポート表示について
-
Access レポート印刷するときに...
-
YahooのIDがロックされてしまい...
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
レコードを保存するコード ア...
-
Accessのフォームで開く時のウ...
-
ACCESS フォームをそのまま印刷...
-
Accessで、フォームからフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでフィールド名を変数(...
-
Accessのフォームにて、詳細行...
-
iphoneのフルスクリーンの解除方法
-
【ACCESS】フォーム名/コントロ...
-
ACCESSでコントロールソースの変更
-
アクセスで、チェックボックス...
-
ACCESSのフォームからハイパー...
-
Excel 入力規則 リスト 複数...
-
コントロールソースって
-
Access・VBAで、Controlsを使用...
-
ACCESS テキストボック...
-
access setfocusについて
-
AutoCAD 画層管理コントロール...
-
access 改ページコントロール
-
Accessの連結、非連結とは何?
-
Excel ユーザーフォーム呼び出...
-
アクセス カレンダーコントロ...
-
ACCESS カレンダーコントロール...
-
(Word)フォームのチェックボッ...
-
アクセスのフォームの区切り線...
おすすめ情報