VBA初心者です。不具合を直したい。

VBA初心者です。以下のコードに不具合があって、結果が変です。
どうしても直らないので、どなたかお助けいただけませんか。

目的：顧客リストを作るユーザーフォームを作成している。
textbox1に顧客番号を入力すると、その顧客に関して
すでに入力した情報がユーザーフォームとシート上の検索結果を表示する行B-S2行に
表示されるようにする。

現状：最初はテキストボックスだけを使用していて、うまくいっていた。
途中でコンボボックスを４か所追加したところ、ユーザーフォームと
シート上の検索結果を表示する行に、結果がずれて表示されてしまうようになった。
例えば、I2は空欄、本来I2に表示されてほしいCombobox2の値はJ2に表示されている。
以下の列はどんどんずれて行っている。
変数の場所の指定の仕方が違うのでしょうが、いろいろいじっても直りません。

Private Sub CommandButton2_Click()

Range("B2").Value = TextBox1.Value
Dim mycell As Range
Set mycell = Range("B4:B70").Find(What:=Range("B2").Value, LookAt:=xlWhole)
If Not mycell Is Nothing Then
mycell.Select
With UserForm1
For i = 2 To 14
UserForm1.Controls("TextBox" & i).Value = mycell.Offset(, i - 1).Value
Next i
End With
Range("C2").Value = TextBox2.Value
Range("D2").Value = TextBox3.Value
Range("E2").Value = TextBox4.Value
Range("F2").Value = TextBox5.Value
Range("G2").Value = TextBox6.Value
Range("H2").Value = TextBox7.Value
Range("I2").Value = ComboBox2.Value
Range("J2").Value = TextBox8.Value
Range("K2").Value = ComboBox3.Value
Range("L2").Value = TextBox9.Value
Range("M2").Value = ComboBox4.Value
Range("N2").Value = TextBox10.Value
Range("O2").Value = ComboBox5.Value
Range("P2").Value = TextBox11.Value
Range("Q2").Value = TextBox12.Value
Range("R2").Value = TextBox13.Value
Range("S2").Value = TextBox14.Value
Else
MsgBox "未登録番号です"
Exit Sub
End If
End Sub

質問者からの補足コメント

• 

  ご回答ありがとうございます。名前は面倒で変えていなかったのですが、結局、順番に数えて特定する手間が生じるので、名前をちゃんと付けようと思います。
  
  数え方がおかしいのか、名前は自体は、ずれていないように思います。「テキストボックス１に顧客番号入力→コマンドボタン２押す」でそれまでに入力した顧客情報を呼び出しているつもりなのですが、その際、前回にコンボボックス（「あり」か「なし」を選ぶ）で選択して保存した答えが、次に情報を呼び出した際にコンボボックス内に表示されません。コンボボックスは未選択（空欄）のまま、「あり」か「なし」の答えがその次のテキストボックスに表示されます。
  
  どうしたらいいか分かりません。画面をお見せできず、正しく質問できているかも不明で、申し訳ありません。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/09/24 13:46

No.7 回答者： Qchan1962 回答日時： 2021/09/24 23:28

＃６　です

ボケボケで申し訳ないです。
（見直してよかった、、投稿前に見直せよ！）
With UserForm1は無視していました　削除して良いと思います。

If i = 7 And 9 And 11 And 13 Then・・なんじゃこれ、、！！
下記の様に訂正します。
If i = 7 Or i = 9 Or i = 11 Or i = 13 Then

If i = 9 And 11 And 13 And 15 And 17 Then　については
上記訂正を参考に自身で直してください

酔いが限界と判断して寝ます。。すみません。

No.6 回答者： Qchan1962 回答日時： 2021/09/24 23:01

こんばんは

テキストボックス、コンボボックスの出力先と抽出先が一致していませんね

名前添え字がそのままとして、分けて考えた方がわかり易いのではないでしょうか
Private Sub CommandButton2_Click()の前に一度出力していると言う事で良いでしょうか、、、

テストしていませんが、こんな感じでどうでしょう
Dim n As Integer, j As Integer
n = 2 'ComboBox添え字
j = 2 'TextBox添え字
If Not mycell Is Nothing Then
mycell.Select
With UserForm1
For i = 1 To 17
If i = 7 And 9 And 11 And 13 Then
UserForm1.Controls("ComboBox" & n).Value = mycell.Offset(, i).Value
n = n + 1
Else
UserForm1.Controls("TextBox" & j).Value = mycell.Offset(, i).Value
j = j + 1
End If
Next i
End With
n = 2 'ComboBox添え字
j = 2 'TextBox添え字
For i = 3 To 19 'セルの列番号
If i = 9 And 11 And 13 And 15 And 17 Then 'ComboBoxからの列番号
Cells(2, i).Value = UserForm1.Controls("ComboBox" & n).Value
n = n + 1
Else 'Not　ComboBox
Cells(2, i).Value = UserForm1.Controls("TextBox" & j).Value
j = j + 1
End If
Next
Else

テストしていないので書き替え部分だけですが、、
Offset場所間違っていたら、ごめんなさいです。。

この回答へのお礼

おかげさまで解決できました！スマートな書き方をされていて、すごく勉強になりました。ありがとうございます。

お礼日時：2021/09/25 06:03

No.5 回答者： めぐみん_ 回答日時： 2021/09/24 20:52

あ。

＞For i = 2 To 14

ではなく

For i = 2 To 18ですか。

No.4 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/09/24 19:03

With UserForm1

For i = 2 To 14
UserForm1.Controls("TextBox" & i).Value = mycell.Offset(, i - 1).Value
Next i
End With
Range("C2").Value = TextBox2.Value
Range("D2").Value = TextBox3.Value
Range("E2").Value = TextBox4.Value
Range("F2").Value = TextBox5.Value
Range("G2").Value = TextBox6.Value
Range("H2").Value = TextBox7.Value
Range("I2").Value = ComboBox2.Value
Range("J2").Value = TextBox8.Value
Range("K2").Value = ComboBox3.Value
Range("L2").Value = TextBox9.Value
Range("M2").Value = ComboBox4.Value
Range("N2").Value = TextBox10.Value
Range("O2").Value = ComboBox5.Value
Range("P2").Value = TextBox11.Value
Range("Q2").Value = TextBox12.Value
Range("R2").Value = TextBox13.Value
Range("S2").Value = TextBox14.Value
Else
-----------これを--------

For i = 2 To 14
Range("B2").Offset(, i - 1).Value = mycell.Offset(, i - 1).Value
Next i

TextBox2.Value = Range("C2").Value
TextBox3.Value = Range("D2").Value
TextBox4.Value = Range("E2").Value
TextBox5.Value = Range("F2").Value
TextBox6.Value = Range("G2").Value
TextBox7.Value = Range("H2").Value
ComboBox2.Value = Range("I2").Value
TextBox8.Value = Range("J2").Value
ComboBox3.Value = Range("K2").Value
TextBox9.Value = Range("L2").Value
ComboBox4.Value = Range("M2").Value
TextBox10.Value = Range("N2").Value
ComboBox5.Value = Range("O2").Value
TextBox11.Value = Range("P2").Value
TextBox12.Value = Range("Q2").Value
TextBox13.Value = Range("R2").Value
TextBox14.Value = Range("S2").Value
Else

とか？

この回答へのお礼

おかげさまで解決できました！ここ１週間くらい、ずっと考えて分からなかったので助かりました。感謝します。

お礼日時：2021/09/25 06:02

No.3 回答者： めぐみん_ 回答日時： 2021/09/24 16:24

スマホなのでスマートとはいきませんが，

・見つかったセル以降のデータを２行目に入れる
・２行目のデータを各コントロールに入れる
みたいに順序を入れ替えてみるとか?

この回答へのお礼

いろいろやって、まだうまく行っていませんが、ご助言ありがとうございました。

お礼日時：2021/09/24 18:38

No.2 回答者： めぐみん_ 回答日時： 2021/09/24 14:47

For i = 2 To 14

UserForm1.Controls(\"TextBox\" & i).Value = mycell.Offset(, i - 1).Value
Next i

上記って見つかった場合にその行の値を『テキストボックス』だけに入れるようになってますよね?
これって目的に合ってますか?
スマホなので検証は出来ませんが気になったので。

この回答へのお礼

回答ありがとうございます。
おっしゃるとおりで、そこが対応できていません。
しかし素人考えで
For i = 2 To 18　（もともとはテキストボックス分の14）
UserForm1.Controls("TextBox", "ComboBox" & i).Value = mycell.Offset(, i - 1).Value
Next i
End With
（テキストボックスの横にコンボボックスを足した）にするとコンパイルエラーが出ます。本当に基本的な書き方なのでしょうが、分かりません。

お礼日時：2021/09/24 15:00

No.1 回答者： neKo_deux 回答日時： 2021/09/24 13:30

> 途中でコンボボックスを４か所追加したところ、

コントロールの追加、削除を行うと、
TextBox3だったものがTextBox4に名前が変わってたりとかする事もあった気がするけど。
まずは、テキストボックスのプロパティとかで、期待した通りに名前が振られているか、確認しては。

そういうの避けるには、きちんとコントロールに、
TextBox氏名
TextBox_年齢
TextBox03住所
とか、自動で振られる名前と別の名前付けとくのが良いと思う。

この回答へのお礼

ご回答ありがとうございます。名前は面倒で変えていなかったのですが、結局、順番に数えて特定する手間が生じるので、名前をちゃんと付けようと思います。ありがとうございます。

お礼日時：2021/09/24 14:57