エクセルマクロで質問です。

質問

エクセルマクロで質問です。

1行目にAから順に、No.、タイトル、作者、発売日（以下随時追加）と見出しをつけ、
2行目からデータを打ち込んでいます。

ユーザーフォームで入力や修正をやっていこうと思い、
No.を参照して、表示データの切り替え（「前へ」「次へ」）、
データの修正や削除、新規登録をコマンドボタンでやっているのですが、
データが増えてくるにつれて、前後移動が1ずつでは時間がかかるようになってきました。

No.のところをコンボボックスまたは手入力にして、
指定したNo.にするとタイトルや作者等も同じ行のデータに
切り替わるというマクロがわからず困っています。
方法としては、No.のテキストボックスまたはコンボボックス、
そのNo.を参照してタイトル以降のデータを切り替える「表示」のボタンがあるといいかと思います。

アドバイスをお願いします。

回答No.1

hallo-2007 · ベストアンサー

よくある作業です。
即興ですが、textbox1にNoを手入力したとして

Private Sub TextBox1_Change()
If TextBox1.Value <> "" Then
Dim c As Range
With ActiveSheet.UsedRange.Columns(1) '1列目が対象
Set c = .Find(What:=TextBox1.Value, LookAt:=xlWhole) 'cに検索結果を格納
If c Is Nothing Then '条件に当てはまるセルがなければ
MsgBox "検索の値がありませんでした"
Else　'条件に当てはまるセルがあれば
TextBox2.Value = c.Offset(0, 1).Value　'検察で合致したセルの１つ右側の値を
End If
End With
End If
End Sub

参考程度ですが、ご自身のシートにあわせて編集してください。
他にも方法は色々あると思います。

お礼

遅くなってしまいすいません。

マクロは最近はじめたばかりで、まだわからないこともたくさんあります。
コードまで書いていただき、どうもありがとうございます。