Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11826 / 13646 ツリー ←次へ | 前へ→

【13904】スピンボタン トミ 04/5/16(日) 13:12 質問[未読]
【13905】Re:スピンボタン ちゃっぴ 04/5/16(日) 14:16 回答[未読]
【13906】Re:スピンボタン トミ 04/5/16(日) 14:47 質問[未読]
【13907】Re:スピンボタン ちゃっぴ 04/5/16(日) 15:09 回答[未読]
【13908】Re:スピンボタン トミ 04/5/16(日) 16:57 お礼[未読]

【13904】スピンボタン
質問  トミ  - 04/5/16(日) 13:12 -

引用なし
パスワード
   教えてください。

セルA1からAZ1まで1件分の住所録データが入力されています。
一つのSheetに数十件のデータが登録されており、A列には数字の1が
固定されています。

:例)

A B   C   D    E  F
1 32001 高橋  090-
1 32001 佐藤  03-
1 01001 加藤  090-


現在、Range("A65536").End(xlUp).Offset(0, 0).Select で選択し、
AからAZまでの住所録データをTextBoxで表示させています。

そこで質問なのですが、スピンボタンを使って他のデータ(上下)も表示させたいと
考えています。

 下行(A)が空欄ならMsgboxで「データが見つかりません」と表示。
 上行はA1まで読みにいかせ、Msgboxで「これ以上ありません」と表示。
先へ進ませないようにしたいと思っております。

なお、セルにNo.などを入力する事は避けたいと考えています。

条件内でできるのでしょうか。教えてください。

【13905】Re:スピンボタン
回答  ちゃっぴ E-MAIL  - 04/5/16(日) 14:16 -

引用なし
パスワード
   >AからAZまでの住所録データをTextBoxで表示させています。

どのようにして表示させているのでしょうか?
1件のデータですか?複数ですか?
また、ここで言うTextBoxとはフォーム上ですか?シート上ですか?

出来れば、どのようにして作成されてかお聞かせください。

>そこで質問なのですが、スピンボタンを使って他のデータ(上下)も表示させた
>いと考えています。

スピンボタンのクリックイベントに記述してやれば出来ます。

【13906】Re:スピンボタン
質問  トミ  - 04/5/16(日) 14:47 -

引用なし
パスワード
   説明がへたですいません。

>どのようにして表示させているのでしょうか?
>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と読みに言ってしまいます。

お手上げ状態なため、お願いいたいます。

【13907】Re:スピンボタン
回答  ちゃっぴ E-MAIL  - 04/5/16(日) 15:09 -

引用なし
パスワード
   上方向の移動の場合
If .Row = 1 Then
でフィルタリングしてやればいいだけでは?

【13908】Re:スピンボタン
お礼  トミ  - 04/5/16(日) 16:57 -

引用なし
パスワード
   >上方向の移動の場合
>If .Row = 1 Then
>でフィルタリングしてやればいいだけでは?

ありがとうございました。
出来るようになりました。

あれこれ考えすぎて難しくとらえてしまったようです。

11826 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free