A B
１ 開始日 H24/4/1
２ 終了日 H24/4/30
３ 日数 30
上のような表で、
・B1とB2に日付を入力すると、B3にB1からB2の日数が返ってくる
・B1に日付、B3に日数を入れると、B2にB1からB3日後の日付が返ってくる
・B2に日付、B3に日数を入れると、B1にB2からB3日前の日付が返ってくる
・B列から複数列同じ処理をする
というようなことがしたくて、下記のような記述をしました。
（今のところ単列処理ですが・・）
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo error
Dim a As Range
For Each a In Target
If a.Address = "$B$1" Then
If Range("B2") > 0 Then
Range("B3") = Range("B2") - Range("B1")
ElseIf Range("B3") > 0 Then
Range("B2") = Range("B1") + Range("B3") - 1
End If
End If
Next a
Dim b As Range
For Each b In Target
If b.Address = "$B$2" Then
If Range("B1") > 0 Then
Range("B3") = Range("B2") - Range("B1") + 1
ElseIf Range("B3") > 0 Then
Range("B1") = Range("B2") - Range("B3") - 1
Else
Range("B2") = ""
End If
End If
Next b
Dim c As Range
For Each c In Target
If c.Address = "$B$3" Then
If Range("B1") > 0 Then
Range("B2") = Range("B1") + Range("B3") + 1
ElseIf Range("B2") > 0 Then
Range("B1") = Range("B2") - Range("B3") - 1
Else
Range("B2") = ""
End If
End If
Next c
error:
End Sub
これだと、例えば
B1に日付を入力して、B3に日数を入力すると、
B2に日付が返ってくるのですが、B2に日付が返った瞬間にループ処理してしまいます。
（『WorksheetChenge』なので当然なのですが…）
どうすればうまくいくか、ご教示お願いいたします。
また、この計算を複数列で行いたいので、それもあわせて
教えていただけると幸いです。
よろしくお願いします。
ソフトはＥＸＣＥＬ2003です。
質問内容：
ユーザーフォーム習い始めたところで、つまずいています。
やりたいことは、フォーム上に配置したComboBoxに別シート（選択一覧）で作成した「カタカナ１文字、会社名、会社コード」の３項目を表示可能にしておく。
ComboBoxへのカタカナ1文字入力により、該当する会社の上記３項目を表示し、会社選択後ComboBoxには会社名を表示、リストボックスには選択した会社コードを表示し、登録リストに会社名と会社コードを登録する。
フォームを作成してテストしましたが、一部のカタカナ（ヒなど）で該当する会社が選択されません。
何が問題なのか知識が足りませんので、困っています。
お分かりになる方に教えて頂きたくお願いします。
なお今回会社名をカタカナ１文字検索にしたのは、例えば社名の前に（株）等が付くものや、同じ漢字でも日本（ニホン）、日陰（ヒカゲ）等呼び名が異なるものがあるためです。
また、ComboBoxのプロパティは「MatchEntry」を「0-fmMatchEntryFirstLetter」としてあります。
ところで作成した命令は次の通りです。
Private Sub UserForm_Initialize()
Dim MyVar1 As Variant
Dim Ws1, Ws2 As Worksheet
Dim LastRow As Long
Set Ws1 = Worksheets("登録")
Set Ws2 = Worksheets("選択一覧")
Ws2.Select
MyVar1 = Range("A3:C490")
With ComboBox1
.ColumnCount = 3 ’カタカナ１文字、会社名、会社コード
.ColumnWidths = "20;230;10"
.List = MyVar1
End With
ComboBox1.TextColumn = 2
Ws1.Select
ComboBox1.MatchEntry = fmMatchEntryFirstLetter
End Sub
Private Sub ComboBox1_Change() '会社名処理
Dim Ws1, Ws2 As Worksheet
Dim NawRow As Long
Set Ws1 = Worksheets("登録")
Set Ws2 = Worksheets("選択一覧")
ComboBox1.MatchEntry = fmMatchEntryFirstLetter
'表示行数を確認 一番上が「0」なので＋１
NawRow = Me.ComboBox1.ListIndex + 1
TextBox4.Text = Ws2.Cells(NawRow + 2, 3)
'会社コード表示；選択一覧は3列3行目から開始
Ws2.Cells(1, 1) = NawRow + 3
'選択一覧1行目に選択行表示 デバック用
End Sub
※登録リストへの会社名と会社コードを登録する部分は省略しました。
以上よろしくお願いします。
その他、このような多くの会社名選択で、よい方法があれば教えてください。
