|
説明がへたですいません。
>どのようにして表示させているのでしょうか?
>1件のデータですか?複数ですか?
>また、ここで言うTextBoxとはフォーム上ですか?シート上ですか?
ユーザフォーム上にTextBoxを貼り付けて、1件(AからAZ)のデータを
表示させています。
仮にA5が最終行だとしたら、A5からAZ5までの内容をユーザフォームに
表示させています。
Range("A65536").End(xlUp).Offset(0, 0).Select
With ActiveCell
TextBox1.Text = .Offset(0, 0).Range("A1")
TextBox2.Text = .Offset(0, 0).Range("B1")
End With
そこまではできたのですが、スピンボタンを使ってA4、A3、A2やA1、A2、A3と
言うように移動したいと考えています。
.Offset(-1, 0).Selectを組んで試して見ましたが、A1より更に
上を読もうとしてエラーになってしまいますし、
逆に、.Offset(1, 0).Selectでは、最終行(A5)で止めたいのですが、
A6、A7と読みに言ってしまいます。
お手上げ状態なため、お願いいたいます。
|
|