excel2000 vba スピンボタン
いつもお世話になっています。
下記内容の変更をしたいのですが、自分ではうまくいかず、お力をお貸しください。
よろしくお願いします。
一枚のデータシートと一枚の入力用フォームがあります。
入力フォームのスピンボタンのＮＯをキーにして、データシートのレコードを一件ずつ切り替えて、表示させるようにしています。
さてデータシートのオートフィルターでフィルターをかけた時に、それにあわせて、スピンボタンのＮＯを飛ばすようにしたいのですが、どのように修正していいか、わかりません。
現状ですと、下記プロシージャですが、いまのままだと、スピンボタンの値が一つずつしかかわりません。
'スピンボタンの値が変わったらテキストボックスに反映
Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
Call hyouji
End Sub
Private Sub hyouji()
'データを検索して表示する
Dim fRange As Range
Dim fRow As Long
Set fRange = Sheets("data").Columns(3).Find(what:=TextBox1.Value, _
LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlByRows)
If (fRange Is Nothing) Then '
MsgBox "Noがみつかりません", vbExclamation
Exit Sub
End If
fRow = fRange.Row '検索されたNoの行位置を求める
With Worksheets("data")
TextBox2.Value = .Cells(fRow, 4).Value
TextBox3.Value = .Cells(fRow, 5).Value
TextBox4.Value = .Cells(fRow, 6).Value
TextBox5.Value = .Cells(fRow, 7).Value
TextBox6.Value = .Cells(fRow, 8).Value
End With
SpinButton1.SetFocus
End Sub
※現物ファイルを下記に投稿（No5643）させていただきました。見ていただけると幸いです。
http://www.kent-web.com/pubc/book/test/uploader/uploader.cgi
お礼
はい、これです！ 早速のご回答ありがとうございました。