リストを選択しない場合の登録

質問

住所録を作成していますが、リストを選択しない場合10のテキストボックスで入力し
登録ボタンで指定範囲(P6:Y26)に入力するようにしていますがどうしても一番最初の行
に登録されてしまいます。リストボックスで行を選択すると登録＆更新は可能ですが。
御指導願えませんでしょうか？(尚、リストボックスにはRowSource(P6:Y26)で表示し
ています。)

Windows7・SP1 Office2010

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If fullname.Text = "" Then
MsgBox "登録すべき内容がありません！", vbExclamation, "確認"
Exit Sub
End If

Dim 選択行 As Integer
Dim i As Integer
If ListBox1.ListIndex = -1 Then 'リストが選択していなかったら(最初の行に登録される)
i = Range("P65536").End(xlUp).Offset(1).Row
Range("P" & i).Value = i - 5
Range("Q" & i).Value = fullname.Text
Range("R" & i).Value = employeenumber.Text
Range("S" & i).Value = fromaltitle.Text
Range("T" & i).Value = company.Text
Range("U" & i).Value = birthdate.Text
Range("V" & i).Value = postalcode.Text
Range("W" & i).Value = address.Text
Range("X" & i).Value = tel.Text
Range("Y" & i).Value = mobilephonenumber.Text
Else
i = ListBox1.ListIndex + 6
Range("P" & i).Value = i - 5
Range("Q" & i).Value = fullname.Text
Range("R" & i).Value = employeenumber.Text
Range("S" & i).Value = fromaltitle.Text
Range("T" & i).Value = company.Text
Range("U" & i).Value = birthdate.Text
Range("V" & i).Value = postalcode.Text
Range("W" & i).Value = address.Text
Range("X" & i).Value = tel.Text
Range("Y" & i).Value = mobilephonenumber.Text
End If

'データをクリア
With TextBox
fullname.Text = ""
employeenumber.Text = ""
fromaltitle.Text = ""
company.Text = ""
birthdate.Text = ""
postalcode.Text = ""
address.Text = ""
tel.Text = ""
mobilephonenumber.Text = ""
End With

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

回答No.2

jin34 · ベストアンサー

入力フォームを初期化するときに
ListBox1.Index=-1を加えればいいでしょう。
「'データをクリア」の部分にかなと思います。

お礼

わざわざ御丁寧な解答ありがとうございます。これ以上聞くのは愚問ですね。
わからなくなって舞い上がっていました。あとは自分で解決します。

本当に有難うございました。

回答No.1

jin34

ListBox1.ListIndexが-1になっていないんじゃないでしょうか。
マクロをステップ実行して、
If ListBox1.ListIndex = -1 Then　の次にどの行に飛ぶかを確認すべきかと思います。
もしくは
Private Sub CommandButton2_Click()　の次の行に
MsgBox ListBox.ListIndex　を挿入して、
リストからの選択なしの時に正しく　-1　と表示されるか見てください。
If文がFalseとなる（＝－１と表示されない）なら、
フォームを初期化するときにListBox.ListIndex=-1を入れてやればいいと思います。
そうでなければ自分には原因不明です。

補足

ご指摘の方法で、If文がFalseとなり正常に最終入力行の次の空白行に入力されます。
ご面倒でしょうが具体的にお願い出来ませんでしょうか？

勉強不足で申し訳ありません。