| |
説明がへたですいません。
>どのようにして表示させているのでしょうか？
>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と読みに言ってしまいます。
お手上げ状態なため、お願いいたいます。
|
|
トミ
- 04/5/16(日) 14:47 -
