| |
名簿の検索をユーザーフォームで作成しています
A列に検索したい名簿の「あ」「か」「さ」・・・のインデックスが打たれています。
これを手がかりに、コマンドボタン「あ」「か」・・・「わ」の１０個のボタンで
そのセル位置までスクロールさせ、ユーザーフォームのリストボックス連動させ、その後の移動はスピンボタン粗送りでボタンを押してリストで細かく送り正しい氏名に到達したく
コマンドボタンとスピンボタンを連動させたいのですが・・・
コードを書きましたが・・・
例えば「た」の付く氏名までは、コマンドボタンでスクロール出来るのですが
スピンボタンに反映させる方法を教えてください。
リストボックスはスピンボタン１刻みで１０刻みにしています。
Private Sub CommandButton5_Click()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).row
If Cells(i, 1) Like "た*" Then
Cells(i, 1).Select
ActiveWindow.ScrollRow = Cells(i, 1).row
Exit For
End If
Next i
SpinButton1_Change
End Sub
Private Sub CommandButton10_Click()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).row
If Cells(i, 1) Like "わ*" Then
Cells(i, 1).Select
ActiveWindow.ScrollRow = Cells(i, 1).row
End If
Next i
End Sub
Private Sub UserForm_Initialize()
Dim itemCount As Long
itemCount = Worksheets("sheet2").Range("B" & Rows.Count).End(xlUp).row
Me.SpinButton1.Max = WorksheetFunction.RoundUp(itemCount / 10, 0) - 1
itemCount = Worksheets("sheet2").Range("B" & Rows.Count).End(xlUp).row
Me.SpinButton1.Max = WorksheetFunction.RoundUp(itemCount / 10, 0) - 1
SpinButton1_Change
End Sub
Private Sub SpinButton1_Change()
Dim num As Long
Dim itemCount As Long
With Me.SpinButton1
num = 10
If .Value = .Max Then
If itemCount Mod 10 <> 0 Then
num = itemCount Mod 10
End If
End If
Me.ListBox1.List = Worksheets("sheet2").Range("B" & .Value * 10 + 1).Resize(num, 2).Value
End With
End Sub
|
|
Ｊｔｏ
- 12/1/6(金) 9:45 -
