-5
私は私が唯一の最後の値を取得することができ、このコードと同じ値 を複数持っている場合は、テキストボックスに表示する次と前のボタンを作成しようとしているだけ取得次または前の値
Set sh = ThisWorkbook.Sheets("Outage")
With sh
For i = 1 To 50
If (InStr(1, Cells(i, 6), UserForm1.TextBox4.Text, vbTextCompare) > 0) Then
outage.TextBox1.Text = .Cells(i, 1)
outage.TextBox2.Text = .Cells(i, 3)
outage.TextBox9.Text = .Cells(i, 6)
outage.TextBox3.Text = .Cells(i, 9)
outage.TextBox4.Text = .Cells(i, 10)
outage.TextBox5.Text = .Cells(i, 11)
outage.TextBox6.Text = .Cells(i, 14)
outage.TextBox7.Text = .Cells(i, 15)
outage.TextBox8.Text = .Cells(i, 16)
End If
Next
End With
私は何をする必要があるか
は、第一の値を表示することで、キーを押して次のユーザーフォームのテキストボックスに入力した次の同じ値になった場合、何か見つかった場合は、持っている4
を読み、あなたのコードを容易にするインデントそれは何明確ではありません平均。あなたが何を意味しているのかを明確にし、おそらくユーザーフォームやワークシートのスクリーンショットを含めて、必要なヘルプを得ることができます –