Excel ユーザーフォーム呼び出し時エラー
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
お礼
いろいろな?を見て何とかできるようになりました。 ありがとうございました。